Changeset 30 for trunk/UGeometric.pas

Timestamp:

Apr 18, 2015, 6:17:34 PM (9 years ago)

Author:

chronos

Message:

• Added: Automatic zooming to all existed map stations. This solve problem if too many stations were existed and some of them appeared behind window border.
• Added: Much of used TCanvas functions are now available through TMetaCanvas.

File:

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

trunk/UGeometric.pas

@@ -24 +24 @@
 function RectEquals(A, B: TRect): Boolean;
 function RectEnlarge(Rect: TRect; Value: Integer): TRect;
+function ShiftRect(ARect: TRect; Delta: TPoint): TRect;
 
 implementation
@@ -135 +136 @@
 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;
+  Result.Left := Rect.Left - Value;
+  Result.Right := Rect.Right + Value;
+  Result.Top := Rect.Top - Value;
+  Result.Bottom := Rect.Bottom + Value;
+end;
+
+function ShiftRect(ARect: TRect; Delta: TPoint): TRect;
+begin
+  Result := Rect(ARect.Left + Delta.X, ARect.Top + Delta.Y,
+    ARect.Right + Delta.X, ARect.Bottom + Delta.Y);
 end;