Changeset 451 for GraphicTest/UMainForm.pas

Timestamp:

Nov 23, 2012, 2:09:49 PM (12 years ago)

Author:

chronos

Message:

• Modified: Real FPS is now measured as cumulative.

File:

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

GraphicTest/UMainForm.pas

@@ -130 +130 @@
     StartTime := NowPrecise;
     FrameCounterStart := NowPrecise;
+    FrameCounterStop := 0;
     FrameCounter := 0;
     repeat
@@ -140 +141 @@
     until TestTerminated or
       ((TestTimeout > 0) and ((NowPrecise - StartTime) > OneSecond * TestTimeout));
-    FPS := GetFPS;
+    FrameCounterStop := NowPrecise;
+    //FPS := GetFPS;
     Done;
   end;
@@ -157 +159 @@
       TestMethod(TDrawMethod(DrawMethods[MethodIndex]));
   finally
-    TimerUpdateList.Enabled := False;
+    //TimerUpdateList.Enabled := False;
     SingleTestActive := False;
     UpdateInterface;
@@ -234 +236 @@
   with TDrawMethod(DrawMethods[Item.Index]) do begin
     Item.Caption := Caption;
+    FPS := GetFPS;
     Item.SubItems.Add(FloatToStr(RoundTo(FPS, -3)));
-    Item.SubItems.Add(FloatToStr(RoundTo(FrameDuration / OneMillisecond, -3)));
+    if FPS > 0 then
+      Item.SubItems.Add(FloatToStr(RoundTo(1 / FPS * 1000, -3)))
+      else Item.SubItems.Add('0');
     if FrameDuration > 0 then
       Item.SubItems.Add(FloatToStr(RoundTo(1 / (FrameDuration / OneSecond), -3)))
       else Item.SubItems.Add('0');
-    Item.SubItems.Add(FloatToStr(RoundTo(StepDuration / OneMillisecond, -3)));
+    Item.SubItems.Add(FloatToStr(RoundTo(FrameDuration / OneMillisecond, -3)));
     if FrameDuration > 0 then
       Item.SubItems.Add(FloatToStr(RoundTo(1 / (StepDuration / OneSecond), -3)))
       else Item.SubItems.Add('0');
+    Item.SubItems.Add(FloatToStr(RoundTo(StepDuration / OneMillisecond, -3)));
   end;
 end;