i can show single Image or PDF and now i like to run "Slide-Show"
my Code ( Modul Image_Show() ) is for single Image and i try this Way
Code: Select all
FOR i := 1 TO LEN(aDir)
cFile := aDir[i][F_NAME]
cExt := ExtensionOnly(cFile)
DO CASE
CASE cExt $ ".BMP.GIF.JPG.TIF.WMF.EMF.CUR.PNG"
Image_Show( cPath + cFile, nTimeout )
when close Image_Show i can use MsgYesNo() ... not a good Solution
need some Idea what to modify in my Modul Image_Show() and how to "BREAK" that Loop
p.s. i don´t want to re-write hole Modul Image_Show() with "new" Button ...