paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 19:32:49 +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
ourself
*)
{$IFNDEF EnableGtkShiftState}
{$define UseOwnShiftState}
{$ENDIF}
(*
keep track of keystates instead of using OS

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

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

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

@ -813,7 +813,7 @@ var
MVKeyInfo: array[Byte] of TVKeyInfo;
// Modifier keys can be set by a modmap and don't have to be the same on all systems
// Some defaults are set here incase we didn't find them
// Some defaults are set here in case we didn't find them
type
TModifier = record
Mask: TGdkModifierType; // if UseValue is set, the modifier is set when the masked state matches the value