Updated window state

Like all the other XData projects, it runs and immediately minimizes itself, but is in a maximized state when it is restored.
500Foods · Oct 27, 2023 · 933110f · 933110f
1 parent cb7e500
commit 933110f
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/Unit2.dfm b/Unit2.dfm
@@ -13,6 +13,7 @@ object MainForm: TMainForm
   OldCreateOrder = False
   WindowState = wsMinimized
   OnCreate = FormCreate
+  OnShow = FormShow
   DesignSize = (
     472
     242)

diff --git a/Unit2.pas b/Unit2.pas
@@ -31,6 +31,7 @@   TMainForm = class(TForm)
     procedure FormCreate(ASender: TObject);
     procedure btSwaggerClick(Sender: TObject);
     procedure btRedocClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   strict private
     procedure UpdateGUI;
   end;
@@ -84,6 +85,16 @@ procedure TMainForm.FormCreate(ASender: TObject);
 
 end;
 
+procedure TMainForm.FormShow(Sender: TObject);
+begin
+  if MainForm.Tag = 0 then
+  begin
+    MainForm.Tag := 1;
+    MainForm.WindowState := wsMaximized;
+    MainForm.WindowState := wsMinimized;
+  end;
+end;
+
 procedure TMainForm.UpdateGUI;
 begin
   btStart.Enabled := not ServerContainer.SparkleHttpSysDispatcher.Active;