Code: Alles auswählen
OpenWindow(0,0,0,200,200,"Background Image")
CreateImage(0,200,200,32)
StartDrawing(ImageOutput(0))
For n = 0 To 200
Line(0,n,200,0,RGB(0,0,n+50))
Next
StopDrawing()
CreateGadgetList(WindowID(0))
ImageGadget(1,0,0,200,200,ImageID(0))
DisableGadget(1,1) ; ******************* das ist der Trick!
ButtonGadget(2,10,10,180,30,"Press me")
StringGadget(3,10,100,180,20,"Type in here")
Repeat
EvID = WaitWindowEvent()
If EvID = #PB_Event_Gadget
EGID = EventGadget()
Debug EGID
EndIf
Until EvID = #PB_Event_CloseWindow