home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Function_CreateImage_001.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
897b
|
29 lines
saveH = Settings(0).NumberImagesHorizontal ' Save settings
if saveH < 6 Then Settings(0).NumberImagesHorizontal = 6 ' 6 images horizontal
i1 = CreateImage( 150,100 ) ' 1st from 5 new images
Image( i1 ).Color = _ColorRed
i2 = CreateImage( 150,100 ) ' 2
Image( i2 ).Color = _ColorGreen
i3 = CreateImage( 150,100 )
Image( i3 ).Color = _ColorBlue
i4 = CreateImage( 150,100 )
Image( i4 ).Color = RGB(255,0,255)
i5 = CreateImage( 150,100 )
Image( i5 ).Color = RGB(255,255,0)
t1 = "PLEASE"
t2 = "WAIT "
For a = 0 to GetImageCount() - 1
Font.Size = image(a).Height / 3.5
Image(a).DrawText(0,0,Image(a).Width,Image(a).Height, a + "\n" + Mid(t1,Len(t1)-a-1,1) + "\n" + Mid(t2,Len(t2)-a-1,1) )
next
Redraw()
Sleep( 7000 )
Settings(0).NumberImagesHorizontal = saveH
Image(i1).Delete()
Image(i2).Delete()
Image(i3).Delete()
Image(i4).Delete()
Image(i5).Delete()