paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 14:38:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/ProjectWizard: Remember window layout

Browse Source
This commit is contained in:
n7800 2025-01-19 07:55:48 +05:00 committed by Juha Manninen
parent 0bb0a0625a
commit b499737ba2
2 changed files with 15 additions and 1 deletions

2
ide/projectwizarddlg.lfm
View File

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

14
ide/projectwizarddlg.pas
View File

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