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

LHelp: Show only the original CHM file's title in a tab. Issue #41467.

Browse Source
This commit is contained in:
Juha 2025-03-05 11:24:57 +02:00
parent 44d89018ab
commit 847dee461c
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -883,10 +883,18 @@ begin
end; end;
procedure TChmContentProvider.UpdateTitle; procedure TChmContentProvider.UpdateTitle;
var {var
Item: TTreeNode; Item: TTreeNode;
NewTitle: String; NewTitle: String; }
begin begin
// Now show only the first original CHM title.
if (Title = '') and (fContentsTree.Items.Count > 0) then
Title := fContentsTree.Items.GetFirstNode.Text;
// When opening LazUtils CHM file, then clicking links for FCL and RTL, the code generated this:
// "(LazUtils) Lazarus Utilities [(FCL) Free Component Library, (RTL) Runtime Library]"
// However it never changes again. It only gets updated when a CHM is loaded (ProcFillTOC).
{
Item:=nil; Item:=nil;
if fContentsTree.Items.Count > 0 then if fContentsTree.Items.Count > 0 then
Item := fContentsTree.Items.GetFirstNode; Item := fContentsTree.Items.GetFirstNode;
@ -910,6 +918,7 @@ begin
if NewTitle = '' then if NewTitle = '' then
NewTitle := DefaultCHMContentTitle; NewTitle := DefaultCHMContentTitle;
Title := NewTitle; Title := NewTitle;
}
end; end;
procedure TChmContentProvider.SetTitle(const AValue: String); procedure TChmContentProvider.SetTitle(const AValue: String);