Changeset 98 for trunk/UView.pas

Timestamp:

Sep 28, 2022, 1:45:58 PM (20 months ago)

Author:

chronos

Message:

• Modified: Do not change view zoom if new station is already visible.
• Fixed: Line icon normalized.

File:

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

trunk/UView.pas

@@ -18 +18 @@
     procedure SetZoom(AValue: Double);
   public
+    procedure Assign(Source: TView);
     function PointDestToSrc(Pos: TPoint): TPoint;
     function PointSrcToDest(Pos: TPoint): TPoint;
@@ -76 +77 @@
 end;
 
+procedure TView.Assign(Source: TView);
+begin
+  FDestRect := Source.FDestRect;
+  FSourceRect := Source.FSourceRect;
+  FZoom := Source.FZoom;
+end;
+
 function TView.PointDestToSrc(Pos: TPoint): TPoint;
 begin