Changeset 29 for trunk/UGeometric.pas

Timestamp:

Apr 18, 2015, 11:28:16 AM (9 years ago)

Author:

chronos

Message:

• Added: Not finished support for map rivers.
• Added: Design a prototype of better track structure in UTrack.
• Added: To allow zooming of graphic canvas should store drawing elements in abstract structure TMetaCanvas.

File:

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

trunk/UGeometric.pas

@@ -23 +23 @@
 function ArcTanPoint(Point: TPoint): Float;
 function RectEquals(A, B: TRect): Boolean;
+function RectEnlarge(Rect: TRect; Value: Integer): TRect;
 
 implementation
@@ -132 +133 @@
 end;
 
+function RectEnlarge(Rect: TRect; Value: Integer): TRect;
+begin
+  Rect.Left := Rect.Left - Value;
+  Rect.Right := Rect.Right + Value;
+  Rect.Top := Rect.Top - Value;
+  Rect.Bottom := Rect.Bottom + Value;
+end;
+
 
 end.