isCOBOL Evolve : User Interface : Controls Reference : ENTRY-FIELD : Properties : Font
Font
This property specifies the font used to display the content of the Entry-Field control. It may be used to compute the height and the width of the Entry-Field control, as well. See the Height-In-Cells, Lines, Size, and Width-In-Cells properties for further details.
 
Example - Define an entry-field control with Verdana font
working-storage section.
copy "isfonts.def".
77 Verdana-10v0 handle of font.
...
screen section.
...
  03 screen-1-ef-2 Entry-Field
     line 29.0
     column 49.5
     size 13.1 cells 
     lines 4.6 cells 
     font Verdana-10v0
     id 19
     3-d
     .
...
procedure division.
...
  initialize wfont-data verdana-10v0.
  move 10 to wfont-size.
  move "Verdana" to wfont-name.
  set wfont-bold to false.
  set wfont-italic to false.
  set wfont-underline to false.
  set wfont-strikeout to false.
  set wfont-fixed-pitch to false.
  call "w$font" using wfont-get-font verdana-10v0 wfont-data.
...