Changeset 86 for trunk/Packages/Common/UGeometric.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/UGeometric.pas (modified) (3 diffs)

trunk/Packages/Common/UGeometric.pas

@@ -1 +1 @@
 unit UGeometric;
-
-{$mode delphi}
 
 interface
@@ -26 +24 @@
 function RectEnlarge(Rect: TRect; Value: Integer): TRect;
 function ShiftRect(ARect: TRect; Delta: TPoint): TRect;
+
 
 implementation
@@ -96 +95 @@
   I: Integer;
 begin
+  Result := Default(TPointArray);
   SetLength(Result, Length(P));
   for I := 0 to High(P) do