| Class TImportForm (unit LOPropIm) |
TForm
| Constructors |
| Functions |
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);| Properties |
property Count : Integer
property IniFileName : String
property Names : String
property Sizes : Integer| Events |
| Variables |
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;| Constructors |
| Functions |
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);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
| Properties |
property Count : Integer
property IniFileName : String
property Names : String
property Sizes : Integer| Events |
| Variables |
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;