Class TImportForm (unit LOPropIm) |
Inherits from
TForm
procedure AllButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ClearButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FieldsStringGridDblClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FieldsStringGridKeyPress(Sender: TObject; var Key: Char);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FieldsStringGridMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormResize(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ImportButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OkButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetNames(nIndex : Integer) : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetSizes(nIndex : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SelectRow(ARow : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property Count : Integer
property IniFileName : String
property Names : String
property Sizes : Integer
AllButton : TButton;
CancelButton : TButton;
ClearButton : TButton;
DatabaseEdit : TEdit;
FieldsStringGrid : TStringGrid;
ImportButton : TButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
OkButton : TButton;
Panel1 : TPanel;
Table1 : TTable;
TableEdit : TEdit;
FCount : Integer;
FIniFileName : String;
FMouseX : Integer;
FMouseY : Integer;
procedure AllButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ClearButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FieldsStringGridDblClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FieldsStringGridKeyPress(Sender: TObject; var Key: Char);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FieldsStringGridMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormResize(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ImportButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OkButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetNames(nIndex : Integer) : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetSizes(nIndex : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SelectRow(ARow : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property Count : Integer
property IniFileName : String
property Names : String
property Sizes : Integer
AllButton : TButton;
CancelButton : TButton;
ClearButton : TButton;
DatabaseEdit : TEdit;
FieldsStringGrid : TStringGrid;
ImportButton : TButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
OkButton : TButton;
Panel1 : TPanel;
Table1 : TTable;
TableEdit : TEdit;
FCount : Integer;
FIniFileName : String;
FMouseX : Integer;
FMouseY : Integer;