Class TForm1 (unit uTestClock)

Inherits from

TForm

Demonstration Of TNuClock component

Constructors



Functions

Procedure Clock6AllPensColorClick(Sender: TObject);


Procedure Clock6BezelColorClick(Sender: TObject);


Procedure Clock6FaceColorClick(Sender: TObject);

clock 6 is the clock with on form controls for properties

Procedure Clock6FaceFontClick(Sender: TObject);


Procedure Clock6HourColorClick(Sender: TObject);


Procedure Clock6HoursLengthChange(Sender: TObject);

the pens can be individually set if required

Procedure Clock6MinuteColorClick(Sender: TObject);


Procedure Clock6MinutesLengthChange(Sender: TObject);


Procedure Clock6SecondColorClick(Sender: TObject);


Procedure Clock6SecondsLengthChange(Sender: TObject);


Procedure Clock6ShowNumeralsClick(Sender: TObject);


Procedure Clock6TickClick(Sender: TObject);


Procedure Clock7GoClick(Sender: TObject);

zero display by setting time To 0, displayed As 00:00

Procedure Clock7ResetClick(Sender: TObject);

clock7 is the photographic timer

Procedure Clock7StopClick(Sender: TObject);

start display.

Procedure Clock89ResetClick(Sender: TObject);

NuClock8 is white

Procedure Clock89SwitchClick(Sender: TObject);


Procedure DateTimePicker1Change(Sender: TObject);

unset the alarm

Procedure FormCreate(Sender: TObject);


Procedure NuClock14ClockTick(Sender: TObject);

clock14 is the one with random color changes

Procedure NuClock7ClockTick(Sender: TObject);

strip off date info from a TDateTime

Procedure DoClock6Tick(Sender:Tobject);


Function TimeOf(ATime:TDateTime):TDateTime;

freeze the clock at time stopped

Properties

Events

Variables

AphotographicTimer : TTabSheet;


BitBtn1 : TBitBtn;


Chessclock : TTabSheet;


Clock6AllPensColor : TBitBtn;


Clock6BezelColor : TBitBtn;


Clock6FaceColor : TBitBtn;


Clock6FaceFont : TBitBtn;


Clock6HourColor : TBitBtn;


Clock6HoursLength : TTrackBar;


Clock6MinuteColor : TBitBtn;


Clock6MinutesLength : TTrackBar;


Clock6SecondColor : TBitBtn;


Clock6SecondsLength : TTrackBar;


Clock6ShowNumerals : TCheckBox;


Clock6Tick : TCheckBox;


Clock7AlarmMode : TCheckBox;


Clock7Go : TBitBtn;


Clock7Reset : TBitBtn;


Clock7Stop : TBitBtn;


Clock89Reset : TBitBtn;


Clock89Switch : TBitBtn;


Clockwithcontrols : TTabSheet;


ColorDialog1 : TColorDialog;


DateTimePicker1 : TDateTimePicker;


FontDialog1 : TFontDialog;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Memo1 : TMemo;


NuClock1 : TNuClock;


NuClock10 : TNuClock;


NuClock11 : TNuClock;


NuClock12 : TNuClock;


NuClock13 : TNuClock;


NuClock14 : TNuClock;


NuClock15 : TNuClock;


NuClock2 : TNuClock;


NuClock3 : TNuClock;


NuClock4 : TNuClock;


NuClock5 : TNuClock;


NuClock6 : TNuClock;


NuClock7 : TNuClock;


NuClock8 : TNuClock;


NuClock9 : TNuClock;


PageControl1 : TPageControl;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


PicturesPanelsandBevels : TTabSheet;


Sillyclocks : TTabSheet;


SimpleClocks : TTabSheet;


StaticText1 : TStaticText;


StaticText10 : TStaticText;


StaticText11 : TStaticText;


StaticText12 : TStaticText;


StaticText13 : TStaticText;


StaticText14 : TStaticText;


StaticText15 : TStaticText;


StaticText2 : TStaticText;


StaticText3 : TStaticText;


StaticText4 : TStaticText;


StaticText5 : TStaticText;


StaticText6 : TStaticText;


StaticText7 : TStaticText;


StaticText8 : TStaticText;


StaticText9 : TStaticText;


Welcome : TTabSheet;


Clock7AlarmIncrement : TDateTime;

Private declarations

Clock7WasReset : Boolean;


Clock8WasReset : Boolean;


