Page 2 of 2
Re: PB 5.4: How to detect ListIcon checkbox event?
Posted: Sun Feb 14, 2016 7:10 am
by Joris
I think you need to replace GadgetID(1) with *uMsg\idFrom.
So tst = ListIconGadget(1, 10, 10, 620,380, "Column 0", 100, #PB_ListIcon_GridLines|#PB_ListIcon_CheckBoxes|#PB_ListIcon_FullRowSelect)
becomes :
Code: Select all
Procedure WndProc(hwnd, uMsg, wParam, lParam)
Select uMsg
Case #WM_NOTIFY
*uMsg.NMHDR = lParam
If *uMsg\idFrom = tst And *uMsg\code = #NM_CLICK
*Li.NMITEMACTIVATE = lParam
Program\CurrentCheckedRow = *Li\iItem
EndIf
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
It wont block dragndrop but doesn't give errors on GadtgetId()...
PB 5.4: How to detect ListIcon checkbox event?
Posted: Sun Feb 14, 2016 9:41 am
by HanPBF
Code: Select all
EnableExplicit
Declare onLIGCallback()
define NrWin = OpenWindow(#PB_Any, 0, 0, 640, 400, "ListIconGadgets", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
if NrWin
global NrLIG = ListIconGadget(#PB_Any, 10, 10, 620,380, "Column 0", 100, #PB_ListIcon_GridLines|#PB_ListIcon_CheckBoxes|#PB_ListIcon_FullRowSelect|#PB_ListIcon_ThreeState)
define c
define r
For c = 1 To 6
AddGadgetColumn(NrLIG, c, "Column " + Str(c), 100)
Next
For r = 0 To 1000
AddGadgetItem(NrLIG, r, " Item "+Str(r)+Chr(10)+"Item "+Str(r)+Chr(10)+"Item 3"+Chr(10)+"Item 4")
SetGadgetItemData(NrLIG, r, #PB_ListIcon_Inbetween)
SetGadgetItemState(NrLIG, r, #PB_ListIcon_Inbetween)
Next
endif
BindGadgetEvent(NrLIG, @onLIGCallback())
Repeat
define NrWindowEvent = WaitWindowEvent()
if NrWindowEvent=#PB_Event_CloseWindow
break
endif
forever
Procedure onLIGCallback()
Protected NrGadget = EventGadget()
Protected NrEvenType = EventType()
Protected i
Protected WasChecked
Protected IsChecked
if GadgetType(NrGadget)=#PB_GadgetType_ListIcon
for i = 0 to CountGadgetItems(NrGadget)
WasChecked = GetGadgetItemData(NrGadget, i)
IsChecked= GetGadgetItemState(NrGadget, i)
if IsChecked<>WasChecked
debug "Checkbox row " + Str(i) + " changed from " + Str(WasChecked) + " to " + str(IsChecked)
SetGadgetItemData(NrGadget, i, IsChecked)
endif
next i
endif
EndProcedure ; onLIGCallback()
With 10000 rows it gets slow and laptop gets a little noisier...
Choosing an array to store the state could be faster.
The window callback solutions are always very smart; but when You check the states it's easier to change the handling to not check each change (pressing save button or similar). Callbacks look always clever in a small example organisation gets harder and using global variables...
Re: PB 5.4: How to detect ListIcon checkbox event?
Posted: Sun Feb 14, 2016 12:54 pm
by SeregaZ
Joris, i try to explane by image. make new select and in same time hold mouse button and move down. it work just once every new select.
