Concept for Slide-Show

[AUGE_OHR]

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

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 )

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 ...

[AUGE_OHR]

hi,

for Timeout

Code: Select all

   DEFINE TIMER SlideTime PARENT ImageEdit  ;
      INTERVAL nTimeout ;
      ACTION ImageEdit.Release