Changeset 28 for trunk/UGeometric.pas

Timestamp:

Apr 12, 2015, 2:32:33 PM (9 years ago)

Author:

chronos

Message:

• Added: Now user can place additional trains on line and move trains between lines and different places on line.

File:

• trunk/UGeometric.pas (modified) (2 diffs)

trunk/UGeometric.pas

@@ -22 +22 @@
 function ArcTan2Point(Point: TPoint): Float;
 function ArcTanPoint(Point: TPoint): Float;
+function RectEquals(A, B: TRect): Boolean;
 
 implementation
@@ -125 +126 @@
 end;
 
+function RectEquals(A, B: TRect): Boolean;
+begin
+  Result := (A.Left = B.Left) and (A.Top = B.Top) and
+    (A.Right = B.Right) and (A.Bottom = B.Bottom);
+end;
+
+
 end.