Class TMainForm (unit Timeunit) |
Inherits from
TForm
----------------------------------------------------------------------
Written by Dan Statham, July/August 1995.
Copyright: Dan Statham, July 1995.
Updated: A. Arnold October/November 1995.
The program will keep track of the hours/minutes/seconds that
you are connected to an Internet provider or an online service.
------------------------------------------------------------------------
procedure AnalogClock1Click(Sender: TObject);
TMainForm.
procedure AutoSense1Click(Sender: TObject);
Check Port
procedure CheckPort(Sender: TObject);
TimeStrToHMSInt
procedure FileExit(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Becomes a variable in a
future version
procedure HelpAboutItemClick(Sender: TObject);
TMainForm.
procedure KeepLog (sbtnStartStop :TSpeedButton; DiffTime, MyTime :String);
TMainForm.
procedure KeepLog1Click(Sender: TObject);
TMainForm.
procedure PreSetMenuClick(Sender: TObject);
procedure ResetMenuClick(Sender: TObject);
TMainForm.
procedure SetFreeMenuClick(Sender: TObject);
TMainForm.
procedure StartMenuClick(Sender: TObject);
procedure StartStop1Click(Sender: TObject);
TMainForm.
procedure StopMenuClick(Sender: TObject);
StartMenuClick(
procedure TimerIntervalTimer(Sender: TObject);
TMainForm.
procedure WinMsg(var Msg:TMsg; var Handled:Boolean);
TMainForm.
procedure FindRealHours (var RealHours : Real);
case
procedure SetMyTime (xTime : TimeRec; var MyTime : String);
TMainForm.
Procedure TimeToHMSInt(xTime:TDateTime; var xH:Integer; var xM:Integer; var xS:Integer);
Needed?
Procedure UpdateIniFile;
TMainForm.
AboutPuMenu : TMenuItem;
AnalogClock1 : TAnalogClock;
AutomaticallySenseComPort1 : TMenuItem;
AutoSense1 : TMenuItem;
BalloonHint1 : TBalloonHint;
ExitPUMenu : TMenuItem;
FileExitItem : TMenuItem;
KeepLog1 : TMenuItem;
KeepLogPUmenu : TMenuItem;
MainMenu : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
PopupMenu1 : TPopupMenu;
PreSetMenu : TMenuItem;
PreSetPuMenu : TMenuItem;
ResetMenu : TMenuItem;
ResetPUmenu : TMenuItem;
sbtnStartStop : TSpeedButton;
SetFreeHoursPuMenu : TMenuItem;
SetFreeMenu : TMenuItem;
SetupMenu : TMenuItem;
SpdBtnAbout : TSpeedButton;
SpdBtnExit : TSpeedButton;
SpeedBar : TPanel;
StartMenu : TMenuItem;
StartStopPUMenu : TMenuItem;
StopMenu : TMenuItem;
TimerInterval : TTimer;
TimerMenu : TMenuItem;
WatchPortTimer : TTimer;
procedure AnalogClock1Click(Sender: TObject);
TMainForm.UpdateIniFile
procedure AutoSense1Click(Sender: TObject);
Check Port
procedure CheckPort(Sender: TObject);
TimeStrToHMSInt
procedure FileExit(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Becomes a variable in a
future version
procedure HelpAboutItemClick(Sender: TObject);
TMainForm.ResetMenuClick
procedure KeepLog (sbtnStartStop :TSpeedButton; DiffTime, MyTime :String);
TMainForm.StartStop1Click
procedure KeepLog1Click(Sender: TObject);
TMainForm.AnalogClock1Click
procedure PreSetMenuClick(Sender: TObject);
procedure ResetMenuClick(Sender: TObject);
TMainForm.SetMyTime
procedure SetFreeMenuClick(Sender: TObject);
TMainForm.PreSetMenuClick
procedure StartMenuClick(Sender: TObject);
procedure StartStop1Click(Sender: TObject);
TMainForm.StopMenuClick
procedure StopMenuClick(Sender: TObject);
StartMenuClick(
procedure TimerIntervalTimer(Sender: TObject);
TMainForm.KeepLog
procedure WinMsg(var Msg:TMsg; var Handled:Boolean);
TMainForm.FormCreate
procedure FindRealHours (var RealHours : Real);
case
procedure SetMyTime (xTime : TimeRec; var MyTime : String);
TMainForm.TimerIntervalTimer
Procedure TimeToHMSInt(xTime:TDateTime; var xH:Integer; var xM:Integer; var xS:Integer);
Needed?
Procedure UpdateIniFile;
TMainForm.FormClose
AboutPuMenu : TMenuItem;
AnalogClock1 : TAnalogClock;
AutomaticallySenseComPort1 : TMenuItem;
AutoSense1 : TMenuItem;
BalloonHint1 : TBalloonHint;
ExitPUMenu : TMenuItem;
FileExitItem : TMenuItem;
KeepLog1 : TMenuItem;
KeepLogPUmenu : TMenuItem;
MainMenu : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
PopupMenu1 : TPopupMenu;
PreSetMenu : TMenuItem;
PreSetPuMenu : TMenuItem;
ResetMenu : TMenuItem;
ResetPUmenu : TMenuItem;
sbtnStartStop : TSpeedButton;
SetFreeHoursPuMenu : TMenuItem;
SetFreeMenu : TMenuItem;
SetupMenu : TMenuItem;
SpdBtnAbout : TSpeedButton;
SpdBtnExit : TSpeedButton;
SpeedBar : TPanel;
StartMenu : TMenuItem;
StartStopPUMenu : TMenuItem;
StopMenu : TMenuItem;
TimerInterval : TTimer;
TimerMenu : TMenuItem;
WatchPortTimer : TTimer;