mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-11 21:00:38 +01:00
IDE: fixed updating main bar caption after changing the project title (bug #1642)
patch by: Junior Goncalves git-svn-id: trunk@14788 -
This commit is contained in:
parent
6e278016cc
commit
7964e3a55f
@ -3388,7 +3388,7 @@ var
|
|||||||
begin
|
begin
|
||||||
BeginCodeTool(ActiveSrcEdit, ActiveUnitInfo, []);
|
BeginCodeTool(ActiveSrcEdit, ActiveUnitInfo, []);
|
||||||
if ShowProjectOptionsDialog(Project1)=mrOk then begin
|
if ShowProjectOptionsDialog(Project1)=mrOk then begin
|
||||||
|
UpdateCaption;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -3400,7 +3400,7 @@ var
|
|||||||
begin
|
begin
|
||||||
BeginCodeTool(ActiveSrcEdit, ActiveUnitInfo, []);
|
BeginCodeTool(ActiveSrcEdit, ActiveUnitInfo, []);
|
||||||
if projectopts_new.ShowProjectOptionsDialog(Project1)=mrOk then begin
|
if projectopts_new.ShowProjectOptionsDialog(Project1)=mrOk then begin
|
||||||
|
UpdateCaption;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user