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 } { } {-------------------------------------------------------------

Constructors



Functions

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;


Properties

Events

Variables

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


Constructors


Functions


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;


Properties


Events


Variables


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