| Class TFormMain (unit Main) |
TForm
| Constructors |
| Functions |
procedure ButtonCancelClick(Sender: TObject);
procedure ButtonDeleteClick(Sender: TObject);
procedure ButtonEditClick(Sender: TObject);
procedure ButtonNewClick(Sender: TObject);
procedure ButtonOKClick(Sender: TObject);
procedure ComboBoxDriversChange(Sender: TObject);
procedure EditNameChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ListBoxAliasesClick(Sender: TObject);
procedure DoDelete;------------------------------------------------------------------------------ Private methods ------------------------------------------------------------------------------ Delete the selected alias
procedure DoEdit;
procedure DoNew;
procedure GetAliasList;
procedure GetDriverList;
procedure GetSelectedAliasInfo;
procedure GetSelectedDefaultParams;
procedure InitialiseBrowseMode;
procedure InitialiseEditMode;
procedure InitialiseNewMode;
procedure Startup;| Properties |
| Events |
| Variables |
AliasEditor : TAliasEditor;
ButtonCancel : TButton;
ButtonDelete : TButton;
ButtonEdit : TButton;
ButtonNew : TButton;
ButtonOK : TButton;
ComboBoxDrivers : TComboBox;
EditName : TEdit;
GroupBoxAliases : TGroupBox;
GroupBoxSelectedAlias : TGroupBox;
LabelDriver : TLabel;
LabelName : TLabel;
LabelParameters : TLabel;
ListBoxAliases : TListBox;
MemoParams : TMemo;
fAppMode : TAppMode;| Constructors |
| Functions |
procedure ButtonCancelClick(Sender: TObject);------------------------------------------------------------------------------
procedure ButtonDeleteClick(Sender: TObject);------------------------------------------------------------------------------
procedure ButtonEditClick(Sender: TObject);------------------------------------------------------------------------------
procedure ButtonNewClick(Sender: TObject);------------------------------------------------------------------------------
procedure ButtonOKClick(Sender: TObject);------------------------------------------------------------------------------
procedure ComboBoxDriversChange(Sender: TObject);------------------------------------------------------------------------------
procedure EditNameChange(Sender: TObject);------------------------------------------------------------------------------
procedure FormCreate(Sender: TObject);------------------------------------------------------------------------------ Delphi-generated event handlers ------------------------------------------------------------------------------
procedure ListBoxAliasesClick(Sender: TObject);------------------------------------------------------------------------------
procedure DoDelete;Current application mode - browsing, editing or creating a new alias
------------------------------------------------------------------------------ Private methods ------------------------------------------------------------------------------ Delete the selected alias
procedure DoEdit;------------------------------------------------------------------------------ Edit an existing alias
procedure DoNew;------------------------------------------------------------------------------ Create a new alias
procedure GetAliasList;------------------------------------------------------------------------------ Populate the listbox with the current list of aliases
procedure GetDriverList;------------------------------------------------------------------------------ Populate the combo box with the list of installed drivers
procedure GetSelectedAliasInfo;------------------------------------------------------------------------------ Get alias info for selected alias in listbox
procedure GetSelectedDefaultParams;------------------------------------------------------------------------------ Get the default driver params for selected driver in combobox
procedure InitialiseBrowseMode;------------------------------------------------------------------------------ Initialise the application for browsing aliases
procedure InitialiseEditMode;------------------------------------------------------------------------------ Initialise the application for creating a new alias
procedure InitialiseNewMode;------------------------------------------------------------------------------ Initialise the application for creating a new alias
procedure Startup;------------------------------------------------------------------------------ Initialise the application
| Properties |
| Events |
| Variables |
AliasEditor : TAliasEditor;
ButtonCancel : TButton;
ButtonDelete : TButton;
ButtonEdit : TButton;
ButtonNew : TButton;
ButtonOK : TButton;
ComboBoxDrivers : TComboBox;
EditName : TEdit;
GroupBoxAliases : TGroupBox;
GroupBoxSelectedAlias : TGroupBox;
LabelDriver : TLabel;
LabelName : TLabel;
LabelParameters : TLabel;
ListBoxAliases : TListBox;
MemoParams : TMemo;
fAppMode : TAppMode;