This is part of my app I'm working on Dark Icon, can anyone tell me how I can fix this problemo.
`The brain of loading a bitmap/jpeg
if nextstep = 1
`Clear the screen of anything left from above
cls
for clear = 1 to 5000
if sprite exist(clear) = 1 then delete sprite clear
next clear
`Declare some variables
current$ = drive$
selected = 1
`Put up the heads up on the directory
ink rgb(255,0,0),0
Print "Current Directory or Drive: ";current$
Print "<Parent>"
Print "ENTER> View file or folder contents"
`Change the ink color
ink rgb(255,255,255),0
`Check all the files in the directory
set dir current$
perform checklist for files
`Simply list the files
for list = 1 to checklist quantity()
Print checklist string$(list)
next list
`Select a file & stuff
if upkey() = 1 then goup = 1
if goup = 1
ink rgb(0,255,0),0
selected = selected - 1
imagefile$ = checklist string$(selected)
goup = 0
endif
if downkey() = 1 then goup = 1
if goup = 1
ink rgb(0,255,0),0
selected = selected + 1
imagefile$ = checklist string$(selected)
goup = 0
endif
if checklist value a(selected) = 0 and returnkey() = 1 then gosub imagepreview
if checklist value a(selected) = 1 and returnkey() = 1 then current$ = imagefile$
endif
All help is welcome, I will thank you too!
Programming is fun with DarkBASIC!
