DOCERR: GetCharQQ Not Accepting Direction Keys in QuickWin

Last reviewed: December 10, 1995
Article ID: Q108345

The information in this article applies to:

Microsoft FORTRAN PowerStation 32 version 1.0 and 4.0

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 reference words: 1.00
KBCategory: kbprg kbdocerr kbcode
KBSubcategory: FORTLngIss

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: December 10, 1995
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.