Class TfrmGenList (unit LstWiz)

Inherits from

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;

--------------------------------------------------------------------} { Appends new List class to interface and implementation sections.

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;