Changeset 684 for trunk/LocalPlayer/Wonders.pas

Timestamp:

Jul 26, 2025, 10:38:53 PM (14 hours ago)

Author:

chronos

Message:

• Modified: Improved forms painting if resized to bigger dimensions.

File:

• trunk/LocalPlayer/Wonders.pas (modified) (2 diffs)

trunk/LocalPlayer/Wonders.pas

@@ -29 +29 @@
   protected
     procedure OffscreenPaint; override;
+    procedure DoOnResize; override;
   public
     procedure ShowNewContent(NewMode: TWindowMode);
@@ -278 +279 @@
 
   MarkUsedOffscreen(ClientWidth, ClientHeight);
+end;
+
+procedure TWondersDlg.DoOnResize;
+begin
+  inherited;
+  CloseBtn.Left := Width - 38;
 end;