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

MG: fixed keygrabbing key translation

Browse Source 
git-svn-id: trunk@818 -
This commit is contained in:
lazarus 2002-02-09 01:46:52 +00:00
parent 8ff70eb8c0
commit acd845a307
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -525,7 +525,7 @@ begin
if VirtualKey=VK_UNKNOWN then begin if VirtualKey=VK_UNKNOWN then begin
// map all other keys to VK_IRREGULAR + KeyCode // map all other keys to VK_IRREGULAR + KeyCode
if ShortInt(KeyCode)>=0 then if ShortInt(KeyCode)>=0 then
VirtualKey := VK_IRREGULAR + KeyCode VirtualKey := MapIrregularVirtualKey(VK_IRREGULAR + KeyCode)
else else
VirtualKey := VK_IRREGULAR; VirtualKey := VK_IRREGULAR;
end; end;
@ -2207,6 +2207,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.61 2002/08/17 11:38:04 lazarus
MG: fixed keygrabbing key translation
Revision 1.60 2002/08/16 17:47:39 lazarus Revision 1.60 2002/08/16 17:47:39 lazarus
MG: added some IDE menuicons, fixed submenu indicator bug MG: added some IDE menuicons, fixed submenu indicator bug