- Var TimeFactor:Single; //global
- ...
- procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
- Var
- QPCStart:Int64;
- QPCEnd:Int64;
- Begin
- QueryPerformanceCounter(QPCStart);
- Render;
- QueryPerformanceCounter(QPCEnd);
- TimeFactor := (QPCEnd-QPCStart) / QPCFreq;
- End;