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

Lhelp: Open an external hyperlink when clicked. Issue #22765. Remove unused units from uses section.

Browse Source 
git-svn-id: trunk@46343 -
This commit is contained in:
juha 2014-09-28 18:20:35 +00:00
parent 13fcf53a0d
commit b6e862afbb
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,7 +18,7 @@ interface
uses uses
Classes, SysUtils, Laz2_XMLCfg, Classes, SysUtils, Laz2_XMLCfg,
FileUtil, Forms, StdCtrls, ExtCtrls, ComCtrls, Controls, Buttons, Menus, LCLIntf, FileUtil, Forms, StdCtrls, ExtCtrls, ComCtrls, Controls, Menus,
BaseContentProvider, FileContentProvider, IpHtml, ChmReader, ChmDataProvider; BaseContentProvider, FileContentProvider, IpHtml, ChmReader, ChmDataProvider;
type type
@ -71,6 +71,7 @@ type
procedure FillTOC(Data: PtrInt); procedure FillTOC(Data: PtrInt);
procedure IpHtmlPanelDocumentOpen(Sender: TObject); procedure IpHtmlPanelDocumentOpen(Sender: TObject);
procedure IpHtmlPanelHotChange(Sender: TObject); procedure IpHtmlPanelHotChange(Sender: TObject);
procedure IpHtmlPanelHotClick(Sender: TObject);
procedure PopupCopyClick(Sender: TObject); procedure PopupCopyClick(Sender: TObject);
procedure ContentsTreeSelectionChanged(Sender: TObject); procedure ContentsTreeSelectionChanged(Sender: TObject);
procedure IndexViewDblClick(Sender: TObject); procedure IndexViewDblClick(Sender: TObject);
@ -566,6 +567,11 @@ begin
fStatusBar.SimpleText := fHtml.HotURL; fStatusBar.SimpleText := fHtml.HotURL;
end; end;
procedure TChmContentProvider.IpHtmlPanelHotClick(Sender: TObject);
begin
OpenURL(fHtml.HotURL);
end;
procedure TChmContentProvider.PopupCopyClick(Sender: TObject); procedure TChmContentProvider.PopupCopyClick(Sender: TObject);
begin begin
fHtml.CopyToClipboard; fHtml.CopyToClipboard;
@ -1239,6 +1245,7 @@ begin
TIpChmDataProvider(DataProvider).OnGetHtmlPage:=@LoadingHTMLStream; TIpChmDataProvider(DataProvider).OnGetHtmlPage:=@LoadingHTMLStream;
OnDocumentOpen := @IpHtmlPanelDocumentOpen; OnDocumentOpen := @IpHtmlPanelDocumentOpen;
OnHotChange := @IpHtmlPanelHotChange; OnHotChange := @IpHtmlPanelHotChange;
OnHotClick := @IpHtmlPanelHotClick;
Parent := AParent; Parent := AParent;
Align := alClient; Align := alClient;
end; end;

7
components/chmhelp/lhelp/lhelpcore.pas
View File

@ -37,10 +37,9 @@ interface
uses uses
Classes, SysUtils, SimpleIPC, Laz2_XMLCfg, Classes, SysUtils, SimpleIPC, Laz2_XMLCfg,
FileUtil, LResources, Forms, Controls, Graphics, Dialogs, FileUtil, Forms, Controls, Dialogs,
Buttons, LCLProc, IpHtml, ComCtrls, ExtCtrls, Menus, LCLType, LCLIntf, StdCtrls, Buttons, LCLProc, ComCtrls, ExtCtrls, Menus, LCLType, LCLIntf, StdCtrls,
BaseContentProvider, FileContentProvider, BaseContentProvider, ChmContentProvider
ChmContentProvider
{$IFDEF USE_LNET}, HTTPContentProvider{$ENDIF}, {$IFDEF USE_LNET}, HTTPContentProvider{$ENDIF},
lazlogger; lazlogger;