Microsoft KB Archive/108345

= DOCERR: GetCharQQ Not Accepting Direction Keys in QuickWin =

Article ID: 108345

Article Last Modified on 10/17/2003

-

APPLIES TO


 * Microsoft FORTRAN PowerStation 32
 * Microsoft FORTRAN PowerStation 32

-



This article was previously published under Q108345



SYMPTOMS
Page 553 of the Microsoft FORTRAN PowerStation 32 "Programmer's Guide" states that GetCharQQ will not accept function keys under QuickWin. The manual fails to state that direction keys are also not accepted by GetCharQQ under QuickWin.



CAUSE
QuickWin uses the direction keys to scroll the active window. The direction keys are trapped by QuickWin before GetCharQQ has a chance to interpret them.



STATUS
Microsoft has confirmed this to be a problem in Microsoft FORTRAN PowerStation 32 version 1.0. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

NOTE: Under FORTRAN PowerStation 4.0, GetCharQQ will accept function keys under QuickWin. Direction keys are still trapped by QuickWin for scrolling the active window.



MORE INFORMATION
The sample program below, built as a QuickWin application, does not work with the direction keys. The same program built as a console application can identify direction keys. This is done by using the extended code obtained by calling GetCharQQ a second time.

Sample Code
C Compile options needed: /MW (to duplicate problem)

INCLUDE 'flib.fi' INCLUDE 'flib.fd' CHARACTER*1 key / 'A' / WRITE (*,*) ' Type a key; (or q to quit)' C    Read and display keys until ESC is pressed. DO WHILE (ICHAR(key) .NE. 27) key = GETCHARQQ C    If extended key, its control or function key IF ((ICHAR(key) .EQ. 0) .OR.    +       (ICHAR(key) .EQ. 224)) THEN key = GETCHARQQ WRITE (*,900) 'ASCII: no   Char: NA    ' C    Otherwise, there's only one key ELSE WRITE (*,900) 'ASCII: yes  Char: ' WRITE (*,900) key END IF           WRITE (*, 901) ICHAR(key), ICHAR(key) IF (key .EQ. 'q') EXIT END DO 900  FORMAT (1X, A, \) 901  FORMAT (1X, 'Decimal: ', I3, '   Hex: ',Z4, /) END

Additional query words: 1.00

Keywords: kblangfortran kbcode KB108345

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.