From b6e862afbb38d07c7a8b689ea1bc124c06f47a2a Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 28 Sep 2014 18:20:35 +0000
Subject: [PATCH] Lhelp: Open an external hyperlink when clicked. Issue #22765.
 Remove unused units from uses section.

git-svn-id: trunk@46343 -
---
 components/chmhelp/lhelp/chmcontentprovider.pas | 9 ++++++++-
 components/chmhelp/lhelp/lhelpcore.pas          | 7 +++----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/components/chmhelp/lhelp/chmcontentprovider.pas b/components/chmhelp/lhelp/chmcontentprovider.pas
index ebe1825350..e277e89521 100644
--- a/components/chmhelp/lhelp/chmcontentprovider.pas
+++ b/components/chmhelp/lhelp/chmcontentprovider.pas
@@ -18,7 +18,7 @@ interface
 
 uses
   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;
 
 type
@@ -71,6 +71,7 @@ type
     procedure FillTOC(Data: PtrInt);
     procedure IpHtmlPanelDocumentOpen(Sender: TObject);
     procedure IpHtmlPanelHotChange(Sender: TObject);
+    procedure IpHtmlPanelHotClick(Sender: TObject);
     procedure PopupCopyClick(Sender: TObject);
     procedure ContentsTreeSelectionChanged(Sender: TObject);
     procedure IndexViewDblClick(Sender: TObject);
@@ -566,6 +567,11 @@ begin
   fStatusBar.SimpleText := fHtml.HotURL;
 end;
 
+procedure TChmContentProvider.IpHtmlPanelHotClick(Sender: TObject);
+begin
+  OpenURL(fHtml.HotURL);
+end;
+
 procedure TChmContentProvider.PopupCopyClick(Sender: TObject);
 begin
   fHtml.CopyToClipboard;
@@ -1239,6 +1245,7 @@ begin
     TIpChmDataProvider(DataProvider).OnGetHtmlPage:=@LoadingHTMLStream;
     OnDocumentOpen := @IpHtmlPanelDocumentOpen;
     OnHotChange := @IpHtmlPanelHotChange;
+    OnHotClick := @IpHtmlPanelHotClick;
     Parent := AParent;
     Align := alClient;
   end;
diff --git a/components/chmhelp/lhelp/lhelpcore.pas b/components/chmhelp/lhelp/lhelpcore.pas
index 469f7d2610..35785cfdf8 100644
--- a/components/chmhelp/lhelp/lhelpcore.pas
+++ b/components/chmhelp/lhelp/lhelpcore.pas
@@ -37,10 +37,9 @@ interface
 
 uses
   Classes, SysUtils, SimpleIPC, Laz2_XMLCfg,
-  FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  Buttons, LCLProc, IpHtml, ComCtrls, ExtCtrls, Menus, LCLType, LCLIntf, StdCtrls,
-  BaseContentProvider, FileContentProvider,
-  ChmContentProvider
+  FileUtil, Forms, Controls, Dialogs,
+  Buttons, LCLProc, ComCtrls, ExtCtrls, Menus, LCLType, LCLIntf, StdCtrls,
+  BaseContentProvider, ChmContentProvider
   {$IFDEF USE_LNET}, HTTPContentProvider{$ENDIF},
   lazlogger;