Class TfrmDelphiReg (unit DelphiInfo)

Inherits from

TForm

*******************************************************************} { Description: Project Manager } { Programmer: Kevin S Gallagher gallaghe@teleport.com } { Requires: TBrkApart component (FreeWare) } { Versions: 2 and 3 of Delphi } { Comments: Code works but needs polishing up } {

Constructors



Functions

procedure cmdCodeInSightClick(Sender: TObject);


procedure cmdExitDemoClick(Sender: TObject);


procedure cmdFlushCurrentSessionClick(Sender: TObject);

The following may not goto the last occurance if you execute this event several times

procedure cmdGetSearchPathClick(Sender: TObject);

Only except indented items

procedure cmdHistoryListClick(Sender: TObject);


procedure cmdLastSessionClick(Sender: TObject);

Could have used AddStrings if not for indenting

procedure cmdSetSessionClick(Sender: TObject);


procedure cmdWhereIsDelphi3InstalledClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure ListBox1DblClick(Sender: TObject);


procedure ListBox1KeyPress(Sender: TObject; var Key: Char);


procedure AppOnHint(Sender: TObject);

Private declarations

Properties

Events

Variables

BrkApart1 : TBrkApart;


cmdCodeInSight : TButton;


cmdExitDemo : TButton;


cmdFlushCurrentSession : TButton;


cmdGetSearchPath : TButton;


cmdHistoryList : TButton;


cmdLastSession : TButton;


cmdSetSession : TButton;


cmdWhereIsDelphi3Installed : TButton;


ListBox1 : TListBox;


Panel1 : TPanel;


StatusBar1 : TStatusBar;



Constructors


Functions


procedure cmdCodeInSightClick(Sender: TObject);


procedure cmdExitDemoClick(Sender: TObject);


procedure cmdFlushCurrentSessionClick(Sender: TObject);

The following may not goto the last occurance if you execute this event several times


procedure cmdGetSearchPathClick(Sender: TObject);

Only except indented items


procedure cmdHistoryListClick(Sender: TObject);


procedure cmdLastSessionClick(Sender: TObject);

Could have used AddStrings if not for indenting


procedure cmdSetSessionClick(Sender: TObject);


procedure cmdWhereIsDelphi3InstalledClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure ListBox1DblClick(Sender: TObject);


procedure ListBox1KeyPress(Sender: TObject; var Key: Char);


procedure AppOnHint(Sender: TObject);

Private declarations


Properties


Events


Variables


BrkApart1 : TBrkApart;


cmdCodeInSight : TButton;


cmdExitDemo : TButton;


cmdFlushCurrentSession : TButton;


cmdGetSearchPath : TButton;


cmdHistoryList : TButton;


cmdLastSession : TButton;


cmdSetSession : TButton;


cmdWhereIsDelphi3Installed : TButton;


ListBox1 : TListBox;


Panel1 : TPanel;


StatusBar1 : TStatusBar;