home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / text / exam08.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  962 b   |  34 lines

  1. Rem * Title  : String Commands
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 8
  6. rem ========================================
  7. rem This program will use string command
  8. rem ----------------------------------------
  9.     
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),1
  12.  
  13. rem Pick a new font
  14. rem the new font will work with all text command but not the print command
  15.     
  16. rem This is the font i want to use
  17. set text font "times new roman"
  18.     
  19. rem Set the size of the new font  
  20. set text size 32
  21.  
  22. print "IF YOU WANT TO FIND THE SIZE OF STRING IN PIXEL"
  23. print "USE THE TEXT WIDTH AND TEXT HEIGHT COMMANDS"
  24. print 
  25. print "THIS STRING IS ",text width("THIS STRING IS ")," PIXEL WIDE" 
  26. print "THIS STRING IS ",text height("THIS STRING IS ")," PIXEL HIGH"
  27. print 
  28.     
  29. rem Will wait for you to press any key
  30. suspend for key
  31.  
  32. rem End the program
  33. end
  34.