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

lhelp: Fix empty [] in tab title (issue #33539).

Browse Source 
git-svn-id: trunk@57608 -
This commit is contained in:
wp 2018-04-06 09:53:15 +00:00
parent 334865d488
commit 830c014103
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/chmhelp/lhelp/chmcontentprovider.pas
View File

@ -761,7 +761,7 @@ var
NewTitle: String; NewTitle: String;
begin begin
Item := fContentsTree.Items.GetFirstNode; Item := fContentsTree.Items.GetFirstNode;
NewTitle:=fActiveChmTitle +' ['; NewTitle := '';
while Item <> nil do while Item <> nil do
begin begin
if ITem.Text <> fActiveChmTitle then if ITem.Text <> fActiveChmTitle then
@ -774,7 +774,11 @@ begin
end; end;
Item := Item.GetNextSibling; Item := Item.GetNextSibling;
end; end;
NewTitle:=NewTitle+']'; if NewTitle <> '' then
NewTitle := FActiveChmTitle + ' [' + NewTitle + ']'
else
NewTitle := FActiveChmTitle;
if NewTitle = '' then NewTitle := '[unknown]';
Title := NewTitle; Title := NewTitle;
end; end;