paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 12:11:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix multi click control style to target control.

Browse Source 
git-svn-id: trunk@51735 -
This commit is contained in:
ondrej 2016-02-28 03:53:45 +00:00
parent ee08798b5e
commit 7b141be77b
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/controls.pp
View File

@ -2991,6 +2991,7 @@ const
var
IsMultiClick: boolean;
TargetControl: TControl;
begin
Result := LM_NULL;
@ -3022,10 +3023,16 @@ begin
LastMouse.ClickCount := 1;
end;
case LastMouse.ClickCount of
2: if not(csDoubleClicks in AWinControl.ControlStyle) then LastMouse.ClickCount := 1;
3: if not(csTripleClicks in AWinControl.ControlStyle) then LastMouse.ClickCount := 1;
4: if not(csQuadClicks in AWinControl.ControlStyle) then LastMouse.ClickCount := 1;
if LastMouse.ClickCount > 1 then
begin
TargetControl := AWinControl.ControlAtPos(AWinControl.ScreenToClient(AMousePos), [capfHasScrollOffset]);
if TargetControl=nil then
TargetControl := AWinControl;
case LastMouse.ClickCount of
2: if not(csDoubleClicks in TargetControl.ControlStyle) then LastMouse.ClickCount := 1;
3: if not(csTripleClicks in TargetControl.ControlStyle) then LastMouse.ClickCount := 1;
4: if not(csQuadClicks in TargetControl.ControlStyle) then LastMouse.ClickCount := 1;
end;
end;
LastMouse.Down := AMouseDown;