Changeset 448 for GraphicTest/UDrawMethod.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/UDrawMethod.pas (modified) (4 diffs)

GraphicTest/UDrawMethod.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, ExtCtrls, UPlatform, UFastBitmap, Graphics, Controls,
-  LCLType, IntfGraphics, fpImage, GraphType,
+  LCLType, IntfGraphics, fpImage, GraphType, DateUtils,
   LclIntf{$IFDEF opengl}, GL, GLExt, OpenGLContext{$ENDIF};
 
@@ -19 +19 @@
   private
     FControl: TControl;
+    function GetFPS: Real;
   public
     Caption: string;
@@ -27 +28 @@
     PaintObject: TPaintObject;
     TempBitmap: TBitmap;
+    FrameCounter: Integer;
+    FrameCounterStart: TDateTime;
+    property FPS: Real read GetFPS;
     procedure Init(Parent: TWinControl; Size: TPoint); virtual;
     procedure Done; virtual;
@@ -173 +177 @@
 { TDrawMethod }
 
+function TDrawMethod.GetFPS: Real;
+begin
+  Result := FrameCounter / ((NowPrecise - FrameCounterStart) / OneSecond);
+  FrameCounter := 0;
+  FrameCounterStart := NowPrecise;
+end;
+
 procedure TDrawMethod.Init(Parent: TWinControl; Size: TPoint);
 begin