Changeset 448 for GraphicTest/UMainForm.pas

Timestamp:

Nov 22, 2012, 2:45:14 PM (12 years ago)

Author:

chronos

Message:

• Added: Column which show real FPS calculated using frames counter and elapsed time.

File:

• GraphicTest/UMainForm.pas (modified) (2 diffs)

GraphicTest/UMainForm.pas

@@ -130 +130 @@
       StepStartTime := NowPrecise;
       DrawFrameTiming(TFastBitmap(Scenes[SceneIndex]));
-      SceneIndex := (SceneIndex + 1) mod Scenes.Count;
       Application.ProcessMessages;
       StepDuration := NowPrecise - StepStartTime;
+      SceneIndex := (SceneIndex + 1) mod Scenes.Count;
+      Inc(FrameCounter);
     until TestTerminated or
       ((TestTimeout > 0) and ((NowPrecise - StartTime) > OneSecond * TestTimeout));
@@ -221 +222 @@
   with TDrawMethod(DrawMethods[Item.Index]) do begin
     Item.Caption := Caption;
+    Item.SubItems.Add(FloatToStr(RoundTo(FPS, -3)));
     Item.SubItems.Add(FloatToStr(RoundTo(FrameDuration / OneMillisecond, -3)));
     if FrameDuration > 0 then