diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/gui/gui_hyperlink.pas | 4 |
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; |