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

gtk intf: added flag EnableGtkShiftState to use gtk key shift state, needed on ubuntu

Browse Source 
git-svn-id: trunk@20870 -
This commit is contained in:
mattias 2009-07-16 12:28:03 +00:00
parent a4a1469e9d
commit 69d68a7b86
3 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,9 @@
keyboardlayouts are used. With UseOwnShiftState we keep track of the shiftate keyboardlayouts are used. With UseOwnShiftState we keep track of the shiftate
ourself ourself
*) *)
{$IFNDEF EnableGtkShiftState}
{$define UseOwnShiftState} {$define UseOwnShiftState}
{$ENDIF}
(* (*
keep track of keystates instead of using OS keep track of keystates instead of using OS

1
lcl/interfaces/gtk/gtkproc.inc
View File

@ -2273,6 +2273,7 @@ begin
Flags := 0; Flags := 0;
SysKey := False; SysKey := False;
ShiftState := GTKEventStateToShiftState(AEvent^.state); ShiftState := GTKEventStateToShiftState(AEvent^.state);
//DebugLn(['HandleGTKKeyUpDown AEvent^.state=',hexstr(AEvent^.state,4),' ',dbgs(ShiftState)]);
{$ifdef gtk1} {$ifdef gtk1}
KeyCode := XKeysymToKeycode(gdk_display, AEvent^.keyval); KeyCode := XKeysymToKeycode(gdk_display, AEvent^.keyval);
{$else} {$else}