Changeset 449

Timestamp:

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

Author:

chronos

Message:

 

Location:

GraphicTest

Files:

• Methods/UBitmapRawImageDataPaintBox.pas (modified) (1 diff)
• UDrawMethod.pas (modified) (3 diffs)
• UMainForm.pas (modified) (2 diffs)

GraphicTest/Methods/UBitmapRawImageDataPaintBox.pas

@@ -36 +36 @@
   hBmp := TempBitmap.Canvas.Handle;
   hPaint := PaintBox.Canvas.Handle;
-  PaintBox.Canvas.CopyRect(Rect(0, 0, PaintBox.Width, PaintBox.Height), TempBitmap.Canvas,
-    Rect(0, 0, TempBitmap.Width, TempBitmap.Height));
- // PaintBox.Canvas.Draw(0, 0, TempBitmap);
+  //PaintBox.Canvas.CopyRect(Rect(0, 0, PaintBox.Width, PaintBox.Height), TempBitmap.Canvas,
+  //  Rect(0, 0, TempBitmap.Width, TempBitmap.Height));
+  PaintBox.Canvas.Draw(0, 0, TempBitmap);
   //BitBlt(hPaint, 0, 0, TempBitmap.Width, TempBitmap.Height, hBmp, 0, 0, srcCopy);
 end;

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 }
 

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;