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

ide: fix work of 'default' compiler options

Browse Source 
git-svn-id: trunk@23356 -
This commit is contained in:
paul 2010-01-03 13:19:22 +00:00
parent bf67a1aaf6
commit 09f3891edd
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -4461,9 +4461,6 @@ begin
end; end;
UpdateCaption; UpdateCaption;
Project.DefineTemplates.AllChanged; Project.DefineTemplates.AllChanged;
// save to primary config directory
if Project.CompilerOptions.UseAsDefault then
Project.CompilerOptions.SaveCompilerOptions(False);
end; end;
procedure TMainIDE.DoCompilerOptionsBeforeWrite(Sender: TObject); procedure TMainIDE.DoCompilerOptionsBeforeWrite(Sender: TObject);
@ -4483,6 +4480,8 @@ begin
UpdateHighlighters; // because of FPC/Delphi mode UpdateHighlighters; // because of FPC/Delphi mode
end; end;
OldCompOpts.Free; OldCompOpts.Free;
if TBaseCompilerOptions(Sender).UseAsDefault then
TBaseCompilerOptions(Sender).SaveCompilerOptions(False);
end; end;
procedure TMainIDE.mnuEnvEditorOptionsClicked(Sender: TObject); procedure TMainIDE.mnuEnvEditorOptionsClicked(Sender: TObject);