home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Z_FAQ_0822.bas < prev    next >
BASIC Source File  |  2003-11-26  |  416b  |  12 lines
  1. ' FAQ: 822
  2. ' Kann man das Programm veranlassen, das es einen Text 
  3. ' (Vertraulich, usw.) quer ⁿber das Blatt stempelt. 
  4.  
  5. text = " Vertraulich / Top Secret "
  6. Font.Bold = TRUE 
  7. Font.Color = _ColorPink  
  8. Font.Name = "Courier New"
  9. Font.Size = Image(0).Width / Len( text ) * 2
  10. Font.Orientation = RadToDeg( ATan( Image(0).Height / Image(0).Width ))
  11. Image(0).DrawText( 0, Image(0).Height-Font.Size, 0,0, text )    
  12.