Changeset 449 for GraphicTest/UMainForm.pas

Timestamp:

Nov 22, 2012, 3:02:54 PM (12 years ago)

Author:

chronos

Message:

 

File:

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

GraphicTest/UMainForm.pas

@@ -127 +127 @@
     //Application.ProcessMessages;
     StartTime := NowPrecise;
+    FrameCounterStart := NowPrecise;
+    FrameCounter := 0;
     repeat
       StepStartTime := NowPrecise;
@@ -136 +138 @@
     until TestTerminated or
       ((TestTimeout > 0) and ((NowPrecise - StartTime) > OneSecond * TestTimeout));
+    FPS := GetFPS;
     Done;
   end;