Changeset 331 for trunk/Forms/FormMain.pas

Timestamp:

Jul 20, 2024, 2:16:51 PM (4 months ago)

Author:

chronos

Message:

• Fixed: Workaround for incorrect client form drawing area size on Windows.

File:

• trunk/Forms/FormMain.pas (modified) (2 diffs)

trunk/Forms/FormMain.pas

@@ -81 +81 @@
     procedure FormActivate(Sender: TObject);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormResize(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -236 +237 @@
 end;
 
+procedure TFormMain.FormResize(Sender: TObject);
+begin
+  {$IFDEF WINDOWS}
+  // TODO: Workaround for smaller docked client form drawing area than expected
+  FormClient.Hide;
+  FormClient.Show;
+  {$ENDIF}
+end;
+
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin