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

lhelp: Show Index correctly in all machines. If it worked before, this change makes no difference. Issue #19450, patch from Anton

Browse Source 
git-svn-id: trunk@31985 -
This commit is contained in:
juha 2011-08-14 09:10:10 +00:00
parent ea052b646d
commit 0d4fe16125
2 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,6 +53,7 @@ type
fChm: TObject;
fBranchCount: DWord;
fStop: PBoolean;
fLastNode: TTreeNode;
procedure AddItem(AItem: TChmSiteMapItem; AParentNode: TTreeNode);
public
constructor Create(ATreeView: TTreeView; ASitemap: TChmSiteMap; StopBoolean: PBoolean; AChm: TObject);
@ -80,22 +81,32 @@ procedure TContentsFiller.AddItem(AItem: TChmSiteMapItem; AParentNode: TTreeNode
var
NewNode: TContentTreeNode;
X: Integer;
txt: string;
begin
if fStop^ then Exit;
NewNode := TContentTreeNode(fTreeView.Items.AddChild(AParentNode, AItem.Text));
NewNode.Url:=FixURL('/'+AItem.Local);
NewNode.Data:=fChm;
if fTreeView.Images <> nil then
txt := AItem.KeyWord;
if txt = '' then txt := AItem.Text;
txt := Trim(txt);
if not Assigned(fLastNode) or (fLastNode.Text <> txt) then
begin
NewNode.ImageIndex := 3;
NewNode.SelectedIndex := 3;
if (AParentNode.ImageIndex < 0) or (AParentNode.ImageIndex > 2) then
fLastNode := AParentNode;
NewNode := TContentTreeNode(fTreeView.Items.AddChild(AParentNode, txt));
NewNode.Url:=FixURL('/'+AItem.Local);
NewNode.Data:=fChm;
if fTreeView.Images <> nil then
begin
AParentNode.ImageIndex := 1;
AParentNode.SelectedIndex := 1;
NewNode.ImageIndex := 3;
NewNode.SelectedIndex := 3;
if (AParentNode.ImageIndex < 0) or (AParentNode.ImageIndex > 2) then
begin
AParentNode.ImageIndex := 1;
AParentNode.SelectedIndex := 1;
end;
end;
end;
end else
NewNode := TContentTreeNode(fLastNode);
Inc(fBranchCount);
if fBranchCount mod 200 = 0 then

1
components/chmhelp/lhelp/lhelp.lpi
View File

@ -59,6 +59,7 @@
<Filename Value="chmpopup.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="HelpPopupForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="ChmPopup"/>
</Unit3>
<Unit4>