Print

---

Hello,
I have a little big problem with quick window application in Compaq
Visual Fortran 6.6. This problem is in font setting for created child
window. I would like to set font in wopenh routine to arial-like but
any set have not effect.
My question is: What can I set font type for console window in open
subroutine?  Or have you any sample for use extendfont
(extendfontname etc.) variables?
Have a nice day
Pavel Houdek

My window open subroutine:

      SUBROUTINE WOPENH(UNIT,LABEL)
      use dflib
      use dfwin
      integer unit
      character *(*)label
      logical *4 RESULT
      Integer*4 STATUS
      TYPE (windowconfig) wc
      TYPE (qwinfo) wci

      open(unit,file='user',IOFOCUS = .TRUE., title=label)

      STATUS=setactiveqq(unit)
      STATUS=focusqq(unit)

!set the screen
      wc%numtextrows = 5
      wc%numtextcols = 45
      wc.numxpixels  = -1
      wc.numypixels  = -1
      wc.numcolors   = -1
      wc.title       = "Unit 5"C !change the label name
      wc.fontsize    = #000F0010
ccccccccccccccccccccccccccccccccccccccc
      wc.extendfontname = 'Arial'     ! The name of the desired font
ccccccccccccccccccccccccccccccccccccccc
! try to set with user values
      status = setwindowconfig(wc)

! if that fails, try again with system computed values
      if(.not. status) tmp = setwindowconfig(wc)

! Set the size of window to be actually seen
      WCI.TYPE = QWIN$SET
      WCI.X  = 10
      WCI.Y  = 2
      WCI.H  = 16 ! lines hi
      WCI.W  = 47 ! chars across
      RES = SETBKCOLOR(15)
      RES = SETTEXTCOLOR(0)
      CALL CLEARSCREEN($GCLEARSCREEN)
      STATUS = SETWSIZEQQ(5,WCI)
      WRITE(UNIT,'('' Windows created  ''\)')
      END