Changeset 317 for GraphicTest/UDrawMethod.pas

Timestamp:

Feb 1, 2012, 3:02:33 PM (12 years ago)

Author:

chronos

Message:

• Modified: Updated BGRABitmap package to version 5.5.
• Modified: Removed draw method ComboBox and reorganized method list to single listview with using ownerdraw facility.
• Added: New draw method TBitmap.RawImage.Data Move which use fast Move operation. It requires same pixel format.
• Added: New draw method Dummy for comparion of empty method and to determine possibily max frame rate limit.

File:

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

GraphicTest/UDrawMethod.pas

@@ -41 +41 @@
   TDrawMethodClass = class of TDrawMethod;
 
+  { TDummyMethod }
+
+  TDummyMethod = class(TDrawMethod)
+    constructor Create; override;
+    procedure DrawFrame(FastBitmap: TFastBitmap); override;
+  end;
+
   { TCanvasPixels }
 
@@ -84 +91 @@
 
   TBitmapRawImageDataPaintBox = class(TDrawMethod)
+    constructor Create; override;
+    procedure DrawFrame(FastBitmap: TFastBitmap); override;
+  end;
+
+  { TBitmapRawImageDataMove }
+
+  TBitmapRawImageDataMove = class(TDrawMethod)
     constructor Create; override;
     procedure DrawFrame(FastBitmap: TFastBitmap); override;
@@ -121 +135 @@
 
 const
-  DrawMethodClasses: array[0..8] of TDrawMethodClass = (
+  DrawMethodClasses: array[0..10] of TDrawMethodClass = (
     TCanvasPixels, TCanvasPixelsUpdateLock, TLazIntfImageColorsCopy,
     TLazIntfImageColorsNoCopy, TBitmapRawImageData, TBitmapRawImageDataPaintBox,
-    TBGRABitmapPaintBox, TOpenGLMethod, TOpenGLPBOMethod);
+    TBitmapRawImageDataMove, TBGRABitmapPaintBox, TOpenGLMethod, TOpenGLPBOMethod,
+    TDummyMethod);
 
 implementation
+
+{ TDummyMethod }
+
+constructor TDummyMethod.Create;
+begin
+  inherited Create;
+  Caption := 'Dummy';
+end;
+
+procedure TDummyMethod.DrawFrame(FastBitmap: TFastBitmap);
+var
+  Y, X: Integer;
+  PixelPtr: PInteger;
+  RowPtr: PInteger;
+  P: TPixelFormat;
+  RawImage: TRawImage;
+  BytePerPixel: Integer;
+  BytePerRow: Integer;
+begin
+  P := Bitmap.PixelFormat;
+    with FastBitmap do
+    try
+      //Bitmap.BeginUpdate(False);
+      RawImage := Bitmap.RawImage;
+      RowPtr := PInteger(RawImage.Data);
+      BytePerPixel := RawImage.Description.BitsPerPixel div 8;
+      BytePerRow := RawImage.Description.BytesPerLine;
+    finally
+      //Bitmap.EndUpdate(False);
+    end;
+end;
+
+{ TBitmapRawImageDataMove }
+
+constructor TBitmapRawImageDataMove.Create;
+begin
+  inherited;
+  Caption := 'TBitmap.RawImage.Data Move';
+end;
+
+procedure TBitmapRawImageDataMove.DrawFrame(FastBitmap: TFastBitmap);
+var
+  Y, X: Integer;
+  PixelPtr: PInteger;
+  RowPtr: PInteger;
+  P: TPixelFormat;
+  RawImage: TRawImage;
+  BytePerPixel: Integer;
+  BytePerRow: Integer;
+begin
+  P := Bitmap.PixelFormat;
+    with FastBitmap do
+    try
+      Bitmap.BeginUpdate(False);
+      RawImage := Bitmap.RawImage;
+      RowPtr := PInteger(RawImage.Data);
+      BytePerPixel := RawImage.Description.BitsPerPixel div 8;
+      BytePerRow := RawImage.Description.BytesPerLine;
+      Move(FastBitmap.PixelsData^, RowPtr^, Size.Y * BytePerRow);
+    finally
+      Bitmap.EndUpdate(False);
+    end;
+end;
 
 { TOpenGLPBOMethod }
@@ -455 +533 @@
 
 procedure TBitmapRawImageData.DrawFrame(FastBitmap: TFastBitmap);
-type
-  TFastBitmapPixelComponents = packed record
-  end;
 var
   Y, X: Integer;