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

gtk interface: fixed setting mouse buttons in mouse event, patch from cobines (issue #13946)

Browse Source 
git-svn-id: trunk@20571 -
This commit is contained in:
vincents 2009-06-10 13:01:32 +00:00
parent 9e77c5b78b
commit dfd8ef509d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1470,7 +1470,7 @@ begin
MessI.XPos := MappedXY.X;
MessI.YPos := MappedXY.Y;
MessI.Keys := ShiftStateToKeys(ShiftState);
MessI.Keys := MessI.Keys or ShiftStateToKeys(ShiftState);
MessI.Result:=0;
// send the message directly to the LCL