Progressbar fortlaufend füllen
Verfasst: 02.07.2019 21:44
Ich will eine Progressbar fortlaufend füllen.
Unter Windows gab diesbezüglich bisher keine Probleme.
Der Code macht unter Windows was ich erwarte.
Auf dem Mac füllt sich die Progressbar nicht, sondern bleibt leer. Erst am Ende zeigt sie mit einem Schlag 100% an.
Unter Windows gab diesbezüglich bisher keine Probleme.
Code: Alles auswählen
OpenWindow(0, 150,150,800,100, "Hauptfenster", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
ButtonGadget(11, 600, 25, 80, 50, "Start")
ProgressBarGadget(10, 50, 30, 520, 30, 0, 1000)
Repeat
Event = WindowEvent()
If event = #PB_Event_CloseWindow
End
EndIf
If Event=#PB_Event_Gadget
Select EventGadget()
Case 11
a= 0
SetGadgetState(10, a)
While a <> 1001
SetGadgetState(10, a)
a = a + 1
Debug a
Delay(10)
Wend
EndSelect
EndIf
Until quit
Auf dem Mac füllt sich die Progressbar nicht, sondern bleibt leer. Erst am Ende zeigt sie mit einem Schlag 100% an.