ich nutze folgenden Code (PB 4.51 unter Windows XP):
Code: Alles auswählen
If OpenWindow(0, 100, 200, 795, 560, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
ListGadgetID.l = ListIconGadget(#PB_Any, 10, 25, 700, 400, "A", 100, #PB_ListIcon_GridLines)
Repeat
Event = WaitWindowEvent()
Type = EventType()
Debug "Event: " + Str(Event)
If Event = #PB_Event_Gadget
; gadget events
Gadget = EventGadget()
Debug "Gadget Event ------------------------------"
If Type = #PB_EventType_LeftClick
; left-click events
Debug "Left Click"
Select Gadget
Case ListGadgetID.l
; grid
Debug "Grid"
EndSelect
EndIf
EndIf
If Event = #PB_Event_CloseWindow ; If the user has pressed on the close button
Quit = 1
EndIf
Until Quit = 1
EndIf
EndKukulkan