Changeset 202 for GraphicTest/UDrawMethod.pas

Timestamp:

Mar 17, 2011, 9:38:21 AM (14 years ago)

Author:

george

Message:

• Added: TBGRABitmap.ScanLine method.
• Modified: All draw methods objects are allocated on program creation now.

File:

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

GraphicTest/UDrawMethod.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UPlatform, UFastBitmap, Graphics,
-  LCLType, IntfGraphics, fpImage, GraphType;
+  Classes, SysUtils, StdCtrls, ExtCtrls, UPlatform, UFastBitmap, Graphics,
+  LCLType, IntfGraphics, fpImage, GraphType, BGRABitmap, BGRABitmapTypes,
+  LclIntf;
 
 type
@@ -14 +15 @@
 
   TDrawMethod = class
+  private
+    FBitmap: TBitmap;
+    TempBitmap: TBitmap;
+    FPaintBox: TPaintBox;
+    procedure SetBitmap(const AValue: TBitmap); virtual;
+    procedure SetPaintBox(const AValue: TPaintBox);
   public
     Caption: string;
     Terminated: Boolean;
-    Bitmap: TBitmap;
     FrameDuration: TDateTime;
     constructor Create; virtual;
+    destructor Destroy; override;
     procedure DrawFrame(FastBitmap: TFastBitmap); virtual;
     procedure DrawFrameTiming(FastBitmap: TFastBitmap);
-    procedure DrawLoop;
+    property Bitmap: TBitmap read FBitmap write SetBitmap;
+    property PaintBox: TPaintBox read FPaintBox write SetPaintBox;
   end;
 
@@ -54 +62 @@
   TLazIntfImageColorsNoCopy = class(TDrawMethod)
     TempIntfImage: TLazIntfImage;
+    procedure SetBitmap(const AValue: TBitmap); override;
     constructor Create; override;
     destructor Destroy; override;
@@ -73 +82 @@
   end;
 
+  { TBGRABitmapPaintBox }
+
+  TBGRABitmapPaintBox = class(TDrawMethod)
+    BGRABitmap: TBGRABitmap;
+    procedure SetBitmap(const AValue: TBitmap); override;
+    constructor Create; override;
+    destructor Destroy; override;
+    procedure DrawFrame(FastBitmap: TFastBitmap); override;
+  end;
+
 const
-  DrawMethodClasses: array[0..5] of TDrawMethodClass = (
+  DrawMethodClasses: array[0..6] of TDrawMethodClass = (
     TCanvasPixels, TCanvasPixelsUpdateLock, TLazIntfImageColorsCopy,
-    TLazIntfImageColorsNoCopy, TBitmapRawImageData, TBitmapRawImageDataPaintBox);
+    TLazIntfImageColorsNoCopy, TBitmapRawImageData, TBitmapRawImageDataPaintBox,
+    TBGRABitmapPaintBox);
 
 implementation
 
+{ TBGRABitmapPaintBox }
+
+procedure TBGRABitmapPaintBox.SetBitmap(const AValue: TBitmap);
+begin
+  inherited;
+  BGRABitmap.SetSize(Bitmap.Width, Bitmap.Height);
+end;
+
+constructor TBGRABitmapPaintBox.Create;
+begin
+  inherited;
+  Caption := 'TBGRABitmap PaintBox';
+  BGRABitmap := TBGRABitmap.Create(0, 0);
+end;
+
+destructor TBGRABitmapPaintBox.Destroy;
+begin
+  BGRABitmap.Free;
+  inherited Destroy;
+end;
+
+procedure TBGRABitmapPaintBox.DrawFrame(FastBitmap: TFastBitmap);
+var
+  X, Y: Integer;
+  P: PBGRAPixel;
+begin
+  with FastBitmap do
+  for Y := 0 to Size.Y - 1 do begin
+    P := BGRABitmap.ScanLine[Y];
+    for X := 0 to Size.X - 1 do begin
+      P^.red := Pixels[X, Y];
+      P^.green := Pixels[X, Y];
+      P^.blue := Pixels[X, Y];
+      P^.alpha := 255;
+      Inc(P);
+    end;
+  end;
+  BGRABitmap.InvalidateBitmap; // changed by direct access
+  //BGRABitmap.Draw(Bitmap.Canvas, 0, 0, False);
+  BGRABitmap.Draw(PaintBox.Canvas, 0, 0, True);
+end;
+
 { TBitmapRawImageDataPaintBox }
 
 constructor TBitmapRawImageDataPaintBox.Create;
 begin
+  inherited;
   Caption := 'TBitmap.RawImage.Data PaintBox';
 end;
@@ -95 +158 @@
   BytePerPixel: Integer;
   hPaint, hBmp: HDC;
