Changeset 27 for trunk/Packages/FastGraphics/UFGraphics.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/UFGraphics.pas (modified) (4 diffs)

trunk/Packages/FastGraphics/UFGraphics.pas

@@ -43 +43 @@
     procedure PaintToCanvas(Canvas: TCanvas); virtual; overload;
     procedure PaintToCanvas(Canvas: TCanvas; Rect: TRect); virtual; overload;
+    procedure PaintToBitmap(Bitmap: TBitmap; Rect: TRect); virtual;
     procedure LoadFromCanvas(Canvas: TCanvas); virtual;
     function GetDataSize: Integer; virtual;
@@ -171 +172 @@
     procedure PaintToCanvas(Canvas: TCanvas); overload;
     procedure PaintToCanvas(Canvas: TCanvas; Rect: TRect); overload;
+    procedure PaintToBitmap(Bitmap: TBitmap; Rect: TRect); overload;
     procedure LoadFromCanvas(Canvas: TCanvas);
     function GetDataSize: Integer;
@@ -373 +375 @@
 end;
 
+procedure TBImage.PaintToBitmap(Bitmap: TBitmap; Rect: TRect);
+begin
+end;
+
 procedure TBImage.LoadFromCanvas(Canvas: TCanvas);
 begin
@@ -479 +485 @@
 begin
   FBackend.PaintToCanvas(Canvas, Rect);
+end;
+
+procedure TFPixmap.PaintToBitmap(Bitmap: TBitmap; Rect: TRect);
+begin
+  FBackend.PaintToBitmap(Bitmap, Rect);
 end;