home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_006_DrawImage.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  424 b   |  18 lines
  1. Image( 0 ).Resample( 600,600 )
  2. Image( 0 ).Color = _ColorWhite
  3.  
  4. v = CreateImage( 1,1 )    
  5. Image( v ).Open( File.CommonWindowsDirectory + "\\winnt.bmp" )
  6.  
  7. newWidth  = 200
  8. newHeight = newWidth * Image( v ).Height / Image( v ).Width
  9.  
  10. Image(0).DrawImage( 100,100, newWidth,newHeight, v )
  11. Image(0).DrawImage( 200,150, newWidth,newHeight, v )
  12.  
  13. Image(0).DrawImage( 100,300, 400,200 , v )
  14.  
  15. Image(v).Delete()
  16.  
  17. Redraw()
  18.