| Class TMainForm (unit Timeunit) |
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. ------------------------------------------------------------------------
| Constructors |
| Functions |
procedure AnalogClock1Click(Sender: TObject);
procedure AutoSense1Click(Sender: TObject);
procedure CheckPort(Sender: TObject);
procedure FileExit(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure HelpAboutItemClick(Sender: TObject);
procedure KeepLog (sbtnStartStop :TSpeedButton; DiffTime, MyTime :String);
procedure KeepLog1Click(Sender: TObject);
procedure PreSetMenuClick(Sender: TObject);
procedure ResetMenuClick(Sender: TObject);
procedure SetFreeMenuClick(Sender: TObject);
procedure StartMenuClick(Sender: TObject);
procedure StartStop1Click(Sender: TObject);
procedure StopMenuClick(Sender: TObject);
procedure TimerIntervalTimer(Sender: TObject);
procedure WinMsg(var Msg:TMsg; var Handled:Boolean);
procedure FindRealHours (var RealHours : Real);
procedure SetMyTime (xTime : TimeRec; var MyTime : String);
Procedure TimeToHMSInt(xTime:TDateTime; var xH:Integer; var xM:Integer; var xS:Integer);
Procedure UpdateIniFile;| Properties |
| Events |
| Variables |
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;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
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;