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

Timestamp:

Feb 2, 2022, 2:55:58 PM (3 years ago)

Author:

chronos

Message:

• Modified: Build under Lazarus 2.2.0.
• Modified: Updated Common package.
• Added: Read Me file with app description and development information.
• Added: Test form available in debug mode from Tools menu with list of test cases to better support app testability.

File:

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

trunk/Packages/Common/UMetaCanvas.pas

@@ -142 +142 @@
     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 +502 @@
 end;
 
-procedure TMetaCanvas.Polygon(Points: PPoint; NumPts: Integer; Winding: boolean
+procedure TMetaCanvas.Polygon(Points: PPoint; NumPts: Integer; Winding: Boolean
   );
 var
@@ -508 +508 @@
   I: Integer;
 begin
+  APoints := nil;
   SetLength(APoints, NumPts);
   for I := 0 to High(APoints) do