Class TImportForm (unit LOPropIm)

Inherits from

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;