Changeset 684 for trunk/LocalPlayer/CityType.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/CityType.pas (modified) (3 diffs)

trunk/LocalPlayer/CityType.pas

@@ -10 +10 @@
 
 type
+
+  { TCityTypeDlg }
+
   TCityTypeDlg = class(TFramedDlg)
     CloseBtn: TButtonB;
@@ -25 +28 @@
   protected
     procedure OffscreenPaint; override;
+    procedure DoOnResize; override;
   private
     nPool, dragiix, ctype: Integer;
@@ -190 +194 @@
 end;
 
+procedure TCityTypeDlg.DoOnResize;
+begin
+  inherited;
+  CloseBtn.Left := Width - 36;
+end;
+
 procedure TCityTypeDlg.LoadType(NewType: Integer);
 var