home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_014_Save.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  815 b   |  20 lines
  1. Image( 0 ).Resample( 300,300 )
  2. Image( 0 ).Color = _ColorWhite
  3.  
  4. s = "Test Test Test Test Test Test Test Test Test Test Test"
  5. Image( 0 ).DrawText(  10, 10, 0,0, s )    
  6. Image( 0 ).Rectangle( 10, 50, 100,55 )    
  7. Image( 0 ).DrawText(  10, 50, 100,55, s )    
  8. Pen.StartColor = _ColorBlue
  9. Pen.EndColor   = _ColorRed
  10. Pen.GradientMode = _GradientModeHorizontal
  11. Image(0).EllipseFill( 10,150, 200,100 )
  12.                                 Image(0).DrawText( 300,y, 0,0, "_GradientModeHorizontal" )
  13.  
  14. Image(0).Save( "d:\\t_gif_0.gif",  _Image_GIF,   8,  0, "GIF", "8 Bit\n256 Farben" ) 
  15. Image(0).Save( "d:\\t_jpg_0.jpg",  _Image_JFIF, 24,  0, "JPG", "Standard-Komprimierung" ) 
  16. Image(0).Save( "d:\\t_jpg_30.jpg", _Image_JFIF, 24, 30, "JPG", "30 % Komprimierung" ) 
  17. Image(0).Save( "d:\\t_tif_0.jpg",  _Image_TIF , 24,  0, "TIF", "" ) 
  18.  
  19. Redraw()
  20.