Changeset 331

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.

Location:

trunk/Forms

Files:

• FormMain.lfm (modified) (1 diff)
• FormMain.pas (modified) (2 diffs)

trunk/Forms/FormMain.lfm

@@ -14 +14 @@
   OnDestroy = FormDestroy
   OnKeyUp = FormKeyUp
+  OnResize = FormResize
   OnShow = FormShow
   LCLVersion = '3.4.0.0'

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