Changeset 98 for trunk/UControls.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/UControls.pas (modified) (2 diffs)

trunk/UControls.pas

@@ -56 +56 @@
 procedure TLabel.Paint;
 begin
-  if Assigned(Canvas) then
+  if not Assigned(Canvas) then Exit;
   with Canvas do begin
     TextOut(Bounds.Left, Bounds.Top, Text);
@@ -111 +111 @@
 procedure TImage.Paint;
 begin
+  if not Assigned(Canvas) then Exit;
   if Canvas.Brush.Color = clNone then Canvas.Brush.Style := bsClear
     else Canvas.Brush.Style := bsSolid;