Changeset 27 for trunk/Packages/FastGraphics/ColorFormats/UColorRGB8.pas

Timestamp:

Dec 22, 2016, 5:35:25 PM (8 years ago)

Author:

chronos

Message:

• Modified: Use faster drawing to TBitmap RawImage.

File:

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

trunk/Packages/FastGraphics/ColorFormats/UColorRGB8.pas

@@ -54 +54 @@
     procedure PaintToCanvas(Canvas: TCanvas); override;
     procedure PaintToCanvas(Canvas: TCanvas; Rect: TRect); override;
+    procedure PaintToBitmap(Bitmap: TBitmap; Rect: TRect); override;
     procedure LoadFromCanvas(Canvas: TCanvas); override;
     function GetDataSize: Integer; override;
@@ -91 +92 @@
 function TPixmapRGB8.RGB8ToColor(Value: TColorRGB8): TColor;
 begin
-  Result := (Value.R shl 16) or (Value.G shl 8) or (Value.B shl 0);
+  Result := (Value.B shl 16) or (Value.G shl 8) or (Value.R shl 0);
 end;
 
@@ -159 +160 @@
 end;
 
+procedure TBPixmapRGB8.PaintToBitmap(Bitmap: TBitmap; Rect: TRect);
+begin
+  Pixmap.PaintToBitmap(Bitmap, Rect, Pixmap.RGB8ToColor);
+end;
+
 procedure TBPixmapRGB8.LoadFromCanvas(Canvas: TCanvas);
 begin