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

trunk/LocalPlayer/Diagram.pas

@@ -11 +11 @@
 type
   TDiagramKind = (dkChart, dkShip);
+
+  { TDiaDlg }
 
   TDiaDlg = class(TFramedDlg)
@@ -23 +25 @@
     procedure PlayerClick(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+  private
+    Kind: TDiagramKind;
+    Player: Integer;
+    Mode: Integer;
+  protected
+    procedure DoOnResize; override;
   public
     procedure OffscreenPaint; override;
     procedure ShowNewContent_Charts(NewMode: TWindowMode);
     procedure ShowNewContent_Ship(NewMode: TWindowMode; P: Integer = -1);
-  private
-    Kind: TDiagramKind;
-    Player: Integer;
-    Mode: Integer;
   end;
 
@@ -369 +373 @@
 end;
 
+procedure TDiaDlg.DoOnResize;
+begin
+  inherited;
+  CloseBtn.Left := Width - 38;
+end;
+
 end.