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