From 7dc2322da79601ecdcc22d05552a2217c5172229 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Tue, 1 Apr 2008 15:01:43 +0000
Subject: * If OnClick is assigned to HyperLink then it overrides the HyperLink
 link. Now it can be used as a Hot label as well.

---
 src/gui/gui_hyperlink.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/gui/gui_hyperlink.pas b/src/gui/gui_hyperlink.pas
index 3295ff3f..ee424a53 100644
--- a/src/gui/gui_hyperlink.pas
+++ b/src/gui/gui_hyperlink.pas
@@ -57,6 +57,7 @@ type
     property    Text;
     property    TextColor;
     property    URL: TfpgString read FUrl write SetURL;
+    property    OnClick;
 end;
 
 
@@ -128,7 +129,8 @@ end;
 procedure TfpgHyperlink.HandleLMouseDown(x, y: integer; shiftstate: TShiftState);
 begin
   inherited HandleLMouseDown(x, y, shiftstate);
-  GoHyperlink;
+  if not Assigned(OnClick) then
+    GoHyperlink;
 end;
 
 
-- 
cgit v1.2.3-70-g09d2