From 80b883e6441d0cc4b11a443d861c7d27d068a1fc Mon Sep 17 00:00:00 2001
From: n7800 <14154601-n7800@users.noreply.gitlab.com>
Date: Sun, 19 Jan 2025 07:55:48 +0500
Subject: [PATCH] IDE/ProjectWizard: Remember window layout

(cherry picked from commit b499737ba2cde9eeabd6a2b3934c509bd9e54bd5)
---
 ide/projectwizarddlg.lfm |  2 ++
 ide/projectwizarddlg.pas | 14 +++++++++++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/ide/projectwizarddlg.lfm b/ide/projectwizarddlg.lfm
index 2f6a5023a6..d30ef54cd2 100644
--- a/ide/projectwizarddlg.lfm
+++ b/ide/projectwizarddlg.lfm
@@ -10,6 +10,8 @@ object ProjectWizardDialog: TProjectWizardDialog
   ClientWidth = 572
   Position = poScreenCenter
   LCLVersion = '3.99.0.0'
+  OnClose = FormClose
+  OnCreate = FormCreate
   object btnNewProject: TBitBtn
     AnchorSideTop.Control = Owner
     AnchorSideRight.Side = asrBottom
diff --git a/ide/projectwizarddlg.pas b/ide/projectwizarddlg.pas
index b057bb038d..98f8fdc762 100644
--- a/ide/projectwizarddlg.pas
+++ b/ide/projectwizarddlg.pas
@@ -34,7 +34,7 @@ uses
   // BuildIntf
   PackageIntf,
   // IdeIntf
-  IDEImagesIntf,
+  IDEWindowIntf, IDEImagesIntf,
   // IDE
   LazarusIDEStrConsts, EnvironmentOpts;
 
@@ -64,6 +64,8 @@ type
     procedure btnNewProjectClick(Sender: TObject);
     procedure btnOpenProjectClick(Sender: TObject);
     procedure cbRecentProjectsSelect(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
   private
     FResult: TProjectWizardSelectionType;
   public
@@ -148,5 +150,15 @@ begin
     ModalResult:=mrOK;  // Exit dialog if something is selected.
 end;
 
+procedure TProjectWizardDialog.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  IDEDialogLayoutList.SaveLayout(self);
+end;
+
+procedure TProjectWizardDialog.FormCreate(Sender: TObject);
+begin
+  IDEDialogLayoutList.ApplyLayout(self);
+end;
+
 end.