paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 02:12:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

lhelp - fixed the Default page of a chm being loaded twice on initial opening of a chm

Browse Source 
git-svn-id: trunk@26981 -
This commit is contained in:
andrew 2010-08-02 21:44:29 +00:00
parent 8d83a14a6d
commit a3ba202973
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -548,6 +548,7 @@ var
ATreeNode: TContentTreeNode;
ARootNode: TTreeNode;
fChm: TChmReader = nil;
Uri: String;
begin
if (fContentsTree.Selected = nil) then Exit;
if fContentsTree.Selected.Parent = nil then
@ -556,8 +557,13 @@ begin
fActiveChmTitle:= fChm.Title;
UpdateTitle;
if fChm.DefaultPage <> '' then
DoLoadUri(MakeURI(fChm.DefaultPage, fChm));
begin
Uri := MakeURI(fChm.DefaultPage, fChm);
if ((fHtml.MasterFrame <> nil) and (MakeURI(fHtml.CurURL, fChm) = Uri)) = False then
DoLoadUri(Uri);
end;
Exit;
end;
ATreeNode := TContentTreeNode(fContentsTree.Selected);