Changeset 4 for trunk/UGeometric.pas

Timestamp:

Mar 26, 2015, 12:09:02 PM (9 years ago)

Author:

chronos

Message:

• Modified: Connect and disconnect stations using mouse move rather then clicking to each station.
• Added: Show available train count.

File:

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

trunk/UGeometric.pas

@@ -12 +12 @@
 function SubPoint(const P1, P2: TPoint): TPoint;
 function PointToLineDistance(const P, V, W: TPoint): Integer;
+function ComparePoint(P1, P2: TPoint): Boolean;
 
 implementation
@@ -61 +62 @@
 end;
 
+function ComparePoint(P1, P2: TPoint): Boolean;
+begin
+  Result := (P1.X = P2.X) and (P1.Y = P2.Y);
+end;
+
 
 end.