Concept for Slide-Show
Posted: Thu Mar 26, 2020 7:05 am
hi,
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
this work ... but not "Timeout" and not "Stop" until End
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 ...
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 ...