GetAttribute() always returns 0 - bug?
Posted: Thu Jan 09, 2025 4:57 am
Code: Select all
Procedure GridLeftClick()
; always returns 0 no matter on which column one clicks...
Debug "Row: " + Str(GetGadgetState(22)) + #CRLF$ + "Col: " + GetGadgetAttribute(22, #PB_ListIcon_ClickedColumn) + #CRLF$ + "Cols: " + GetGadgetAttribute(22, #PB_ListIcon_ColumnCount)
EndProcedure
Procedure Demo()
If OpenWindow(17, 100, 100, 400, 300, "ListIconGadget Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(22, 10, 10, 380, 250, "Column 1", 100, #PB_ListIcon_FullRowSelect | #PB_ListIcon_GridLines)
AddGadgetColumn(22, 1, "Column 2", 100)
AddGadgetColumn(22, 2, "Column 3", 100)
; Add some items
For i = 0 To 9
AddGadgetItem(22, -1, "Item " + Str(i) + Chr(10) + "Value " + Str(i) + Chr(10) + "Data " + Str(i))
Next
BindGadgetEvent(22, @GridLeftClick(), #PB_EventType_LeftClick)
EndIf
EndProcedure
Demo()
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow