paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 17:18:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix double click heuristic to take into account cursor movement, if moved too much do not send double click

Browse Source 
git-svn-id: trunk@7389 -
This commit is contained in:
micha 2005-07-21 17:37:40 +00:00
parent 9e7bfb96b9
commit a8d1f0629c
2 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/win32/win32callback.inc
View File

@ -94,6 +94,17 @@ begin
EraseBkgndStack := (EraseBkgndStack shl EraseBkgndStackShift) or dword(Ord(Command)); EraseBkgndStack := (EraseBkgndStack shl EraseBkgndStackShift) or dword(Ord(Command));
end; end;
function CheckMouseMovement: boolean;
// returns true if mouse did not move between lmousebutton down
var
lCursorPos: TPoint;
moveX, moveY: integer;
begin
GetCursorPos(lCursorPos);
moveX := lCursorPos.X - MouseDownPos.X;
moveY := lCursorPos.Y - MouseDownPos.Y;
Result := (-3 <= moveX) and (moveX <= 3) and (-3 <= moveY) and (moveY <= 3);
end;
//TODO: added temporarily to fix compilation, //TODO: added temporarily to fix compilation,
//should probably removed soon, as the LCL does not listen to it. //should probably removed soon, as the LCL does not listen to it.
@ -892,10 +903,11 @@ Begin
End; End;
WM_LBUTTONDOWN: WM_LBUTTONDOWN:
Begin Begin
// if mouse-click, focus-change, mouse-click, simulate double click // if mouse-click, focus-change, mouse-click, cursor hasn't moved:
// assume focus change due to first mouse-click // simulate double click, assume focus change due to first mouse-click
if (MouseDownFocusStatus = mfFocusChanged) and (MouseDownFocusWindow = Window) if (MouseDownFocusStatus = mfFocusChanged) and (MouseDownFocusWindow = Window)
and (GetTickCount - MouseDownTime <= GetDoubleClickTime) then and (GetTickCount - MouseDownTime <= GetDoubleClickTime)
and CheckMouseMovement then
begin begin
PostMessage(Window, WM_LBUTTONDBLCLK, WParam, LParam); PostMessage(Window, WM_LBUTTONDBLCLK, WParam, LParam);
end; end;
@ -904,6 +916,7 @@ Begin
MouseDownWindow := Window; MouseDownWindow := Window;
MouseDownFocusWindow := 0; MouseDownFocusWindow := 0;
MouseDownFocusStatus := mfFocusSense; MouseDownFocusStatus := mfFocusSense;
GetCursorPos(MouseDownPos);
NotifyUserInput := True; NotifyUserInput := True;
PLMsg:=@LMMouse; PLMsg:=@LMMouse;
With LMMouse Do With LMMouse Do
@ -1601,6 +1614,9 @@ end;
{ {
$Log$ $Log$
Revision 1.212 2005/07/21 17:37:40 micha
fix double click heuristic to take into account cursor movement, if moved too much do not send double click
Revision 1.211 2005/07/05 10:49:12 micha Revision 1.211 2005/07/05 10:49:12 micha
fix bug 917: itemid -1 is for focus rectangle, let widgetset draw that fix bug 917: itemid -1 is for focus rectangle, let widgetset draw that

4
lcl/interfaces/win32/win32int.pp
View File

@ -244,6 +244,7 @@ type
var var
MouseDownTime: dword; MouseDownTime: dword;
MouseDownPos: TPoint;
MouseDownWindow: HWND; MouseDownWindow: HWND;
MouseDownFocusWindow: HWND; MouseDownFocusWindow: HWND;
MouseDownFocusStatus: TMouseDownFocusStatus; MouseDownFocusStatus: TMouseDownFocusStatus;
@ -283,6 +284,9 @@ End.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.143 2005/07/21 17:37:40 micha
fix double click heuristic to take into account cursor movement, if moved too much do not send double click
Revision 1.142 2005/07/18 13:49:54 micha Revision 1.142 2005/07/18 13:49:54 micha
split up implementation of ResizeChild split up implementation of ResizeChild