Class TForm1 (unit uTestClock) |
Inherits from
TForm
Demonstration Of TNuClock component
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
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;
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
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;