Class TFormMain (unit Main) |
Inherits from
TForm
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
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;
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
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;