paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 03:21:44 +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 
(cherry picked from commit cf11151bf8)
This commit is contained in:
n7800 2024-10-21 01:28:39 +05:00 committed by Martin
parent cbcab299f4
commit c9cd9a0bf7
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

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