Class TLayoutEditForm (unit LOProp)

Inherits from

TForm

Constructors



Functions

procedure AddBitBtnClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure CancelButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DelBitBtnClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DownBitBtnClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormResize(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure ImportButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure LayoutStringGridClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure LayoutStringGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure LayoutStringGridKeyPress(Sender: TObject; var Key: Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure LayoutStringGridKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure OkButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure UpBitBtnClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DeleteLine;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetLayoutText : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure InsertLine;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure LineDown;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure LineUp;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure OnGetMinMaxInfo(var Msg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetLayoutText(newValue : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

property IniFileName : String


property LayoutText : String


Events

Variables

AddBitBtn : TBitBtn;


CancelButton : TButton;


DelBitBtn : TBitBtn;


DownBitBtn : TBitBtn;


ImportButton : TButton;


LayoutStringGrid : TStringGrid;


OkButton : TButton;


OkPanel : TPanel;


UpBitBtn : TBitBtn;


FDeleteFlag : Boolean;


FIniFileName : String;


FKeyMove : Boolean;


FRowAfter : Integer;


FRowBefore : Integer;



Constructors


Functions


procedure AddBitBtnClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure CancelButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DelBitBtnClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DownBitBtnClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormClose(Sender: TObject; var Action: TCloseAction);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormResize(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FormShow(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure ImportButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LayoutStringGridClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LayoutStringGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LayoutStringGridKeyPress(Sender: TObject; var Key: Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LayoutStringGridKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure OkButtonClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure UpBitBtnClick(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DeleteLine;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetLayoutText : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure InsertLine;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LineDown;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure LineUp;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure OnGetMinMaxInfo(var Msg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetLayoutText(newValue : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


property IniFileName : String


property LayoutText : String


Events


Variables


AddBitBtn : TBitBtn;


CancelButton : TButton;


DelBitBtn : TBitBtn;


DownBitBtn : TBitBtn;


ImportButton : TButton;


LayoutStringGrid : TStringGrid;


OkButton : TButton;


OkPanel : TPanel;


UpBitBtn : TBitBtn;


FDeleteFlag : Boolean;


FIniFileName : String;


FKeyMove : Boolean;


FRowAfter : Integer;


FRowBefore : Integer;