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

MG: applied cyrillic patch from vasily

Browse Source 
git-svn-id: trunk@1115 -
This commit is contained in:
lazarus 2002-02-09 01:47:53 +00:00
parent 89153229dd
commit 885b07d09b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -941,6 +941,10 @@ begin
// Function keys
GDK_F1..GDK_F24: VirtualKey := VK_F1 + (Event^.KeyVal - GDK_F1);
//By VVI - fixing cyrillic keys
//GDK_* is like a koi8-r, it is KOI8-R code +$600.
GDK_cyrillic_io..GDK_cyrillic_Capital_hardsign:
KeyCode := Event^.KeyVal mod $100;
end;
if VirtualKey=VK_UNKNOWN then begin
@ -3448,6 +3452,9 @@ end;
{ =============================================================================
$Log$
Revision 1.122 2002/10/10 08:57:25 lazarus
MG: applied cyrillic patch from vasily
Revision 1.121 2002/10/10 08:51:15 lazarus
MG: added paint messages for some gtk internal widgets