Changeset 29 for trunk/Packages/FastGraphics/UGGraphics.pas

Timestamp:

Dec 22, 2016, 9:46:17 PM (8 years ago)

Author:

chronos

Message:

• Modified: Load image data from file quickly using Bitmap RawImage.
• Modified: Remember last selected color format.

File:

• trunk/Packages/FastGraphics/UGGraphics.pas (modified) (3 diffs)

trunk/Packages/FastGraphics/UGGraphics.pas

@@ -68 +68 @@
     procedure PaintToBitmap(Bitmap: TBitmap; Rect: TRect; ColorConvertFunc: TGConvertColor);
     procedure LoadFromCanvas(Canvas: TCanvas; ColorConvertFunc: TGConvertFromColor); overload;
+    procedure LoadFromBitmap(Bitmap: TBitmap; ColorConvertFunc: TGConvertFromColor);
     procedure Fill(Color: TGColor); overload;
     procedure Fill(Func: TGGetColor); overload;
@@ -224 +225 @@
 end;
 
-procedure TGPixmap<TGColor>.LoadFromCanvas(Canvas: TCanvas; ColorConvertFunc: TGConvertFromColor); overload;
+procedure TGPixmap<TGColor>.LoadFromCanvas(Canvas: TCanvas; ColorConvertFunc: TGConvertFromColor);
 var
   X, Y: Integer;
@@ -236 +237 @@
   finally
     Canvas.Unlock;
+  end;
+end;
+
+procedure TGPixmap<TGColor>.LoadFromBitmap(Bitmap: TBitmap; ColorConvertFunc: TGConvertFromColor);
+var
+  X, Y: Integer;
+  PixelPtr: PInteger;
+  PixelPtrMax: PInteger;
+  PixelRowPtr: PInteger;
+  P: TPixelFormat;
+  RawImage: TRawImage;
+  BytePerPixel: Integer;
+begin
+  try
+    Bitmap.BeginUpdate(False);
+    RawImage := Bitmap.RawImage;
+    PixelRowPtr := PInteger(RawImage.Data);
+    BytePerPixel := RawImage.Description.BitsPerPixel div 8;
+    PixelPtrMax := PixelRowPtr + RawImage.Description.Width * RawImage.Description.Height * BytePerPixel;
+    for Y := 0 to FSize.Y - 1 do begin
+      PixelPtr := PixelRowPtr;
+      for X := 0 to FSize.X - 1 do begin
+        if (X >= 0) and (X < FSize.X) and (Y >= 0) and (Y < FSize.Y) and (PixelPtr < PixelPtrMax) then
+          Pixels[X, Y] := ColorConvertFunc(PixelPtr^);
+        Inc(PByte(PixelPtr), BytePerPixel);
+      end;
+      Inc(PByte(PixelRowPtr), RawImage.Description.BytesPerLine);
+    end;
+  finally
+    Bitmap.EndUpdate(False);
   end;
 end;