Changeset 319 for GraphicTest/UMainForm.pas

Timestamp:

Feb 1, 2012, 3:50:43 PM (12 years ago)

Author:

chronos

Message:

• Added: In addition to measure frame data conversion, table show real step duration and FPS include Application.ProcessMessage which cause TImage to draw its data to form and show lower FPS for draw methods which use TImage Bitmap as target.

File:

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

GraphicTest/UMainForm.pas

@@ -117 +117 @@
 
 procedure TMainForm.ButtonSingleTestClick(Sender: TObject);
+var
+  StepStartTime: TDateTime;
 begin
   try
@@ -129 +131 @@
       Application.ProcessMessages;
       repeat
+        StepStartTime := NowPrecise;
         DrawFrameTiming(TFastBitmap(Scenes[SceneIndex]));
         SceneIndex := (SceneIndex + 1) mod Scenes.Count;
         Application.ProcessMessages;
+        StepDuration := NowPrecise - StepStartTime;
       until not SingleTestActive;
     end;
@@ -146 +150 @@
   C: Integer;
   StartTime: TDateTime;
+  StepStartTime: TDateTime;
 begin
   try
@@ -158 +163 @@
       StartTime := NowPrecise;
       repeat
+        StepStartTime := NowPrecise;
         DrawFrameTiming(TFastBitmap(Scenes[SceneIndex]));
         SceneIndex := (SceneIndex + 1) mod Scenes.Count;
         Application.ProcessMessages;
+        StepDuration := NowPrecise - StepStartTime;
       until ((NowPrecise - StartTime) > OneSecond * FloatSpinEdit1.Value) or not AllTestActive;
     end;
@@ -204 +211 @@
     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)));
+    if FrameDuration > 0 then
+      Item.SubItems.Add(FloatToStr(RoundTo(1 / (StepDuration / OneSecond), -3)))
       else Item.SubItems.Add('0');
   end;