If FileType(bpfad$+ Datei$) = 1 Then ;Filetype liefert 0/1/2 zurück, wenn es 1 ist war es eine Datei (und kein Ordner)
      pic$(i)=bpfad$+Datei$ ;Pfad also C:\Users\blabla\ und die Variable Datei$ (die wir ausgelesen haben, also zmb lol.jpg) in den Dim speichern
      i = i + 1 ;Index erhöhen, also den ersten Pfad den wir eingelesen haben können wir mit pic$(1) ausgeben
     DebugLog pic$(i) ;ausgeben zur kontrolle (dort wird dann was wie C:\Users\blabla\lol.jpg sthen
   End If

 If FileType(bpfad$+ Datei$) = 1 Then ;Filetype liefert 0/1/2 zurück, wenn es 1 ist war es eine Datei (und kein Ordner)
      pic$(i)=bpfad$+Datei$ ;Pfad also C:\Users\blabla\ und die Variable Datei$ (die wir ausgelesen haben, also zmb lol.jpg) in den Dim speichern
      DebugLog pic$(i) ;ausgeben zur kontrolle (dort wird dann was wie C:\Users\blabla\lol.jpg sthen
      i = i + 1 ;Index erhöhen, also den ersten Pfad den wir eingelesen haben können wir mit pic$(1) ausgeben
End If

If counter>max Then counter=0

If counter=max Then counter=0

gfxhoehe=ClientHeight(Desktop())
gfxbreite=ClientWidth(Desktop())
;clientheight und -width ermittelt die Bildschirmauflösung

Local cAppDir$=CurrentDir$() ;für Icon

Global cIconStart$=cAppDir$+"usergrp.ico"

;create a window
Global trayWnd=CreateWindow("DiaShow", gfxbreite-200,gfxhoehe-230,200,200,Desktop(),3)
;Werte abziehen, um die Bildschirmecke zu treffen

hWnd = GetActiveWindow()
USER32_SetWindowPos(hWnd,-1,0,0,0,0,$1+$2) ;Always on top

hide=CreateButton("hide",80,145,40,20,trayWnd)

canvas=CreateCanvas(0,0,200,140,trayWnd)

;Einen Dim erstellen mit max 500 Einträgen
Dim pic$(500)

;Pfad festlegen musst den ändern
bpfad$="C:\Dokumente und Einstellungen\DR\Desktop\data\"
;Verzeichnis einlesen, sodass wir nacher mit nextfile die Dateien/Verzeichnisse ausgeben können die
;dort drin sind
Verz = ReadDir(bpfad$)

;DebugLog "LESE FILES!"

; show the initial icon
ggTrayCreate(QueryObject(trayWnd,1))
   
; set the icon
ggTraySetIconFromFile(cIconStart$)
   
; show the icon with the updated text
ggTrayShowIcon()

Repeat ;schleifen anfang
   ;So jetzt lesen wir die Daten im Ordner aus
   Datei$ = NextFile$(Verz)   
   If Datei$ = "" Then Exit ;Falls es keine Files mehr hat (also Netxfile() nichts zurückgab
   ;sind wir also fertig -> schleife verlassen mit exit
   If FileType(bpfad$+ Datei$) = 1 Then ;Filetype liefert 0/1/2 zurück, wenn es 1 ist war es eine Datei
                              ;(und kein Ordner)
      pic$(i)=bpfad$+Datei$ ;Pfad also C:\Users\blabla\ und die Variable Datei$ (die wir ausgelesen
                     ;haben, also zmb lol.jpg) in den Dim speichern
   ;DebugLog pic$(i) ;ausgeben zur kontrolle (dort wird dann was wie C:\Users\blabla\lol.jpg sthen
     i=i+1 ;Index erhöhen, also den ersten Pfad den wir eingelesen haben können wir mit pic$(1)
            ;ausgeben
   ;DebugLog "i="+i
   ;Stop
    End If
Forever ;für immer wiederholen -> oder per exit, siehe oben
CloseDir Verz ;da wir alles ausgelesen haben, können wir es jetzt wieder schön schließen

SetBuffer CanvasBuffer (canvas)

timer = CreateTimer(1) ; war auf 0.1 < 0.1 Schläge pro Sekunde --> 1 Schlag alle 10 Sekunden
max=i ;Der Wert von I ist gleich wieviele Bilder wir eingelesen haben (siehe oben) den
   ;speichern wir jetzt in Max nur der Übersichthalber
;DebugLog "i="+i
;DebugLog "max="+max
counter=0
halt=0 ;soll anhalten wenn im hide

Repeat
   WaitEvent

      Select EventID()
      Case $803 ;WindowClose
         End
      Case $401: ;GadgetAction, Eingabe   
         If EventSource() = hide Then
            HideGadget trayWnd
            halt=1
         EndIf
      Case $4001 ;Timer Event

;anmerkung, wir haben jetzt ja den Dim namens Pic$ welcher die Pfade zu den Bildern enthält, nun
;müssen wir ja alle durchgehen, also den eintrag 1 von Pic, den eintrag 2 usw
;das übernimmt unsere Variable Counter, welche sich um eins erhöht bis er grösser wird als max
;(also mehr als alle Bilder die wir reingeladen haben)
;nun würden wir eine Fehlermeldung bekommen, da pic$(eine zahl zu groß) leer wäre und bei Loadimage
;einen Mist laden, und spätestens bei DrawImage nen Fehler werfen würde
      If halt=0 ;nur anzeigen wenn nicht im hide
         If counter=max Then counter=0 ;falls unser counter wert größer ist als die anzahl bilder die wir
         ;geladen haben, wieder auf Null setzen (fängt von vorne an(also beim ersten Bild)
         If temp<>0 Then FreeImage (temp)  ;Weil wir alle Bilder unter dem Namen temp speichern, schauen
         ;wir ob wir schon ein Bild geladen haben, wenn dem so ist, löschen wir es und laden dann das nächste
         temp=LoadImage (pic$(counter)) ;Pfad aus dem Dim verwenden, nämlich den Eintrag mit dem Wert counter
         ;DebugLog "HABE GELADEN:" ;Details ausgeben
         ;DebugLog pic$(counter)
         ;DebugLog "temp="+temp
         ;DebugLog "i="+i
         ;DebugLog "max="+max
         ;DebugLog "counter="+counter
         Cls ;Clearscreen, weil wir sonst die Bilder übereinander Zeichnen
         ResizeImage temp,200,140
         DrawImage temp,0,0 ;So jetzt können wir zeichnen
         counter=counter+1 ;Unseren counter erhöhen,
      EndIf
      End Select

FlipCanvas canvas

; check for a left doubleclick
If ggTrayPeekLeftDblClick()>0
   ; check the tooltip to see what status we are currently at
   If Instr(ggTrayGetToolTip(),"Stopped")>0
      ; set the icon
      ggTraySetIconFromFile(cIconStart$)
                        
   Else
      ; set the icon
      ggTraySetIconFromFile(cIconStop$)
      halt=0         
   EndIf
         
   ; TODO: show your menu here at the event mousex,mousey
   ShowGadget trayWnd

   ; clear out the events
   ggTrayClearEvents()
EndIf
   
; check for a right click
If  ggTrayPeekRightClick()>0
   Exit
EndIf

Forever

; clean up the tray
   ggTrayDestroy()   

; free the invisible tray window
FreeGadget trayWnd   

End