TClockSeries.OnGetTime
TClockSeries
property OnGetTime: TClockSeriesGetTimeEvent;
Unit
TeeRose
Description
Event called by the clock series when it's about to change the clock arrows.
By default this event is called every second, depending on the Timer.Interval property.
You can use this event to "fake" the clock, passing a different datetime 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;