mir gerade aufgefallen das mit PB 5.20 beta 3, die SetGadgetText() Funktion nun ein #PB_EventType_Change auslöst.
Ich finde es natürlich blöd, weil ich nun meine sorglos erstellten Programme einfrieren
Kann ja sein das es einen Grund hat, was mein Ihr?
Code: Alles auswählen
OpenWindow(0, 0, 0, 230, 120, "Eventtypes Beispiel...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(1, 10, 10, 250, 20, "")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Select EventType()
Case #PB_EventType_Change
Debug "EventType_Change"
text.s = GetGadgetText(1)
SetGadgetText(1, UCase(text))
EndSelect
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow