Class TfrmSysTree (unit TreeForm) |
Inherits from
TForm
-------------------------------------------------------------} { } { Programmer: Kevin S. Gallagher } { Version: 1.0.0 } { Description: } { This form shows various pieces of information for a PC. } { * System } { * Application } { * Network } { * Language } { * Directory } { * Disk } { * Proccesses } { It is a alternate to the form TfrmInformation which used a } { PageControl with ListViews and ListBoxes to show system } { information. I should point out that TfrmInformation shows } { more information. } { } { Several freeware components are used to retrieve the above } { information (see credits below) } { } { Requires: } { TVersionInfoResource component by Brad Stower. This is a } { usually dropped onto a form and properties are set. } { } { Credits (alpha order) } { Grahame S Marsh } { for lots of code used to retrieve various } { pieces of disk information. } { } { Peter.Plass } { Code to get loaded modules, and List of Windows } { } { Brad Stower } { A great deal of API stuff and components, and of course } { his own components. } { } { NOTE: Although the supplied components are listed as } { Freeware, there are some restricts. Make sure to read the } { headers in the units and all read-me files and legal.txt } { } {-------------------------------------------------------------
procedure cmdDiskReportClick(Sender: TObject);
send report to printer
procedure cmdExitClick(Sender: TObject);
procedure cmdPrintInformationClick(Sender: TObject);
procedure DrivesCBChange(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormResize(Sender: TObject);
ListView1.
procedure ListView1Enter(Sender: TObject);
Insure the first item is highlighted, default is nothing highlighted
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure TreeView1DblClick(Sender: TObject);
procedure ClearListViewHeaders;
procedure FillDiskView;
procedure PopulateAppNode;
procedure PopulateAppsRunNode;
procedure PopulateDirNode;
procedure PopulateDiskNode;
procedure PopulateLangNode;
procedure PopulateModemNode;
procedure PopulateNetNode;
procedure PopulatePrintNode;
procedure PopulateSysNode;
procedure ShowAboutScreen;
cmdDiskReport : TSpeedButton;
cmdExit : TButton;
cmdPrintInformation : TSpeedButton;
cmdWhatsThisHelp : TSpeedButton;
DrivesCB : TComboBox;
lblOnTempPanel : TLabel;
ListView1 : TListView;
Splitter1 : TSplitter;
StatusPanel : TPanel;
TempPanel : TPanel;
ToolPanel : TPanel;
TreeView1 : TTreeView;
ProcLister : TProcList;
Private declarations
procedure cmdDiskReportClick(Sender: TObject);
send report to printer
procedure cmdExitClick(Sender: TObject);
procedure cmdPrintInformationClick(Sender: TObject);
procedure DrivesCBChange(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormResize(Sender: TObject);
ListView1.Selected := ListView1.TopItem;
ListView1.SetFocus;
procedure ListView1Enter(Sender: TObject);
Insure the first item is highlighted, default is nothing highlighted
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure TreeView1DblClick(Sender: TObject);
procedure ClearListViewHeaders;
procedure FillDiskView;
procedure PopulateAppNode;
procedure PopulateAppsRunNode;
procedure PopulateDirNode;
procedure PopulateDiskNode;
procedure PopulateLangNode;
procedure PopulateModemNode;
procedure PopulateNetNode;
procedure PopulatePrintNode;
procedure PopulateSysNode;
procedure ShowAboutScreen;
cmdDiskReport : TSpeedButton;
cmdExit : TButton;
cmdPrintInformation : TSpeedButton;
cmdWhatsThisHelp : TSpeedButton;
DrivesCB : TComboBox;
lblOnTempPanel : TLabel;
ListView1 : TListView;
Splitter1 : TSplitter;
StatusPanel : TPanel;
TempPanel : TPanel;
ToolPanel : TPanel;
TreeView1 : TTreeView;
ProcLister : TProcList;
Private declarations