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

MG: double, triple and quad clicks now works

Browse Source 
git-svn-id: trunk@1016 -
This commit is contained in:
lazarus 2002-02-09 01:47:39 +00:00
parent a0c58dfe84
commit 58eefd9d55
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/interfaces/gtk/gtkint.pp
View File

@ -189,6 +189,30 @@ var
MCaptureHandle: HWND;
const
DblClickTime = 250;// 250 miliseconds or less between clicks is a double click
DblClickThreshold = 3;// max Movement between two clicks of a DblClick
type
TLastMouseClick = record
Down: boolean;
TheTime: TDateTime; // last Down time
ClickCount: integer;
Component: TComponent;
Window: PGdkWindow;
WindowPoint: TPoint;
end;
const
EmptyLastMouseClick: TLastMouseClick =
(Down: false; TheTime: -1; ClickCount: 0; Component: nil;
Window: nil; WindowPoint: (X: 0; Y: 0));
var
LastLeft, LastMiddle, LastRight: TLastMouseClick;
LastFileSelectRow : gint;
// mouse cursors
Cursor_Watch : pGDKCursor;
Cursor_Arrow : pGDKCursor;
@ -454,6 +478,9 @@ end.
{ =============================================================================
$Log$
Revision 1.67 2002/09/01 16:11:22 lazarus
MG: double, triple and quad clicks now works
Revision 1.66 2002/08/28 09:40:49 lazarus
MG: reduced paint messages and DC getting/releasing