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

Gtk2: do not report syskey for AltGr+Shift+Key for TCustomControl.Fixes issues #22703,#25874

Browse Source 
git-svn-id: trunk@44507 -
This commit is contained in:
zeljko 2014-03-24 15:35:22 +00:00
parent 202388270c
commit 2a1f15b8f5
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -2298,26 +2298,30 @@ begin
// ssAlt + a key pressed is always a syskey
// ssAltGr + a key is only a syskey when the key pressed has no levelshift or when ssHift is pressed to0
SysKey := (ssAlt in ShiftState);
if not SysKey
then begin
if not SysKey then
begin
// Check ssAltGr
if (KCInfo.Flags and KCINFO_FLAG_ALTGR) = 0
then begin
if (KCInfo.Flags and KCINFO_FLAG_ALTGR) = 0 then
// VKey has no levelshift char so AltGr is syskey
SysKey := ssAltGr in ShiftState;
end
else begin
// VKey has levelshift char so AltGr + Shift is syskey
SysKey := ShiftState * [ssShift, ssAltGr] = [ssShift, ssAltGr]
SysKey := ssAltGr in ShiftState
else
begin
// VKey has levelshift char so AltGr + Shift is syskey.
SysKey := (ShiftState * [ssShift, ssAltGr] = [ssShift, ssAltGr]);
// This is not true for TCustomControl, issues 22703,25874.
if Assigned(LCLObject) and (LCLObject is TCustomControl) then
SysKey := False;
end;
end;
if SysKey
then Flags := Flags or KF_ALTDOWN;
if SysKey then
Flags := Flags or KF_ALTDOWN;
CommonKeyData := KeyCode shl 16; // Not really scancode, but will do
if AHandleDown
then begin
if AHandleDown then
begin
{$IFDEF VerboseKeyboard}
DebugLn('[HandleGTKKeyUpDown] GDK_KEY_PRESS VKey=',dbgs(VKey),' SysKey=',dbgs(SysKey));
{$ENDIF}