* If OnClick is assigned to HyperLink then it overrides the HyperLink link. Now it can be used as a Hot label as well.

1 files changed, 3 insertions, 1 deletions

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;