| Class TfrmGenList (unit LstWiz) |
TForm
| Constructors |
| Functions |
procedure btnBackClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure btnNextClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure lstClassesClick(Sender: TObject);
procedure CreateListClass;
function ExtractClassDefs: boolean;
procedure SetButtonCaptions;| Properties |
| Events |
| Variables |
btnBack : TButton;
btnCancel : TButton;
btnNext : TButton;
dcbDrive : TDriveComboBox;
dlbDirectory : TDirectoryListBox;
fcbFilter : TFilterComboBox;
flbFile : TFileListBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
lstClasses : TListBox;
Notebook1 : TNotebook;
Panel1 : TPanel;
txtListClassName : TEdit;| Constructors |
| Functions |
procedure btnBackClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure btnNextClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure lstClassesClick(Sender: TObject);
procedure CreateListClass;--------------------------------------------------------------------} { Appends new List class to interface and implementation sections. } { A backup of original source is made to filename.BAK. } { } { This routine depends on the Template file being in the directory } { from which the wizard was executed. } {--------------------------------------------------------------------
function ExtractClassDefs: boolean;
procedure SetButtonCaptions;| Properties |
| Events |
| Variables |
btnBack : TButton;
btnCancel : TButton;
btnNext : TButton;
dcbDrive : TDriveComboBox;
dlbDirectory : TDirectoryListBox;
fcbFilter : TFilterComboBox;
flbFile : TFileListBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
lstClasses : TListBox;
Notebook1 : TNotebook;
Panel1 : TPanel;
txtListClassName : TEdit;