TClockSeriesGetTimeEvent

All Units All Classes Properties, Methods and Events

TClockSeriesGetTimeEvent

type TClockSeriesGetTimeEvent = procedure(Sender: TClockSeries; Var ATime: TDateTime) of object;

Unit
TeeRose

Description
TClockSeriesGetTimeEvent is used by the TClockSeries.
This event is triggered at every second, offering the possibility to change the displayed time.

You can use this event to "fake" the actual time displayed in the clock, by passing a different time value:

procedure TForm1.Series3GetTime(Sender: TClockSeries;
var ATime: TDateTime);
var hour, min, sec, msec: Word;
begin
DecodeTime( ATime, hour, min, sec, msec );
hour:=hour+1;
if hour > 23 then hour:=0;
ATime := EncodeTime( hour, min, sec, msec );
end;