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

LCL: Make LCL-GTK2 trigger OnUtf8KeyPress for keys ^A..^Z. Issue #26121, patch from Bart

Browse Source 
git-svn-id: trunk@45729 -
This commit is contained in:
juha 2014-06-28 23:53:11 +00:00
parent 2285bca51c
commit 1f2b6a6e20
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1961,6 +1961,9 @@ var
if (AEvent^.keyval > $FF00) and (AEvent^.keyval < $FF20) and
(AEvent^.keyval <> GDK_KEY_TAB) then
Result := Chr(AEvent^.keyval xor $FF00)
else
if (AEvent^.keyval > $60) and (AEvent^.keyval < $7B) then
Result := Chr(AEvent^.keyval - $60) //^A .. ^Z
else
Result := #0;
end;