paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-22 00:47:46 +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 // Function keys
GDK_F1..GDK_F24: VirtualKey := VK_F1 + (Event^.KeyVal - GDK_F1); 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; end;
if VirtualKey=VK_UNKNOWN then begin if VirtualKey=VK_UNKNOWN then begin
@ -3448,6 +3452,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.121 2002/10/10 08:51:15 lazarus
MG: added paint messages for some gtk internal widgets MG: added paint messages for some gtk internal widgets