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

See ChangeLog entry 2000-02-11 19:15 GMT-5 David G. Holm <dholm@ sd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2000-02-12 00:16:10 +00:00
parent 3b5094c0b1
commit 5345d72044
2 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-02-11 19:15 GMT-5 David G. Holm <dholm@ sd-llc.com>
* source/rtl/inkey.c
! First pass at international character support for Windows console mode.
20000211-23:05 GMT+1 Victor Szakats <info@szelvesz.hu>
* make*.bat
* The different make systems generate log files with different names.

7
harbour/source/rtl/inkey.c
View File

@@ -365,7 +365,12 @@ void hb_inkeyPoll( void ) /* Poll the console keyboard to stuff the Harbour
/* Save the keyboard state and ASCII key code */
DWORD dwState = s_irInBuf[ s_cNumIndex ].Event.KeyEvent.dwControlKeyState;
ch = s_irInBuf[ s_cNumIndex ].Event.KeyEvent.uChar.AsciiChar;
if( ch == 0 || ( dwState & ( ENHANCED_KEY | LEFT_ALT_PRESSED | LEFT_CTRL_PRESSED | RIGHT_ALT_PRESSED | RIGHT_CTRL_PRESSED | SHIFT_PRESSED ) ) )
if( ch < 0 )
{
/* Process international key codes */
ch += 256;
}
else if( ch == 0 || ( dwState & ( ENHANCED_KEY | LEFT_ALT_PRESSED | LEFT_CTRL_PRESSED | RIGHT_ALT_PRESSED | RIGHT_CTRL_PRESSED | SHIFT_PRESSED ) ) )
{
/* Process non-ASCII key codes */
WORD wKey;