Class TOpenDatabaseDlg (unit OpenDlg)

Inherits from

TForm

Constructors



Functions

procedure DBLookupComboGetImage(Sender: TObject; IsEmpty: Boolean; var Graphic: TGraphic; var TextMargin: Integer);


procedure DirectoryEdit1Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure rxDBLookupCombo1Change(Sender: TObject);


function GetDatabaseName: string;

Private declarations

TOpenDatabaseDlg


Properties

property DatabaseName : string

Public declarations

Events

Variables

Bevel1 : TBevel;


CancelBtn : TButton;


DatabaseList : TBDEItems;


DataSource1 : TDataSource;


DirectoryEdit1 : TDirectoryEdit;


FormStorage1 : TFormStorage;


Label1 : TLabel;


Label2 : TLabel;


OkBtn : TButton;


PicClip : TPicClip;


rxDBLookupCombo1 : TrxDBLookupCombo;



Constructors


Functions


procedure DBLookupComboGetImage(Sender: TObject; IsEmpty: Boolean; var Graphic: TGraphic; var TextMargin: Integer);


procedure DirectoryEdit1Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure rxDBLookupCombo1Change(Sender: TObject);


function GetDatabaseName: string;

Private declarations

TOpenDatabaseDlg


Properties


property DatabaseName : string

Public declarations


Events


Variables


Bevel1 : TBevel;


CancelBtn : TButton;


DatabaseList : TBDEItems;


DataSource1 : TDataSource;


DirectoryEdit1 : TDirectoryEdit;


FormStorage1 : TFormStorage;


Label1 : TLabel;


Label2 : TLabel;


OkBtn : TButton;


PicClip : TPicClip;


rxDBLookupCombo1 : TrxDBLookupCombo;