home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Image_006_DrawImage.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
424b
|
18 lines
Image( 0 ).Resample( 600,600 )
Image( 0 ).Color = _ColorWhite
v = CreateImage( 1,1 )
Image( v ).Open( File.CommonWindowsDirectory + "\\winnt.bmp" )
newWidth = 200
newHeight = newWidth * Image( v ).Height / Image( v ).Width
Image(0).DrawImage( 100,100, newWidth,newHeight, v )
Image(0).DrawImage( 200,150, newWidth,newHeight, v )
Image(0).DrawImage( 100,300, 400,200 , v )
Image(v).Delete()
Redraw()