DOCERR: GetCharQQ Not Accepting Direction Keys in QuickWin (108345)


The information in this article applies to:

  • Microsoft Fortran Powerstation 32 for Windows NT 1.0
  • Microsoft Fortran Powerstation 32 for Windows NT 4.0
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
Modification Type:MajorLast Reviewed:10/17/2003
Keywords:kbcode kbLangFortran KB108345
©2003 Microsoft Corporation. All rights reserved.