| Class TMainForm (unit DfMain) |
TForm
| Constructors |
| Functions |
procedure Exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure PopupMenu1Popup(Sender: TObject);
procedure Setup1Click(Sender: TObject);
procedure TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DrivesItemClick(Sender: TObject);
procedure GetDrivesInfo;
procedure UpdateHint;
procedure UpdateMenu;| Properties |
| Events |
| Variables |
Exit1 : TMenuItem;
N1 : TMenuItem;
PopupMenu1 : TPopupMenu;
Setup1 : TMenuItem;
TrayIcon1 : TTrayIcon;
Decimals : Byte;
Measure : Byte;
Qualified : Boolean;
ShowAllDrives : Boolean;
Drives : TStringList;| Constructors |
| Functions |
procedure Exit1Click(Sender: TObject);Update drives info immediately
procedure FormCreate(Sender: TObject);-------------------- TMainForm -----------------------
procedure FormDestroy(Sender: TObject);Get initial drives info (for initialization) TrayIcon1MouseMove(Self, [], 0, 0);
procedure PopupMenu1Popup(Sender: TObject);This is where the drive info is displayed
procedure Setup1Click(Sender: TObject);
procedure TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DrivesItemClick(Sender: TObject);Now create and insert a menu item for the drive
procedure GetDrivesInfo;Stores the drive info strings
procedure UpdateHint;Store type of drive along with the string
procedure UpdateMenu;Only assign new hint to the tray icon in case the hint changes. This avoids unnecessary cursor blinking.
| Properties |
| Events |
| Variables |
Exit1 : TMenuItem;
N1 : TMenuItem;
PopupMenu1 : TPopupMenu;
Setup1 : TMenuItem;
TrayIcon1 : TTrayIcon;
Decimals : Byte;
Measure : Byte;Show type of drives in the popup menu?
Qualified : Boolean;Show all drives in the popup menu?
ShowAllDrives : Boolean;# decimals in drive info
Drives : TStringList;Show free space in KB, MB, or GB?