diff --git a/ide/newprojectdlg.lfm b/ide/newprojectdlg.lfm
index 97c6864b52..aad0b7b2a1 100644
--- a/ide/newprojectdlg.lfm
+++ b/ide/newprojectdlg.lfm
@@ -8,6 +8,7 @@ object NewProjectDialog: TNewProjectDialog
   ClientHeight = 302
   ClientWidth = 561
   Position = poScreenCenter
+  OnClose = FormClose
   object pnlList: TPanel
     Left = 6
     Height = 258
diff --git a/ide/newprojectdlg.pp b/ide/newprojectdlg.pp
index 3d5af9d02d..6ebf0bd284 100644
--- a/ide/newprojectdlg.pp
+++ b/ide/newprojectdlg.pp
@@ -39,7 +39,7 @@ uses
   // BuildIntf
   ProjectIntf,
   // IdeIntf
-  IDEHelpIntf, IDEImagesIntf,
+  IDEHelpIntf, IDEImagesIntf, IDEWindowIntf,
   // IDE
   LazarusIDEStrConsts, Project;
 
@@ -58,6 +58,7 @@ type
     procedure HelpButtonClick(Sender: TObject);
     procedure OkClick(Sender: TObject);
     procedure TreeSelectionChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
   private
     FProjectDescriptor: TProjectDescriptor;
     procedure FillHelpLabel;
@@ -96,6 +97,12 @@ begin
   Caption:=lisNPCreateANewProject;
   SetupComponents;
   FillHelpLabel;
+  IDEDialogLayoutList.ApplyLayout(Self, 550, 500);
+end;
+
+procedure TNewProjectDialog.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  IDEDialogLayoutList.SaveLayout(self);
 end;
 
 procedure TNewProjectDialog.FillHelpLabel;