paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 11:20:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

lhelp: fixed dbl click index item

Browse Source 
git-svn-id: branches/fixes_2_0@63516 -
This commit is contained in:
mattias 2020-07-05 21:57:20 +00:00
parent eb4b5f979e
commit 7d81afac5d
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/chmhelp/lhelp/chmspecialparser.pas
View File

@ -124,7 +124,7 @@ procedure TContentsFiller.AddItem(AItem: TChmSiteMapItem; AParentNode: TTreeNode
var var
NewNode: TContentTreeNode; NewNode: TContentTreeNode;
X: Integer; X: Integer;
txt: string; txt, URL: string;
begin begin
if fStop^ then Exit; if fStop^ then Exit;
txt := AItem.KeyWord; txt := AItem.KeyWord;
@ -136,7 +136,17 @@ begin
// Add new child node // Add new child node
fLastNode := AParentNode; fLastNode := AParentNode;
NewNode := TContentTreeNode(fTreeView.Items.AddChild(AParentNode, txt)); NewNode := TContentTreeNode(fTreeView.Items.AddChild(AParentNode, txt));
NewNode.Url := FixURL('/'+AItem.Local); URL:='';
for x:=0 to AItem.SubItemcount-1 do
begin
URL:=AItem.SubItem[x].URL;
if URL<>'' then
break;
URL:=AItem.SubItem[x].Local;
if URL<>'' then
break;
end;
NewNode.Url := FixURL('/'+URL);
NewNode.Data := fChm; NewNode.Data := fChm;
if fTreeView.Images <> nil then if fTreeView.Images <> nil then
begin begin

BIN
ide/lazarus.res
View File

Binary file not shown.