Changeset 543 for GraphicTest/UDrawMethod.pas

Timestamp:

May 14, 2020, 11:10:24 AM (4 years ago)

Author:

chronos

Message:

• Modified: Removed drawing methods files and classes to use Method prefix.
• Added: TBitmap.Scanline and Move draw methods.

File:

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

GraphicTest/UDrawMethod.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, ExtCtrls, UPlatform, UFastBitmap, Graphics, Controls,
-  LCLType, IntfGraphics, fpImage, GraphType, DateUtils,
+  LCLType, IntfGraphics, fpImage, GraphType, DateUtils, Forms,
   {$IFDEF OPENGL}GL, GLExt, OpenGLContext,{$ENDIF}
   LclIntf;
 
 type
-  TPaintObject = (poImage, poPaintBox, poOpenGL);
+  TPaintObject = (poImage, poPaintBox, poOpenGL, poCanvas);
 
 
@@ -65 +65 @@
   end;
 
+  { TDrawMethodCanvas }
+
+  TDrawMethodCanvas = class(TDrawMethod)
+    Canvas: TCanvas;
+    procedure UpdateSettings; override;
+    procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
+    procedure Done; override;
+  end;
+
   {$IFDEF OPENGL}
 
@@ -84 +93 @@
 
 implementation
+
+{ TDrawMethodCanvas }
+
+procedure TDrawMethodCanvas.UpdateSettings;
+begin
+  inherited UpdateSettings;
+end;
+
+procedure TDrawMethodCanvas.Init(Parent: TWinControl; Size: TPoint;
+  PixelFormat: TPixelFormat);
+begin
+  Canvas := TForm(Parent).Canvas;
+end;
+
+procedure TDrawMethodCanvas.Done;
+begin
+  inherited Done;
+end;