| Class TfrmDelphiReg (unit DelphiInfo) |
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);
procedure cmdGetSearchPathClick(Sender: TObject);
procedure cmdHistoryListClick(Sender: TObject);
procedure cmdLastSessionClick(Sender: TObject);
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);| 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;