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

IDE: In the custom IDE title, leave only unexpanded macros in their original form

Browse Source
This commit is contained in:
n7800 2024-10-21 01:28:39 +05:00 committed by Martin
parent 86747675cb
commit cf11151bf8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -9014,6 +9014,7 @@ procedure TMainIDE.UpdateCaption;
var
rev, NewCaption, NewTitle, ProjectName, DirName, CustomnCaption: String;
OldMarkUnhandledMacros: boolean;
begin
if MainIDEBar = nil then Exit;
if ToolStatus = itExiting then Exit;
@ -9049,11 +9050,13 @@ begin
if (GlobalMacroList <> nil) then begin
CustomnCaption := EnvironmentGuiOpts.Desktop.IDETitleBarCustomText;
if CustomnCaption <> '' then begin
if not GlobalMacroList.SubstituteStr(CustomnCaption) then
CustomnCaption := EnvironmentGuiOpts.Desktop.IDETitleBarCustomText;
OldMarkUnhandledMacros := GlobalMacroList.MarkUnhandledMacros;
GlobalMacroList.MarkUnhandledMacros := false;
GlobalMacroList.SubstituteStr(CustomnCaption);
if CustomnCaption <> '' then begin
NewCaption := AddToCaption(NewCaption, CustomnCaption);
end;
GlobalMacroList.MarkUnhandledMacros := OldMarkUnhandledMacros;
end;
end;