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

IDE/ProjectWizard: Remember window layout

Browse Source 
(cherry picked from commit b499737ba2)
This commit is contained in:
n7800 2025-01-19 07:55:48 +05:00 committed by Juha
parent ce37b50d5e
commit 80b883e644
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/projectwizarddlg.lfm
View File

@ -10,6 +10,8 @@ object ProjectWizardDialog: TProjectWizardDialog
ClientWidth = 572 ClientWidth = 572
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '3.99.0.0' LCLVersion = '3.99.0.0'
OnClose = FormClose
OnCreate = FormCreate
object btnNewProject: TBitBtn object btnNewProject: TBitBtn
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom

14
ide/projectwizarddlg.pas
View File

@ -34,7 +34,7 @@ uses
// BuildIntf // BuildIntf
PackageIntf, PackageIntf,
// IdeIntf // IdeIntf
IDEImagesIntf, IDEWindowIntf, IDEImagesIntf,
// IDE // IDE
LazarusIDEStrConsts, EnvironmentOpts; LazarusIDEStrConsts, EnvironmentOpts;
@ -64,6 +64,8 @@ type
procedure btnNewProjectClick(Sender: TObject); procedure btnNewProjectClick(Sender: TObject);
procedure btnOpenProjectClick(Sender: TObject); procedure btnOpenProjectClick(Sender: TObject);
procedure cbRecentProjectsSelect(Sender: TObject); procedure cbRecentProjectsSelect(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
private private
FResult: TProjectWizardSelectionType; FResult: TProjectWizardSelectionType;
public public
@ -148,5 +150,15 @@ begin
ModalResult:=mrOK; // Exit dialog if something is selected. ModalResult:=mrOK; // Exit dialog if something is selected.
end; 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. end.