Changeset 169 for trunk/Packages

Timestamp:

Nov 23, 2017, 10:21:49 AM (7 years ago)

Author:

chronos

Message:

• Added: TPolygon default property for accessing points field.

File:

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

trunk/Packages/Common/UGeometry.pas

@@ -34 +34 @@
 
   TPolygon = record
+  private
+    function GetPoint(const Index: Integer): TPoint; inline;
+    procedure SetPoint(const Index: Integer; const AValue: TPoint); inline;
+  public
     Points: TPointArray;
     function IsPointInside(const P: TPoint): Boolean;
@@ -42 +46 @@
     procedure Clear;
     procedure CutLine(const Vector: TLine; const PointInside: TPoint);
+    property Items[Index: Integer]: TPoint read GetPoint write SetPoint; default;
   end;
 
@@ -236 +241 @@
 
 { TPolygon }
+
+function TPolygon.GetPoint(const Index: Integer): TPoint;
+begin
+  Result := Points[Index];
+end;
+
+procedure TPolygon.SetPoint(const Index: Integer; const AValue: TPoint);
+begin
+  Points[Index] := AValue;
+end;
 
 function TPolygon.IsPointInside(const P: TPoint): Boolean;