Changeset 168 for trunk/Packages

Timestamp:

Nov 23, 2017, 10:16:50 AM (7 years ago)

Author:

chronos

Message:

• Modified: Used TPolygon in TCell.
• Modified: Moved some generic geometry related functions to UGeometry unit.

File:

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

trunk/Packages/Common/UGeometry.pas

@@ -38 +38 @@
     function Create(const Points: TPointArray): TPolygon; overload;
     function Create(const Rect: TRect): TPolygon; overload;
+    function GetRect: TRect;
     procedure AddPoint(const P: TPoint);
     procedure Clear;
@@ -63 +64 @@
 function SubAngle(A1, A2: Double): Double;
 
+
 implementation
 
@@ -291 +293 @@
   Result.Points[2] := Point(Rect.Right, Rect.Bottom);
   Result.Points[3] := Point(Rect.Left, Rect.Bottom);
+end;
+
+function TPolygon.GetRect: TRect;
+var
+  I: Integer;
+begin
+  Result := Rect(High(Integer), High(Integer),
+    Low(Integer), Low(Integer));
+  for I := 0 to Length(Points) - 1 do
+  with Points[I] do begin
+    if X > Result.Right then
+      Result.Right := X;
+    if X < Result.Left then
+      Result.Left := X;
+    if Y > Result.Bottom then
+      Result.Bottom := Y;
+    if Y < Result.Top then
+      Result.Top := Y;
+  end;
 end;