Changeset 44 for trunk/UMetaCanvas.pas

Timestamp:

Nov 19, 2017, 10:59:54 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Removed compilation warnings.
• Modified: Preparation for 1.0.0 version release.

File:

• trunk/UMetaCanvas.pas (modified) (2 diffs)

trunk/UMetaCanvas.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, Contnrs, GraphMath, Types;
+  Classes, SysUtils, Graphics, Contnrs, Types;
 
 type
@@ -124 +124 @@
     procedure DoLine (x1,y1,x2,y2:integer); override;
     procedure DoTextOut(X, Y: Integer; Text: string); override;
-    procedure TextOut(X,Y: Integer; const Text: String); override;
     procedure DoRectangle(const Bounds: TRect); override;
     procedure DoRectangleFill(const Bounds: TRect); override;
-    procedure Polygon(Points: PPoint; NumPts: Integer; Winding: boolean = False); override;
     procedure DoPolygon(const Points: array of TPoint); override;
     procedure CreateHandle; override;
+    procedure DoEllipse(const Bounds: TRect); override;
+    procedure DoMoveTo(X, Y: Integer); override;
+    procedure DoLineTo(X, Y: Integer); override;
+  public
+    Objects: TObjectList;
+    procedure TextOut(X,Y: Integer; const Text: String); override;
+    procedure Polygon(Points: PPoint; NumPts: Integer; Winding: boolean = False); override;
     procedure Ellipse(x1, y1, x2, y2: Integer); override;
-    procedure DoEllipse(const Bounds: TRect); override;
     procedure StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic); override;
     function TextExtent(const Text: string): TSize; override;
-    procedure DoMoveTo(X, Y: Integer); override;
-    procedure DoLineTo(X, Y: Integer); override;
     procedure Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2,
       StartX, StartY, EndX, EndY: Integer); override;
-  public
-    Objects: TObjectList;
     procedure SetSize(Size: TPoint);
     procedure Reset;