From 1834dd996a3782a7ed10e5772b2ccfc30d5d5e98 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Mon, 24 Sep 2007 18:40:06 +0000
Subject: [PATCH] * Fixed options save. Thanks to Giuliano Colla

git-svn-id: trunk@12167 -
---
 ide/buildlazdialog.pas | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/ide/buildlazdialog.pas b/ide/buildlazdialog.pas
index 6f79e81721..0e7ec060e7 100644
--- a/ide/buildlazdialog.pas
+++ b/ide/buildlazdialog.pas
@@ -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;