paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 10:19:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/NewProjectDlg: Remember window layout

Browse Source
This commit is contained in:
n7800 2025-06-20 10:55:41 +05:00 committed by Maxim Ganetsky
parent 3d540e424d
commit b6c56372d2
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/newprojectdlg.lfm
View File

@ -8,6 +8,7 @@ object NewProjectDialog: TNewProjectDialog
ClientHeight = 302
ClientWidth = 561
Position = poScreenCenter
OnClose = FormClose
object pnlList: TPanel
Left = 6
Height = 258

9
ide/newprojectdlg.pp
View File

@ -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;