Changeset 449 for GraphicTest/UDrawMethod.pas

Timestamp:

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

Author:

chronos

Message:

 

File:

• GraphicTest/UDrawMethod.pas (modified) (3 diffs)

GraphicTest/UDrawMethod.pas

@@ -19 +19 @@
   private
     FControl: TControl;
-    function GetFPS: Real;
+    FFPS: Real;
   public
     Caption: string;
@@ -30 +30 @@
     FrameCounter: Integer;
     FrameCounterStart: TDateTime;
-    property FPS: Real read GetFPS;
+    function GetFPS: Real;
+    property FPS: Real read FFPS write FFPS;
     procedure Init(Parent: TWinControl; Size: TPoint); virtual;
     procedure Done; virtual;
@@ -60 +61 @@
 
   {$IFDEF opengl}
+
   { TDrawMethodOpenGL }