home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Settings_001.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
430b
|
15 lines
saveH = Settings(0).NumberImagesHorizontal ' Save Settings
if saveH < 6 Then Settings(0).NumberImagesHorizontal = 6
File.Limit = 100
File.Find( File.CommonWindowsDirectory + "\\*.bmp" )
For i = 0 To File.NumberOfElements - 1
newImage = CreateImage( 1,1 )
rc = Image( newImage ).Open( File( i ).Path )
Redraw()
Next
Redraw()
Sleep( 3000 )
Settings(0).NumberImagesHorizontal = saveH ' Restore Settings