+begin
+  P := TempBitmap.PixelFormat;
+    with FastBitmap do
+    try
+      TempBitmap.BeginUpdate(False);
+      RawImage := TempBitmap.RawImage;
+      PixelPtr := PInteger(RawImage.Data);
+      BytePerPixel := RawImage.Description.BitsPerPixel div 8;
+      for X := 0 to Size.X - 1 do
+        for Y := 0 to Size.Y - 1 do begin
+          PixelPtr^ := Pixels[X, Y] * $010101;
+          Inc(PByte(PixelPtr), BytePerPixel);
+        end;
+    finally
+      TempBitmap.EndUpdate(False);
+    end;
+    hBmp := TempBitmap.Canvas.Handle;
+    hPaint := PaintBox.Canvas.Handle;
+    PaintBox.Canvas.CopyRect(Rect(0, 0, Bitmap.Width, Bitmap.Height), TempBitmap.Canvas,
+      Rect(0, 0, TempBitmap.Width, TempBitmap.Height));
+    //BitBlt(hPaint, 0, 0, TempBitmap.Width, TempBitmap.Height, hBmp, 0, 0, srcCopy);
+end;
+
+{ TBitmapRawImageData }
+
+constructor TBitmapRawImageData.Create;
+begin
+  inherited;
+  Caption := 'TBitmap.RawImage.Data';
+end;
+
+procedure TBitmapRawImageData.DrawFrame(FastBitmap: TFastBitmap);
+var
+  Y, X: Integer;
+  PixelPtr: PInteger;
+  P: TPixelFormat;
+  RawImage: TRawImage;
+  BytePerPixel: Integer;
 begin
   P := Bitmap.PixelFormat;
@@ -111 +212 @@
       Bitmap.EndUpdate(False);
     end;
-    hBmp := Bitmap.Canvas.Handle;
-    //hPaint := PaintBox1.Canvas.Handle;
-    //BitBlt(hPaint, 0, 0, Bitmap.Width, Bitmap.Height, hBmp, 0, 0, srcCopy);
-end;
-
-{ TBitmapRawImageData }
-
-constructor TBitmapRawImageData.Create;
-begin
-  Caption := 'TBitmap.RawImage.Data';
-end;
-
-procedure TBitmapRawImageData.DrawFrame(FastBitmap: TFastBitmap);
-var
-  Y, X: Integer;
-  PixelPtr: PInteger;
-  P: TPixelFormat;
-  RawImage: TRawImage;
-  BytePerPixel: Integer;
-begin
-  P := Bitmap.PixelFormat;
-    with FastBitmap do
-    try
-      Bitmap.BeginUpdate(False);
-      RawImage := Bitmap.RawImage;
-      PixelPtr := PInteger(RawImage.Data);
-      BytePerPixel := RawImage.Description.BitsPerPixel div 8;
-      for X := 0 to Size.X - 1 do
-        for Y := 0 to Size.Y - 1 do begin
-          PixelPtr^ := Pixels[X, Y] * $010101;
-          Inc(PByte(PixelPtr), BytePerPixel);
-        end;
-    finally
-      Bitmap.EndUpdate(False);
-    end;
 end;
 
 { TLazIntfImageColorsNoCopy }
 
+procedure TLazIntfImageColorsNoCopy.SetBitmap(const AValue: TBitmap);
+begin
+  inherited SetBitmap(AValue);
+  TempIntfImage.Free;
+  TempIntfImage := Bitmap.CreateIntfImage;
+end;
+
 constructor TLazIntfImageColorsNoCopy.Create;
 begin
+  inherited;
   Caption := 'TLazIntfImage.Colors no copy';
 end;
@@ -166 +240 @@
 begin
   with FastBitmap do begin
-    if not Assigned(TempIntfImage) then
-      TempIntfImage := Bitmap.CreateIntfImage;
     for X := 0 to Size.X - 1 do
       for Y := 0 to Size.Y - 1 do
@@ -179 +251 @@
 constructor TLazIntfImageColorsCopy.Create;
 begin
+  inherited;
   Caption := 'TLazIntfImage.Colors copy';
   TempIntfImage := TLazIntfImage.Create(0, 0);
@@ -207 +280 @@
 constructor TCanvasPixelsUpdateLock.Create;
 begin
+  inherited;
   Caption := 'TBitmap.Canvas.Pixels Update locking';
 end;
@@ -229 +303 @@
 constructor TCanvasPixels.Create;
 begin
+  inherited;
   Caption := 'TBitmap.Canvas.Pixels';
 end;
@@ -245 +320 @@
 { TDrawMethod }
 
+procedure TDrawMethod.SetBitmap(const AValue: TBitmap);
+begin
+  if FBitmap = AValue then exit;
+  FBitmap := AValue;
+  TempBitmap.SetSize(FBitmap.Width, FBitmap.Height);
+end;
+
+procedure TDrawMethod.SetPaintBox(const AValue: TPaintBox);
+begin
+  if FPaintBox = AValue then Exit;
+  FPaintBox := AValue;
+end;
+
 constructor TDrawMethod.Create;
 begin
-
+  TempBitmap := TBitmap.Create;
+end;
+
+destructor TDrawMethod.Destroy;
+begin
+  TempBitmap.Free;
+  inherited Destroy;
 end;
 
@@ -264 +358 @@
 end;
 
-procedure TDrawMethod.DrawLoop;
-begin
-end;
-
 end.