Changeset 86 for trunk/Packages/Common/UMetaCanvas.pas

Timestamp:

Jun 21, 2022, 5:04:48 PM (23 months ago)

Author:

chronos

Message:

• Fixed: Calculation of tracks end.
• Modified: Updated Common package to version 0.10.
• Modified: Build with Lazarus 2.2.2.
• Modified: Used Generics.Collections instead of fgl for generic lists.

File:

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

trunk/Packages/Common/UMetaCanvas.pas

@@ -1 +1 @@
 unit UMetaCanvas;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils, Graphics, Types, fgl;
+  Classes, SysUtils, Graphics, Types, Generics.Collections;
 
 type
@@ -19 +17 @@
   end;
 
-  TCanvasObjects = class(TFPGObjectList<TCanvasObject>)
+  TCanvasObjects = class(TObjectList<TCanvasObject>)
   end;
 
@@ -142 +140 @@
     procedure RoundRect(const Rect: TRect; RX,RY: Integer); overload;
     procedure TextOut(X,Y: Integer; const Text: String); override;
-    procedure Polygon(Points: PPoint; NumPts: Integer; Winding: boolean = False); override;
+    procedure Polygon(Points: PPoint; NumPts: Integer; Winding: Boolean = False); override;
     procedure Ellipse(x1, y1, x2, y2: Integer); override;
     procedure StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic); override;
@@ -502 +500 @@
 end;
 
-procedure TMetaCanvas.Polygon(Points: PPoint; NumPts: Integer; Winding: boolean
+procedure TMetaCanvas.Polygon(Points: PPoint; NumPts: Integer; Winding: Boolean
   );
 var
@@ -508 +506 @@
   I: Integer;
 begin
+  APoints := nil;
   SetLength(APoints, NumPts);
   for I := 0 to High(APoints) do