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 } {
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
BrkApart1 : TBrkApart;
cmdCodeInSight : TButton;
cmdExitDemo : TButton;
cmdFlushCurrentSession : TButton;
cmdGetSearchPath : TButton;
cmdHistoryList : TButton;
cmdLastSession : TButton;
cmdSetSession : TButton;
cmdWhereIsDelphi3Installed : TButton;
ListBox1 : TListBox;
Panel1 : TPanel;
StatusBar1 : TStatusBar;
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
BrkApart1 : TBrkApart;
cmdCodeInSight : TButton;
cmdExitDemo : TButton;
cmdFlushCurrentSession : TButton;
cmdGetSearchPath : TButton;
cmdHistoryList : TButton;
cmdLastSession : TButton;
cmdSetSession : TButton;
cmdWhereIsDelphi3Installed : TButton;
ListBox1 : TListBox;
Panel1 : TPanel;
StatusBar1 : TStatusBar;