home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Image_032_DrawTextCircle.bas < prev    next >
BASIC Source File  |  2005-06-17  |  1KB  |  25 lines
  1. Image(0).Resample( 1000, 700 ) 
  2. Image(0).Color = _ColorSnow
  3.  
  4. Font.Name = "Courier New"
  5. Font.Bold = true
  6. Font.Size = 20
  7.  
  8. Image(0).DrawText(0,0,0,0, "Image(0).DrawTextCircle( 50,50 , 250,250 , -90, 360, \"text\" )" )
  9.  
  10. Font.Color = _ColorBlue
  11. Image(0).DrawTextCircle(  50,50  , 250,250 , -90, 360, "Die 1. beiden Parameter bestimmen die X und Y Position.  " )
  12. Font.Color = _ColorBlack
  13. Image(0).DrawTextCircle( 350,50  , 250,250 , -90, 360, "Die beiden folgenden Parameter die H÷he und Breite.  " )
  14. Font.Color = _ColorRed
  15. Image(0).DrawTextCircle( 650,50  , 250,250 , -90, 360, "Der folgende Paramter bestimmt den Start des Textes.  " )
  16. Font.Color = _ColorYellow
  17. Image(0).DrawTextCircle( 200,200 , 250,250 , -90, 360, "Der folgende Paramter bestimmt die LΣnge.  " )
  18. Font.Color = _ColorGreen
  19. Image(0).DrawTextCircle( 500,200 , 250,250 , -90, 360, "Der letzte Parameter ist der Text, der ausgegeben wird.  " )
  20.  
  21. Font.Color = _ColorBlack
  22. Image(0).DrawTextCircle(  50,400 , 250,250 ,  90,-210, "Wird bei dem LΣngen-Parameter ein " )
  23. Image(0).DrawTextCircle( 350,400 , 250,250 ,  90,-180, "negativer Wert angegeben," )
  24. Image(0).DrawTextCircle( 650,400 , 250,250 ,  60,-210, "dann wird der Text um 180░ gedreht." )
  25.