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

ide: fix Options changed through "Change Build Mode" CoolBar button isn't respected by the compiler. Issue #28059

Browse Source 
git-svn-id: trunk@51229 -
This commit is contained in:
ondrej 2016-01-08 12:36:01 +00:00
parent 434aa922dd
commit 4b7b10696b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/main.pp
View File

@ -4039,11 +4039,13 @@ begin
Project1.CompilerOptions.OtherDefines.Assign(Project1.OtherDefines);
Capt := Format(dlgProjectOptionsFor, [Project1.GetTitleOrName]);
if DoOpenIDEOptions(nil, Capt, AFilter, [])
and not Project1.OtherDefines.Equals(Project1.CompilerOptions.OtherDefines) then
if DoOpenIDEOptions(nil, Capt, AFilter, []) then
begin
Project1.OtherDefines.Assign(Project1.CompilerOptions.OtherDefines);
if not Project1.OtherDefines.Equals(Project1.CompilerOptions.OtherDefines) then
Project1.OtherDefines.Assign(Project1.CompilerOptions.OtherDefines);
Project1.Modified:=True;
MainBuildBoss.SetBuildTargetProject1(false);
MainIDE.UpdateCaption;
end;
end;
@ -4924,7 +4926,6 @@ begin
UpdateCaption;
AProject.DefineTemplates.AllChanged;
IncreaseCompilerParseStamp;
MainBuildBoss.SetBuildTargetProject1(false);
if AProject.UseAsDefault then
begin