isCOBOL Evolve : User Interface : Controls Reference : BAR : Properties : Font
Font
This property specifies the font that may be used to compute the height and the width of the Bar control. See the Height-In-Cells, Lines, Size, and Width-In-Cells properties for further details.
 
Example - Define a bar using an Arial font handle as the font reference for sizing it
working-storage section.
copy "isfonts.def".
77 Arial-0v0 handle of font.
...
 
screen section.
...
  03 screen-1-br-2 Bar
     line 7.6
     column 4.9
     size 49.4 cells 
     font Arial-0v0 
     id 2
     shading(-2,0,0,2,2)
     width 5
     .
...
procedure division.
...
is-load-fonts.
   initialize wfont-data arial-0v0.
   move 0 to wfont-size.
   move "Arial" 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 arial-0v0 wfont-data.