home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Font_003_Attribute.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  717 b   |  14 lines
  1. Image( 0 ).Resample( 400,200 )
  2. Image( 0 ).Color = _ColorWhite
  3.  
  4. Font.Ellipses = _FontEndEllipses
  5. Image(0).DrawText(50,20, 0,0,     "You can specify  '_FontEndEllipses'  to replace characters at the end of the string" )
  6. Font.Ellipses = _FontPathEllipses
  7. Image(0).DrawText(50,40, 0,0,     "You can specify  '_FontPathEllipses'  This is the File c:\\ABCDEF\\GHIJK\\LMN.OPQ" )    
  8. Font.Ellipses = _FontEndEllipses
  9. Image(0).DrawText(50,70, 200,60,  "Rectangle: _FontEndEllipses\nReplace characters at the end of the string" )
  10. Font.Ellipses = _FontPathEllipses
  11. Image(0).DrawText(50,110, 220,60, "Rectangle: _FontPathEllipses\nThis_is_the_File c:\\ABCDEF\\GHIJK\\LMN.OPQ" )
  12. Font.Ellipses = _FontNoEllipses
  13. Redraw()
  14.