fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2016-04-19 14:49 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* src/rtl/gtwin/gtwin.c
    ! fixed wrong translation in my previous commit
This commit is contained in:
Przemysław Czerpak
2016-04-19 14:49:11 +02:00
parent 7d2caa12d3
commit 7d513fad62
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/rtl/gtwin/gtwin.c
View File

@@ -1563,8 +1563,6 @@ static int hb_gt_win_ReadKey( PHB_GT pGT, int iEventMask )
iChar += 'A' - 1;
iKey = HB_INKEY_NEW_KEY( iChar, iFlags );
}
else if( iKey < 127 && ( iFlags & ( HB_KF_CTRL | HB_KF_ALT ) ) )
iKey = HB_INKEY_NEW_KEY( iKey, iFlags );
else if( iChar != 0 )
{
#if defined( UNICODE )
@@ -1575,6 +1573,8 @@ static int hb_gt_win_ReadKey( PHB_GT pGT, int iEventMask )
if( u )
iKey = HB_INKEY_NEW_UNICODEF( u, iFlags );
#endif
else if( iChar < 127 && ( iFlags & ( HB_KF_CTRL | HB_KF_ALT ) ) )
iKey = HB_INKEY_NEW_KEY( iChar, iFlags );
else
iKey = HB_INKEY_NEW_CHARF( iChar, iFlags );
}