paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:36:14 +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; end;
function ShowConfigureBuildLazarusDlg( function ShowConfigureBuildLazarusDlg(
Options: TBuildLazarusOptions): TModalResult; AOptions: TBuildLazarusOptions): TModalResult;
function BuildLazarus(Options: TBuildLazarusOptions; function BuildLazarus(Options: TBuildLazarusOptions;
ExternalTools: TExternalToolList; Macros: TTransferMacroList; ExternalTools: TExternalToolList; Macros: TTransferMacroList;
@ -301,20 +301,22 @@ begin
end; end;
function ShowConfigureBuildLazarusDlg( function ShowConfigureBuildLazarusDlg(
Options: TBuildLazarusOptions): TModalResult; AOptions: TBuildLazarusOptions): TModalResult;
// mrOk=save // mrOk=save
// mrYes=save and compile // mrYes=save and compile
var ConfigBuildLazDlg: TConfigureBuildLazarusDlg; var
ConfigBuildLazDlg: TConfigureBuildLazarusDlg;
begin begin
Result:=mrCancel; Result := mrCancel;
ConfigBuildLazDlg:=TConfigureBuildLazarusDlg.Create(nil); ConfigBuildLazDlg := TConfigureBuildLazarusDlg.Create(nil);
try try
ConfigBuildLazDlg.Load(Options); ConfigBuildLazDlg.Load(AOptions);
Result:=ConfigBuildLazDlg.ShowModal; Result := ConfigBuildLazDlg.ShowModal;
if Result in [mrOk,mrYes] then begin if Result in [mrOk,mrYes]
DebugLn('ShowConfigureBuildLazarusDialog'); then begin
ConfigBuildLazDlg.Save(Options); //DebugLn('ShowConfigureBuildLazarusDialog');
end; AOptions.Assign(ConfigBuildLazDlg.Options);
end;
finally finally
ConfigBuildLazDlg.Free; ConfigBuildLazDlg.Free;
end; end;