home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Font_002_Attribute.bas < prev    next >
BASIC Source File  |  2003-11-26  |  1KB  |  48 lines
  1. Image( 0 ).Resample( 300,400 )
  2. Image( 0 ).Color = _ColorWhite
  3.  
  4. Image( 0 ).DrawText( 10, 10, 0,0, "Standard" )    
  5.  
  6. Font.Size = 18
  7. Image( 0 ).DrawText( 10, 30, 0,0, "Size 18" )     
  8.  
  9. Font.Bold = TRUE 
  10. Image( 0 ).DrawText( 10, 50, 0,0, "Bold" )     
  11.  
  12. Font.Italic = TRUE 
  13. Image( 0 ).DrawText( 10, 70, 0,0, "Italic" )    
  14. Font.Italic = FALSE
  15.  
  16. Font.Underline = TRUE 
  17. Image( 0 ).DrawText( 10, 90, 0,0, "Underline" )    
  18. Font.Underline = FALSE 
  19.  
  20. Font.StrikeOut = TRUE 
  21. Image( 0 ).DrawText( 10, 110, 0,0, "StrickeOut" )     
  22. Font.StrikeOut = FALSE 
  23.  
  24. Font.Name = "Courier New" 
  25. Image( 0 ).DrawText( 10, 130, 0,0, "Courier" )     
  26.  
  27. Font.Name = "Arial" 
  28. Image( 0 ).DrawText( 10, 150, 0,0, "Arial" ) 
  29.  
  30. Font.Color = _ColorBlue 
  31. Image( 0 ).DrawText( 10, 170, 0,0, "TextColor" ) 
  32.  
  33. Font.Orientation = -8
  34. Image( 0 ).DrawText( 10, 190, 0,0, "Orientation -8" ) 
  35.     
  36. Font.BkModeOpaque = TRUE
  37. Font.BkColor = _ColorRed  
  38. Image( 0 ).DrawText( 10, 220, 0,0, " Font.BkModeOpaque + Font.BkColor " )
  39.  
  40. Font.Orientation = 0 
  41. Font.BkModeOpaque = FALSE 
  42. Font.Color = _ColorBlack 
  43. Font.Size = 15
  44. Image(0).DrawText(10,300, 0,0,    "Text with \"quotation marks\"" )     
  45. Image(0).DrawText(10,320, 0,0,    "Text with \\ backslash" )     
  46. Image(0).DrawText(10,340, 200,20, "Text \t with \t Tabulator" )     
  47. Redraw()
  48.