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

MG: double, triple and quad clicks now works

Browse Source 
git-svn-id: trunk@1985 -
This commit is contained in:
lazarus 2002-08-17 23:40:31 +00:00
parent 8349a42be9
commit 44be5bffe9
1 changed files with 98 additions and 106 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

204
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -18,30 +18,6 @@
// {$DEFINE ASSERT_IS_ON} // {$DEFINE ASSERT_IS_ON}
{$ENDIF} {$ENDIF}
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;
Component: TComponent;
Window: PGdkWindow;
WindowPoint: TPoint;
end;
const
EmptyLastMouseClick: TLastMouseClick =
(Down: false; TheTime: -1; Component: nil;
Window: nil; WindowPoint: (X: 0; Y: 0));
var
LastLeft, LastMiddle, LastRight: TLastMouseClick;
LastFileSelectRow : gint;
function DeliverPostMessage(const Target: Pointer; var TheMessage): GBoolean; function DeliverPostMessage(const Target: Pointer; var TheMessage): GBoolean;
var var
PaintMsg: TLMPaint; PaintMsg: TLMPaint;
@ -684,18 +660,8 @@ var
{ $DEFINE VerboseMouseBugfix} { $DEFINE VerboseMouseBugfix}
function CheckMouseButtonDown(var LastMouse: TLastMouseClick; function CheckMouseButtonDown(var LastMouse: TLastMouseClick;
BtnKey, MsgNormal, MsgDouble, MsgTriple: longint): boolean; BtnKey, MsgNormal, MsgDouble, MsgTriple, MsgQuad: longint): boolean;
function ComponentUnderstandsDblClicks: boolean;
begin
Result:=csDoubleClicks in TControl(Data).ControlStyle;
end;
function ComponentUnderstandsTripleClicks: boolean;
begin
Result:=csTripleClicks in TControl(Data).ControlStyle;
end;
function LastClickInSameGdkWindow: boolean; function LastClickInSameGdkWindow: boolean;
begin begin
Result:=(LastMouse.Window<>nil) and (LastMouse.Window=Event^.Window); Result:=(LastMouse.Window<>nil) and (LastMouse.Window=Event^.Window);
@ -712,7 +678,17 @@ var
Result:=((now - LastMouse.TheTime) <= ((1/86400)*(DblClickTime/1000))); Result:=((now - LastMouse.TheTime) <= ((1/86400)*(DblClickTime/1000)));
end; end;
function TestIfMultiClick: boolean;
begin
Result:=LastClickInSameGdkWindow
and LastClickAtSamePosition
and LastClickInTime;
end;
var
IsMultiClick: boolean;
begin begin
Result:=false;
if (LastMouse.Down) and if (LastMouse.Down) and
(not (Event^.theType in [gdk_2button_press,gdk_3button_press])) (not (Event^.theType in [gdk_2button_press,gdk_3button_press]))
then begin then begin
@ -720,58 +696,75 @@ var
writeln(' NO CLICK: LastMouse.Down=',LastMouse.Down, writeln(' NO CLICK: LastMouse.Down=',LastMouse.Down,
' Event^.theType=',Event^.theType); ' Event^.theType=',Event^.theType);
{$ENDIF} {$ENDIF}
Result:=false;
Exit; Exit;
end; end;
MessI.Keys := MessI.Keys or BtnKey; MessI.Keys := MessI.Keys or BtnKey;
if ComponentUnderstandsDblClicks
and LastClickInSameGdkWindow IsMultiClick:=TestIfMultiClick;
and LastClickAtSamePosition
and LastClickInTime case Event^.theType of
and (not (Event^.theType = gdk_3button_press)) gdk_2button_press:
then begin // the gtk itself has detected a double click
{$IFDEF VerboseMouseBugfix} if (LastMouse.ClickCount>=2)
writeln(' TIME DOUBLE CLICK: ',now,'-',LastMouse.TheTime,'<= ', and IsMultiClick
((1/86400)*(DblClickTime/1000))); then begin
{$ENDIF} // the double click was already detected and sent to the LCL
Event^.theType := gdk_2Button_press; // -> skip this message
exit;
end else begin
LastMouse.ClickCount:=2;
end;
gdk_3button_press:
// the gtk itself has detected a triple click
if (LastMouse.ClickCount>=3)
and IsMultiClick
then begin
// the triple click was already detected and sent to the LCL
// -> skip this message
exit;
end else begin
LastMouse.ClickCount:=3;
end;
else
begin
inc(LastMouse.ClickCount);
if (LastMouse.ClickCount<=4)
and IsMultiClick
then begin
// multi click
{$IFDEF VerboseMouseBugfix}
writeln(' MULTI CLICK: ',now,'-',LastMouse.TheTime,'<= ',
((1/86400)*(DblClickTime/1000)));
{$ENDIF}
end else begin
// normal click
LastMouse.ClickCount:=1;
end;
end;
end; end;
{$IFDEF VerboseMouseBugfix}
writeln(' ClickCount=',LastMouse.ClickCount);
{$ENDIF}
LastMouse.TheTime := Now; LastMouse.TheTime := Now;
LastMouse.Window := Event^.Window; LastMouse.Window := Event^.Window;
LastMouse.WindowPoint := EventXY; LastMouse.WindowPoint := EventXY;
if event^.thetype = gdk_button_press then begin
MessI.Msg := MsgNormal;
{$IFDEF VerboseMouseBugfix}
writeln(' NormalClick');
{$ENDIF}
end else
if event^.thetype = gdk_2button_press then begin
if ComponentUnderstandsDblClicks then
MessI.Msg := MsgDouble
else
MessI.Msg := MsgNormal;
LastMouse.Window := nil;
{$IFDEF VerboseMouseBugfix}
writeln(' DoubleClick');
{$ENDIF}
end
else
if event^.thetype = gdk_3button_press then begin
if ComponentUnderstandsTripleClicks then
MessI.Msg := MsgTriple
else
MessI.Msg := MsgNormal;
LastMouse.Window := nil;
{$IFDEF VerboseMouseBugfix}
writeln(' TripleClick');
{$ENDIF}
end;
LastMouse.Down := True; LastMouse.Down := True;
LastMouse.Component:=TComponent(Data); LastMouse.Component:=TComponent(Data);
case LastMouse.ClickCount of
1: MessI.Msg := MsgNormal;
2: MessI.Msg := MsgDouble;
3: MessI.Msg := MsgTriple;
4: MessI.Msg := MsgQuad;
else
MessI.Msg := LM_NULL;
end;
Result:=true; Result:=true;
end; end;
@ -839,15 +832,18 @@ begin
case event^.Button of case event^.Button of
1: if not CheckMouseButtonDown(LastLeft, 1: if not CheckMouseButtonDown(LastLeft,
MK_LBUTTON, LM_LBUTTONDOWN, LM_LBUTTONDBLCLK, LM_LBUTTONTRIPLECLK) MK_LBUTTON, LM_LBUTTONDOWN,
LM_LBUTTONDBLCLK, LM_LBUTTONTRIPLECLK, LM_LBUTTONQUADCLK)
then exit; then exit;
2: if not CheckMouseButtonDown(LastMiddle, 2: if not CheckMouseButtonDown(LastMiddle,
MK_MBUTTON, LM_MBUTTONDOWN, LM_MBUTTONDBLCLK, LM_MBUTTONTRIPLECLK) MK_MBUTTON, LM_MBUTTONDOWN,
LM_MBUTTONDBLCLK, LM_MBUTTONTRIPLECLK, LM_MBUTTONQUADCLK)
then exit; then exit;
3: if not CheckMouseButtonDown(LastRight, 3: if not CheckMouseButtonDown(LastRight,
MK_RBUTTON, LM_RBUTTONDOWN, LM_RBUTTONDBLCLK, LM_RBUTTONTRIPLECLK) MK_RBUTTON, LM_RBUTTONDOWN,
LM_RBUTTONDBLCLK, LM_RBUTTONTRIPLECLK, LM_RBUTTONQUADCLK)
then exit; then exit;
else else
@ -865,7 +861,7 @@ begin
if ssLeft in ShiftState then MessI.Keys := MessI.Keys or MK_LBUTTON; if ssLeft in ShiftState then MessI.Keys := MessI.Keys or MK_LBUTTON;
if ssRight in ShiftState then MessI.Keys := MessI.Keys or MK_RBUTTON; if ssRight in ShiftState then MessI.Keys := MessI.Keys or MK_RBUTTON;
if ssMiddle in ShiftState then MessI.Keys := MessI.Keys or MK_MBUTTON; if ssMiddle in ShiftState then MessI.Keys := MessI.Keys or MK_MBUTTON;
MessI.Result:=0; MessI.Result:=0;
// send the message directly to the LCL // send the message directly to the LCL
// (Posting the message via queue // (Posting the message via queue
@ -873,7 +869,6 @@ begin
//DeliverPostMessage(Data, MessI); //DeliverPostMessage(Data, MessI);
DeliverMessage(Data, MessI); DeliverMessage(Data, MessI);
end; end;
Result:=true;
end; end;
{------------------------------------------------------------------------------- {-------------------------------------------------------------------------------
@ -889,10 +884,10 @@ function gtkMouseBtnPressAfter(widget: PGtkWidget; event : pgdkEventButton;
begin begin
Result:=true; Result:=true;
{$IFDEF VerboseMouseBugfix} {$IFDEF VerboseMouseBugfix}
writeln('[gtkMouseBtnPressAfter] ', {writeln('[gtkMouseBtnPressAfter] ',
TControl(Data).Name,':',TObject(Data).ClassName, TControl(Data).Name,':',TObject(Data).ClassName,
' Widget=',HexStr(Cardinal(Widget),8), ' Widget=',HexStr(Cardinal(Widget),8),
' ',Trunc(Event^.X),',',Trunc(Event^.Y)); ' ',Trunc(Event^.X),',',Trunc(Event^.Y));}
{$ENDIF} {$ENDIF}
// stop the signal, so that it is not sent to the parent widgets // stop the signal, so that it is not sent to the parent widgets
@ -917,18 +912,12 @@ var
DesignOnlySignal: boolean; DesignOnlySignal: boolean;
function CheckMouseButtonUp(var LastMouse: TLastMouseClick; function CheckMouseButtonUp(var LastMouse: TLastMouseClick;
MsgUp: integer): boolean; MsgUp: longint): boolean;
begin begin
if not (LastMouse.Down) then MessI.Msg := MsgUp;
Result:=false LastMouse.Down := False;
else Result:=true;
begin end;
MessI.Msg := MsgUp;
LastMouse.Down := False;
Result:=true;
end;
LastMouse.Component:=nil;
end;
begin begin
Result:=true; Result:=true;
@ -964,22 +953,23 @@ begin
PGtkWidget(TWinControl(Data).Handle)); PGtkWidget(TWinControl(Data).Handle));
case event^.Button of case event^.Button of
1:
if not CheckMouseButtonUp(LastLeft,LM_LBUTTONUP) then Exit;
2: 1: if not CheckMouseButtonUp(LastLeft, LM_LBUTTONUP)
if not CheckMouseButtonUp(LastMiddle,LM_MBUTTONUP) then Exit; then exit;
3: 2: if not CheckMouseButtonUp(LastMiddle, LM_MBUTTONUP)
if not CheckMouseButtonUp(LastRight,LM_RBUTTONUP) then Exit; then exit;
3: if not CheckMouseButtonUp(LastRight, LM_RBUTTONUP)
then exit;
else else
begin begin
MessI.Msg := LM_NULL; MessI.Msg := LM_NULL;
exit; exit;
end; end;
end; end; // case
MessI.XPos := MappedXY.X; MessI.XPos := MappedXY.X;
MessI.YPos := MappedXY.Y; MessI.YPos := MappedXY.Y;
@ -999,7 +989,6 @@ begin
MessI.Result := 0; MessI.Result := 0;
DeliverMessage(Data, MessI); DeliverMessage(Data, MessI);
end; end;
Result:=true;
end; end;
{------------------------------------------------------------------------------- {-------------------------------------------------------------------------------
@ -1015,9 +1004,9 @@ function gtkMouseBtnReleaseAfter(widget: PGtkWidget; event : pgdkEventButton;
begin begin
Result:=true; Result:=true;
{$IFDEF VerboseMouseBugfix} {$IFDEF VerboseMouseBugfix}
writeln('[gtkMouseBtnReleaseAfter] ', {writeln('[gtkMouseBtnReleaseAfter] ',
TControl(Data).Name,':',TObject(Data).ClassName,' ', TControl(Data).Name,':',TObject(Data).ClassName,' ',
Trunc(Event^.X),',',Trunc(Event^.Y)); Trunc(Event^.X),',',Trunc(Event^.Y));}
{$ENDIF} {$ENDIF}
// stop the signal, so that it is not sent to the parent widgets // stop the signal, so that it is not sent to the parent widgets
@ -2279,6 +2268,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.119 2002/09/01 16:11:22 lazarus
MG: double, triple and quad clicks now works
Revision 1.118 2002/08/31 11:37:10 lazarus Revision 1.118 2002/08/31 11:37:10 lazarus
MG: fixed destroying combobox MG: fixed destroying combobox