paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 21:02:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Turbopower_iPro: Avoid opening hyperlinks if a special key is pressed while clicking.

Browse Source 
git-svn-id: trunk@50189 -
This commit is contained in:
wp 2015-10-28 16:13:16 +00:00
parent 2ff909a6cc
commit 9c9b31c0e5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/turbopower_ipro/iphtml.pas
View File

@ -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)