home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / os2 / program / liberty / fonttest.bas < prev    next >
BASIC Source File  |  1995-02-02  |  815b  |  30 lines
  1.  
  2.  
  3.     'when specifying a monospaced (fixed width) font
  4.     'the height and width specified must be exactly
  5.     'the width and height of a real monospaced font
  6.     'or you might get a different font approximately
  7.     'the size you specify.
  8.  
  9.     'PM's font handling (like in Windows) is designed
  10.     'to return approximate matches based on names and
  11.     'sizes of fonts.
  12.  
  13.     'Common heights for the System Monospaced font in
  14.     'OS/2 are 8x8 8x12 and 9x20
  15.  
  16.     'Note that the current font handling (v.07) does only
  17.     'remembers the last font used on the redraw
  18.  
  19.     open "Test me" for graphics as #1
  20.     print #1, "place 10 25" ;
  21.     print #1, "font SystemMonospaced 8 12" ;
  22.     print #1, "\This is SystemMonospaced"
  23.  
  24.     print #1, "place 10 45" ;
  25.     print #1, "font Courier 8 12" ;
  26.     print #1, "\This is Courier"
  27.  
  28.     input r$
  29.  
  30.     close #1