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;