paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 02:52:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: project options dialog size is now saved

Browse Source 
git-svn-id: trunk@3507 -
This commit is contained in:
lazarus 2002-10-14 08:30:38 +00:00
parent 9dd534496b
commit 804d5de72e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/projectopts.pp
View File

@ -38,7 +38,7 @@ interface
uses
Classes, LCLLinux, SysUtils, Forms, Controls, Graphics, StdCtrls, ExtCtrls,
Project, LResources, Buttons, Dialogs, IDEProcs, CodeToolManager,
LazarusIDEStrConsts;
LazarusIDEStrConsts, IDEOptionDefs;
type
TProjectOptionsDialog = class(TForm)
@ -177,6 +177,9 @@ begin
Show;
end;
end;
IDEDialogLayoutList.ApplyLayout(Self,430,375);
ProjectOptionsDialogResize(nil);
end;
@ -575,11 +578,13 @@ begin
Project.Flags:=NewFlags;
SetAutoCreateForms;
IDEDialogLayoutList.SaveLayout(Self);
ModalResult:=mrOk;
end;
procedure TProjectOptionsDialog.CancelButtonClick(Sender: TObject);
begin
IDEDialogLayoutList.SaveLayout(Self);
ModalResult:=mrCancel;
end;