Changeset 67 for trunk/Packages/Common

Timestamp:

Nov 28, 2020, 11:27:11 AM (4 years ago)

Author:

chronos

Message:

• Modified: Refactoring of Engine Paint method.

File:

• trunk/Packages/Common/UMetaCanvas.pas (modified) (3 diffs)

trunk/Packages/Common/UMetaCanvas.pas

@@ -148 +148 @@
     procedure Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2,
       StartX, StartY, EndX, EndY: Integer); override;
-    procedure SetSize(Size: TPoint);
     procedure Reset;
     procedure DrawTo(Canvas: TCanvas);
@@ -155 +154 @@
     constructor Create;
     destructor Destroy; override;
+    property Size: TPoint read FSize write FSize;
   end;
 
@@ -622 +622 @@
 end;
 
-procedure TMetaCanvas.SetSize(Size: TPoint);
-begin
-  FSize := Size;
-end;
-
 procedure TMetaCanvas.Reset;
 begin