Changeset 206 for GraphicTest/UFastBitmap.pas

Timestamp:

Mar 18, 2011, 9:34:42 AM (13 years ago)

Author:

george

Message:

• Fixed: Red and Blue color components swaping.
• Fixed: PageControl tabs auto switching.
• Modified: TFastBitmap class replaced by similar one which use pixels data as one memory block instead of array of arrays. With only one memory block optimization using FillChar and Move can be used.

File:

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

GraphicTest/UFastBitmap.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils; 
+  Classes, SysUtils, Dialogs;
 
 type
+ TFastBitmapPixel = Integer;
+ PFastBitmapPixel = ^TFastBitmapPixel;
+
+ TFastBitmapPixelComponents = packed record
+   B, G, R, A: Byte;
+ end;
+
  { TFastBitmap }
 
   TFastBitmap = class
   private
+    FPixelsData: PByte;
+    FSize: TPoint;
+    function GetPixel(X, Y: Integer): TFastBitmapPixel; inline;
+    procedure SetPixel(X, Y: Integer; const AValue: TFastBitmapPixel); inline;
+    procedure SetSize(const AValue: TPoint);
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure RandomImage;
+    property Size: TPoint read FSize write SetSize;
+    property Pixels[X, Y: Integer]: TFastBitmapPixel read GetPixel write SetPixel;
+  end;
+
+  TFastBitmap2 = class
+  private
     function GetSize: TPoint;
     procedure SetSize(const AValue: TPoint);
   public
-    Pixels: array of array of Byte;
+    Pixels: array of array of TFastBitmapPixel;
     procedure RandomImage;
     property Size: TPoint read GetSize write SetSize;
   end;
 
+function SwapBRComponent(Value: Integer): Integer; inline;
+function NoSwapBRComponent(Value: Integer): Integer; inline;
+
 implementation
 
-{ TFastBitmap }
+function SwapBRComponent(Value: Integer): Integer;
+begin
+//  Result := (Value and $00ff00) or ((Value shr 16) and $ff) or ((Value and $ff) shl 16);
+  Result := Value;
+  TFastBitmapPixelComponents(Result).R := TFastBitmapPixelComponents(Value).B;
+  TFastBitmapPixelComponents(Result).B := TFastBitmapPixelComponents(Value).R;
+end;
 
-function TFastBitmap.GetSize: TPoint;
+function NoSwapBRComponent(Value: Integer): Integer;
+begin
+//  Result := (Value and $00ff00) or ((Value shr 16) and $ff) or ((Value and $ff) shl 16);
+  Result := Value;
+  TFastBitmapPixelComponents(Result).B := TFastBitmapPixelComponents(Value).B;
+  TFastBitmapPixelComponents(Result).R := TFastBitmapPixelComponents(Value).R;
+end;
+
+{ TFastBitmap2 }
+
+function TFastBitmap2.GetSize: TPoint;
 begin
   Result.X := Length(Pixels);
@@ -32 +73 @@
 end;
 
-procedure TFastBitmap.SetSize(const AValue: TPoint);
+procedure TFastBitmap2.SetSize(const AValue: TPoint);
 begin
   SetLength(Pixels, AValue.X, AValue.Y);
 end;
 
-procedure TFastBitmap.RandomImage;
+procedure TFastBitmap2.RandomImage;
 var
   X, Y: Integer;
@@ -46 +87 @@
 end;
 
+{ TFastBitmap }
+
+function TFastBitmap.GetPixel(X, Y: Integer): TFastBitmapPixel;
+begin
+  Result := PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * SizeOf(TFastBitmapPixel))^;
+end;
+
+procedure TFastBitmap.SetPixel(X, Y: Integer; const AValue: TFastBitmapPixel);
+begin
+  PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * SizeOf(TFastBitmapPixel))^ := AValue;
+end;
+
+procedure TFastBitmap.SetSize(const AValue: TPoint);
+begin
+  if (FSize.X = AValue.X) and (FSize.Y = AValue.X) then Exit;
+  FSize := AValue;
+  FPixelsData := ReAllocMem(FPixelsData, FSize.X * FSize.Y * SizeOf(TFastBitmapPixel));
+end;
+
+constructor TFastBitmap.Create;
+begin
+  Size := Point(0, 0);
+end;
+
+destructor TFastBitmap.Destroy;
+begin
+  FreeMem(FPixelsData);
+  inherited Destroy;
+end;
+
+procedure TFastBitmap.RandomImage;
+var
+  I, X, Y: Integer;
+begin
+  for I := 0 to 2 do
+    for Y := 0 to (Size.Y div 2) - 1 do
+      for X := 0 to (Size.X div 3) - 1 do
+        Pixels[X + (I * (Size.X div 3)), Y] := 255 shl (I * 8);
+
+  for Y := (Size.Y div 2) to Size.Y - 1 do
+    for X := 0 to Size.X - 1 do
+      Pixels[X, Y] := Random(256) or (Random(256) shl 16) or (Random(256) shl 8);
+end;
+
 
 end.