From 0006ba061f5a22d1bcee323bec71987fe8bc9b1a Mon Sep 17 00:00:00 2001 From: paul Date: Fri, 5 Jun 2009 09:22:21 +0000 Subject: [PATCH] gtk: more support for extra mouse buttons git-svn-id: trunk@20429 - --- lcl/interfaces/gtk/gtkcallback.inc | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lcl/interfaces/gtk/gtkcallback.inc b/lcl/interfaces/gtk/gtkcallback.inc index 7f1db64be4..e2e8b90d48 100644 --- a/lcl/interfaces/gtk/gtkcallback.inc +++ b/lcl/interfaces/gtk/gtkcallback.inc @@ -1150,6 +1150,8 @@ begin if ssLeft in ShiftState then Keys := Keys or MK_LBUTTON; if ssRight in ShiftState then Keys := Keys or MK_RBUTTON; if ssMiddle in ShiftState then Keys := Keys or MK_MBUTTON; + if ssExtra1 in ShiftState then Keys := Keys or MK_XBUTTON1; + if ssExtra2 in ShiftState then Keys := Keys or MK_XBUTTON2; Result := 0; end; @@ -1480,6 +1482,8 @@ begin 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 ssMiddle in ShiftState then MessI.Keys := MessI.Keys or MK_MBUTTON; + if ssExtra1 in ShiftState then MessI.Keys := MessI.Keys or MK_XBUTTON1; + if ssExtra2 in ShiftState then MessI.Keys := MessI.Keys or MK_XBUTTON2; MessI.Result:=0; // send the message directly to the LCL @@ -1717,6 +1721,8 @@ begin 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 ssMiddle in ShiftState then MessI.Keys := MessI.Keys or MK_MBUTTON; + if ssExtra1 in ShiftState then MessI.Keys := MessI.Keys or MK_XBUTTON1; + if ssExtra2 in ShiftState then MessI.Keys := MessI.Keys or MK_XBUTTON2; if MessI.Msg <> LM_NULL then begin