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

* Improvement of r20767 #7077d774a2. Don't use AltGr KCInfo flag when using own shiftstate. This flag might have been set wrong when altkey isn't detected/recognized

Browse Source 
git-svn-id: trunk@20771 -
This commit is contained in:
marc 2009-06-30 23:57:02 +00:00
parent c6a5b323e3
commit 3f9fe8af18
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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