| Class TLayoutEditForm (unit LOProp) |
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;