Class TLayoutEditForm (unit LOProp) |
Inherits from
TForm
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property IniFileName : String
property LayoutText : String
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;
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property IniFileName : String
property LayoutText : String
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;