paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 13:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: double, triple and quad clicks now works

Browse Source 
git-svn-id: trunk@788 -
This commit is contained in:
lazarus 2002-02-09 01:46:37 +00:00
parent 88bf48e66e
commit bd541db19e
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk/gtkobject.inc
View File

@ -2701,6 +2701,14 @@ begin
QueueItem:=QueueItem^.Next;
end;
end;
// mouse click messages
if LastLeft.Component=Sender then
LastLeft:=EmptyLastMouseClick;
if LastMiddle.Component=Sender then
LastMiddle:=EmptyLastMouseClick;
if LastRight.Component=Sender then
LastRight:=EmptyLastMouseClick;
end;
{-------------------------------------------------------------------------------
@ -5506,6 +5514,9 @@ end;
{ =============================================================================
$Log$
Revision 1.192 2002/09/01 16:11:22 lazarus
MG: double, triple and quad clicks now works
Revision 1.191 2002/08/31 11:37:10 lazarus
MG: fixed destroying combobox