From 9c9b31c0e5ac85b472cea437e6f526b3bccf0cda Mon Sep 17 00:00:00 2001 From: wp Date: Wed, 28 Oct 2015 16:13:16 +0000 Subject: [PATCH] Turbopower_iPro: Avoid opening hyperlinks if a special key is pressed while clicking. git-svn-id: trunk@50189 - --- components/turbopower_ipro/iphtml.pas | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas index f6584d5280..ada4c0fc8e 100644 --- a/components/turbopower_ipro/iphtml.pas +++ b/components/turbopower_ipro/iphtml.pas @@ -13060,9 +13060,8 @@ procedure TIpHtmlInternalPanel.MouseUp(Button: TMouseButton; Shift: TShiftState; begin inherited; MouseIsDown := False; - if (abs(MouseDownX - X) < 4) - and (abs(MouseDownY - Y) < 4) then - if (Button = mbLeft) and (Hyper.HotNode <> nil) then + if (abs(MouseDownX - X) < 4) and (abs(MouseDownY - Y) < 4) then + if (Button = mbLeft) and (Shift = []) and (Hyper.HotNode <> nil) then {$IFDEF IP_LAZARUS} // to avoid references to invalid objects do it asynchronously Application.QueueAsyncCall(AsyncHotInvoke, 0)