paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 13:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* lhelp shows TOC node when any url is loaded if there is one

Browse Source 
* changed lhelp toc treeview to be readonly

git-svn-id: trunk@21946 -
This commit is contained in:
andrew 2009-10-01 13:55:00 +00:00
parent a66f070242
commit 6f52a21925
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -247,6 +247,7 @@ begin
fIsUsingHistory := True;
fHtml.OpenURL(Uri);
TIpChmDataProvider(fHtml.DataProvider).CurrentPath := ExtractFileDir(URI)+'/';
AddHistory(Uri);
{WriteLn(iphtml.Aspect);
iphtml.ScaleFonts := True;
@ -316,6 +317,8 @@ begin
Free;
end;
Stream.Free;
if (fContentsTree.Selected = nil) and (fHistory.Count > 0) then
SelectTreeItemFromURL(fHistory.Strings[fHistoryIndex]);
end;
fContentsTab.TabVisible := fContentsTree.Items.Count > 1;
@ -824,6 +827,7 @@ begin
Parent := fContentsPanel;
Align := alClient;
BorderSpacing.Around := 6;
ReadOnly := True;
Visible := True;
OnSelectionChanged := @ContentsTreeSelectionChanged;
OnExpanded := @TOCExpand;