habs mit nem thread gelöst geht auch
Code: Alles auswählen
Procedure galerieerstellen(0)
If CreateGadgetList(WindowID())
bildzahl=CountGadgetItems(#listicon_0)
ProgressBarGadget(#progbar_0,400,400,250,20,0,bildzahl-2,#PB_ProgressBar_Smooth)
EndIf
HideGadget(#progbar_0,0)
DisableGadget(#button_3,0)
galtitel$=GetGadgetText(#stringgad_0)
galbesch$=GetGadgetText(#stringgad_1)
galpfad$=GetGadgetText(#stringgad_2)
pos=GetGadgetState(#combo_0)
aufl$=GetGadgetItemText(#combo_0,pos,0)
If dateiname$=""
mess=MessageRequester("Fehler","Sie haben keine Bilder geladen!",#PB_MessageRequester_Ok)
HideGadget(#progbar_0,1)
Else
CreateDirectory(galpfad$+"Bilder")
CreateDirectory(galpfad$+"Thumbs")
CreateDirectory(galpfad$+"Html")
bildzahl=CountGadgetItems(#listicon_0)
DisableGadget(#button_1,1)
For a=0 To bildzahl-1
bild$=GetGadgetItemText(#listicon_0,a,0)
bildpfad$=Dateiname$+bild$
LoadImage(a,bildpfad$)
posit=GetGadgetState(#combo_0)
If posit=0
handle=ResizeImage(a,400,300)
ElseIf posit=1
handle=ResizeImage(a,640,480)
ElseIf posit=2
handle=ResizeImage(a,800,600)
EndIf
galerie$=galpfad$+"Bilder/"+bild$
SaveImage(a,galerie$,#PB_ImagePlugin_JPEG,10 )
handle=ResizeImage(a,120,90)
galerie2$=galpfad$+"Thumbs/"+bild$
SaveImage(a,galerie2$,#PB_ImagePlugin_JPEG,10 )
SetGadgetState(#progbar_0,a)
Next a
HideGadget(#progbar_0,1)
readwrite=OpenFile(#datei_1, galpfad$+"html/index.html")
If readwrite=0
Debug "error"
EndIf
DisableGadget(#button_1,0)
Fertig=MessageRequester("Meldung:","Die Html-Galerie wurde erstellt!",#PB_MessageRequester_Ok)
EndIf
DisableGadget(#button_3,1)
EndProcedure
das ist die procedure
und das die abfrage
Code: Alles auswählen
ElseIf gadgetid=#button_1
thid = CreateThread(@galerieerstellen(), 0)
ElseIf gadgetid=#button_3
KillThread(thid)
DisableGadget(#button_3,1)
DisableGadget(#button_1,0)