Code: Alles auswählen
EnableExplicit
Define EventID
Define EventGadget
CreateImage(1, 100, 100)
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ImageGadget(1, 50, 50, 0, 0, ImageID(1), 0)
ImageGadget(2, 200, 50, 0, 0, ImageID(1), 0)
ImageGadget(3, 50, 200, 0, 0, ImageID(1), 0)
ImageGadget(4, 200, 200, 0, 0, ImageID(1), 0)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
EventGadget = EventGadget()
Debug "Gadget: " + Str(EventGadget)
Select EventGadget
Case 1
EndSelect
EndIf
If EventID = #PB_Event_CloseWindow
End
EndIf
ForEver
EndIf