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

* Fixed options save. Thanks to Giuliano Colla

Browse Source 
git-svn-id: trunk@12167 -
This commit is contained in:
marc 2007-09-24 18:40:06 +00:00
parent 3263e03931
commit 1834dd996a
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/buildlazdialog.pas
View File

@ -254,7 +254,7 @@ type
end;
function ShowConfigureBuildLazarusDlg(
Options: TBuildLazarusOptions): TModalResult;
AOptions: TBuildLazarusOptions): TModalResult;
function BuildLazarus(Options: TBuildLazarusOptions;
ExternalTools: TExternalToolList; Macros: TTransferMacroList;
@ -301,20 +301,22 @@ begin
end;
function ShowConfigureBuildLazarusDlg(
Options: TBuildLazarusOptions): TModalResult;
AOptions: TBuildLazarusOptions): TModalResult;
// mrOk=save
// mrYes=save and compile
var ConfigBuildLazDlg: TConfigureBuildLazarusDlg;
var
ConfigBuildLazDlg: TConfigureBuildLazarusDlg;
begin
Result:=mrCancel;
ConfigBuildLazDlg:=TConfigureBuildLazarusDlg.Create(nil);
Result := mrCancel;
ConfigBuildLazDlg := TConfigureBuildLazarusDlg.Create(nil);
try
ConfigBuildLazDlg.Load(Options);
Result:=ConfigBuildLazDlg.ShowModal;
if Result in [mrOk,mrYes] then begin
DebugLn('ShowConfigureBuildLazarusDialog');
ConfigBuildLazDlg.Save(Options);
end;
ConfigBuildLazDlg.Load(AOptions);
Result := ConfigBuildLazDlg.ShowModal;
if Result in [mrOk,mrYes]
then begin
//DebugLn('ShowConfigureBuildLazarusDialog');
AOptions.Assign(ConfigBuildLazDlg.Options);
end;
finally
ConfigBuildLazDlg.Free;
end;