Concept for Slide-Show

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
User avatar
AUGE_OHR
Posts: 665
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 85 times
Been thanked: 161 times

Concept for Slide-Show

Post by 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 :roll:
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 :idea:

p.s. i don´t want to re-write hole Modul Image_Show() with "new" Button ...
have fun
Jimmy

User avatar
AUGE_OHR
Posts: 665
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 85 times
Been thanked: 161 times

Post by AUGE_OHR »

hi,

for Timeout

Code: Select all

   DEFINE TIMER SlideTime PARENT ImageEdit  ;
      INTERVAL nTimeout ;
      ACTION ImageEdit.Release
have fun
Jimmy

Post Reply