ExplorerTreeGadget with keyboard

[dige]

If you are using the ExplorerListGadget() and have selected an entry with SetGadgetItemState(#Gadget, n, #PB_Explorer_Selected),
then ist important to set also the focus on this element, otherwise the navigation with the keyboard won't work.

Code: Select all

Procedure ExplorerListGadget_SelectItem(GadgetID, n)
  SendMessage_(GadgetID(GadgetID), #LVM_ENSUREVISIBLE, n, #False )
  
  sItem.LV_ITEM
  sItem\Mask      = #LVIF_STATE
  sItem\State     = #LVIS_SELECTED | #LVIS_FOCUSED
  sItem\stateMask = #LVIS_SELECTED | #LVIS_FOCUSED
  SendMessage_(GadgetID(GadgetID), #LVM_SETITEMSTATE, n , sItem)
EndProcedure