Привет.
Как можно узнать сколько кадров в секунду рисует мой компонент?
Пытался сделать так:
procedure TCoordinatePlane.Paint;
var
aBM: TStopwatch;
begin
aBM := TStopwatch.Create;
try
aBM.Start;
inherited Paint;
FCells.DrawShape(Self);
PaintXY;
PaintAllShapes;
PaintDebugInfo;
aBM.Stop;
Canvas.TextOut(0, 20, (1 / aBM.Elapsed.TotalSeconds).ToString);
finally
// aBM.Free;
end;
end;
Выдает значения довольно разные(В зависимости от масштаба) от 30 .. >1000. Как то не доверяю этим значениям. Можете подсказать как правильно сделать замер FPS?