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

* Partly reverted r20771 #3f9fe8af18, the intrepretation of ssAlt and ssAltGr was wrong

Browse Source 
git-svn-id: trunk@20773 -
This commit is contained in:
marc 2009-07-01 07:18:15 +00:00
parent f13e17fefc
commit 1ceccdc82c
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2297,20 +2297,23 @@ begin
if (KCInfo.Flags and KCINFO_FLAG_EXT) <> 0
then Flags := KF_EXTENDED;
{$ifdef UseOwnShiftState}
SysKey := (ssAlt in ShiftState)
or (ShiftState * [ssShift, ssAltGr] = [ssShift, ssAltGr]);
{$else}
if (KCInfo.Flags and KCINFO_FLAG_ALTGR) = 0
// 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
// VKey is without ALT so Alt is syskey
SysKey := ssAlt in ShiftState;
end
else begin
// VKey is with ALT so SHIFT Alt is syskey
SysKey := ShiftState * [ssShift, ssAltGr] = [ssShift, ssAltGr]
// Check ssAltGr
if (KCInfo.Flags and KCINFO_FLAG_ALTGR) = 0
then begin
// 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]
end;
end;
{$endif}
if SysKey
then Flags := Flags or KF_ALTDOWN;