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

gtk: fill modifiers for 2 mouse extra butttons

Browse Source 
git-svn-id: trunk@20419 -
This commit is contained in:
paul 2009-06-05 03:12:54 +00:00
parent 114803be07
commit fdd47f0673
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkproc.pp
View File

@ -924,6 +924,8 @@ begin
MModifiers[ssLeft].Mask := GDK_BUTTON1_MASK; MModifiers[ssLeft].Mask := GDK_BUTTON1_MASK;
MModifiers[ssMiddle].Mask := GDK_BUTTON2_MASK; MModifiers[ssMiddle].Mask := GDK_BUTTON2_MASK;
MModifiers[ssRight].Mask := GDK_BUTTON3_MASK; MModifiers[ssRight].Mask := GDK_BUTTON3_MASK;
MModifiers[ssExtra1].Mask := GDK_BUTTON4_MASK;
MModifiers[ssExtra2].Mask := GDK_BUTTON5_MASK;
FillChar(MKeyCodeInfo, SizeOf(MKeyCodeInfo), $FF); FillChar(MKeyCodeInfo, SizeOf(MKeyCodeInfo), $FF);
FillChar(MVKeyInfo, SizeOf(MVKeyInfo), 0); FillChar(MVKeyInfo, SizeOf(MVKeyInfo), 0);