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

  1. Rem * Title  : See Through Text
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ============================================
  5. rem DARK BASIC EXAMPLE PROGRAM 7
  6. rem ============================================
  7. rem This program will use set text transparency
  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 "THE CURRENT FONT NAME IS ",text font$()
  23. print
  24. print "THE SIZE OF A FONT LETTER CAN BE FOUND BY USEING THE TEXT SIZE COMMAND "
  25. print "THE CURRENT FONT PIXEL SIZE IS ",text size()," ACROSS AND ",text size()," DOWN"
  26. print
  27. print "TO FIND OUT IF THE CURRENT FONT IS SET TO PRINT TEXT ON SCREEN"
  28. print "WITH A TRANPARENT BACKGROUND USE THE TEXT BACKGROUND TYPE COMMAND"
  29. print "THE FONT BACKGROUND IS SET TO "
  30.  
  31. if text background type()=0
  32.     print "TRANPARENT IS OFF"
  33. else
  34.     rem Text background type command must have retuned a 1
  35.     print "TRANPARENT IS ON"
  36. endif
  37.  
  38. print
  39. print "THE CURRENT FONT STYLE IS SET TO "
  40. if text style()=0:print "NORMAL":endif
  41. if text style()=1:print "ITAILC":endif
  42. if text style()=2:print "BOLD":endif
  43. if text style()=3:print "BOLD ITALIC":endif
  44.  
  45. rem Will wait for you to press any key
  46. suspend for key
  47.  
  48. rem End the program
  49. end
  50.