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. ------------------------------------------------------------------------

Constructors



Functions

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.

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;