Clock9WasReset : Boolean;



Constructors


Functions


Procedure Clock6AllPensColorClick(Sender: TObject);


Procedure Clock6BezelColorClick(Sender: TObject);


Procedure Clock6FaceColorClick(Sender: TObject);

clock 6 is the clock with on form controls for properties


Procedure Clock6FaceFontClick(Sender: TObject);


Procedure Clock6HourColorClick(Sender: TObject);


Procedure Clock6HoursLengthChange(Sender: TObject);

the pens can be individually set if required


Procedure Clock6MinuteColorClick(Sender: TObject);


Procedure Clock6MinutesLengthChange(Sender: TObject);


Procedure Clock6SecondColorClick(Sender: TObject);


Procedure Clock6SecondsLengthChange(Sender: TObject);


Procedure Clock6ShowNumeralsClick(Sender: TObject);


Procedure Clock6TickClick(Sender: TObject);


Procedure Clock7GoClick(Sender: TObject);

zero display by setting time To 0, displayed As 00:00


Procedure Clock7ResetClick(Sender: TObject);

clock7 is the photographic timer


Procedure Clock7StopClick(Sender: TObject);

start display....time=(time when stopped


Procedure Clock89ResetClick(Sender: TObject);

NuClock8 is white


Procedure Clock89SwitchClick(Sender: TObject);


Procedure DateTimePicker1Change(Sender: TObject);

unset the alarm


Procedure FormCreate(Sender: TObject);


Procedure NuClock14ClockTick(Sender: TObject);

clock14 is the one with random color changes


Procedure NuClock7ClockTick(Sender: TObject);

strip off date info from a TDateTime


Procedure DoClock6Tick(Sender:Tobject);


Function TimeOf(ATime:TDateTime):TDateTime;

freeze the clock at time stopped


Properties


Events


Variables


AphotographicTimer : TTabSheet;


BitBtn1 : TBitBtn;


Chessclock : TTabSheet;


Clock6AllPensColor : TBitBtn;


Clock6BezelColor : TBitBtn;


Clock6FaceColor : TBitBtn;


Clock6FaceFont : TBitBtn;


Clock6HourColor : TBitBtn;


Clock6HoursLength : TTrackBar;


Clock6MinuteColor : TBitBtn;


Clock6MinutesLength : TTrackBar;


Clock6SecondColor : TBitBtn;


Clock6SecondsLength : TTrackBar;


Clock6ShowNumerals : TCheckBox;


Clock6Tick : TCheckBox;


Clock7AlarmMode : TCheckBox;


Clock7Go : TBitBtn;


Clock7Reset : TBitBtn;


Clock7Stop : TBitBtn;


Clock89Reset : TBitBtn;


Clock89Switch : TBitBtn;


Clockwithcontrols : TTabSheet;


ColorDialog1 : TColorDialog;


DateTimePicker1 : TDateTimePicker;


FontDialog1 : TFontDialog;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Memo1 : TMemo;


NuClock1 : TNuClock;


NuClock10 : TNuClock;


NuClock11 : TNuClock;


NuClock12 : TNuClock;


NuClock13 : TNuClock;


NuClock14 : TNuClock;


NuClock15 : TNuClock;


NuClock2 : TNuClock;


NuClock3 : TNuClock;


NuClock4 : TNuClock;


NuClock5 : TNuClock;


NuClock6 : TNuClock;


NuClock7 : TNuClock;


NuClock8 : TNuClock;


NuClock9 : TNuClock;


PageControl1 : TPageControl;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


PicturesPanelsandBevels : TTabSheet;


Sillyclocks : TTabSheet;


SimpleClocks : TTabSheet;


StaticText1 : TStaticText;


StaticText10 : TStaticText;


StaticText11 : TStaticText;


StaticText12 : TStaticText;


StaticText13 : TStaticText;


StaticText14 : TStaticText;


StaticText15 : TStaticText;


StaticText2 : TStaticText;


StaticText3 : TStaticText;


StaticText4 : TStaticText;


StaticText5 : TStaticText;


StaticText6 : TStaticText;


StaticText7 : TStaticText;


StaticText8 : TStaticText;


StaticText9 : TStaticText;


Welcome : TTabSheet;


Clock7AlarmIncrement : TDateTime;

Private declarations


Clock7WasReset : Boolean;


Clock8WasReset : Boolean;


Clock9WasReset : Boolean;