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

trunk/LocalPlayer/Select.pas

@@ -95 +95 @@
     procedure OnMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
     procedure SetSelectionIndex(Index: Integer);
+  protected
+    procedure DoOnResize; override;
   public
     Result: Integer;
@@ -1917 +1919 @@
 end;
 
+procedure TListDlg.DoOnResize;
+begin
+  inherited;
+  CloseBtn.Left := Width - 38;
+end;
+
 procedure TListDlg.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);