home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / TEXTDEMO.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  1.5 KB  |  26 lines
  1. *****************************************************************
  2. *     * 09/92               textdemo.prg                        *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates how to display a line of       *
  8. *     * text using different fonts, styles and font size        *
  9. *     * the NOWAIT keyword with the ACTIVATE WINDOW command     *
  10. *     *  and illustrates the use of TXTWIDTH() function         *
  11. ***************************************************************** 
  12.   tstart = prtline("Text displays in ","Roman",14,"N",10,1)
  13.   tstart = prtline("Bold","Roman",14,"B",10,tstart)
  14.   tstart = prtline(", ","Roman",14,"N",10,tstart)
  15.   tstart = prtline("Itilacs","Roman",14,"I",10,tstart)
  16.   tstart = prtline(", and","Roman",14,"N",10,tstart)
  17.   tstart = prtline("Bold and Italics","Roman",14,"BI",10,tstart)
  18.   tstart = prtline(".","Roman",14,"N",10,tstart)
  19. ******************************************************************
  20. * PRTLINE() Displays text in specified font and style
  21. ******************************************************************
  22.    PROCEDURE prtline
  23.    PARAMETER TEXT, tfont, tsize, tstyle, LINE, start
  24.    @ LINE,start SAY TEXT FONT TFont,tsize STYLE tstyle
  25.    RETURN start + TXTWIDTH(TEXT,tfont, tsize, tstyle)
  26.