Add columns to ExplorerListGadget?

[ozzie]

Is there a way to add columns other than the standard #PB _Explorer_... columns to an ExplorerListGadget (Windows only)? Specifically I want to add the 'Length' for audio files. 'Title' would also be useful.

[firace]

I know this topic is old, but I have the exact same question...

[RASHAD]

Hi ozzie
Hi firace

Code: Select all

Procedure AddColumn(gad,index)
  col.LVCOLUMN 
  col\mask = #LVCF_TEXT|#LVCF_WIDTH|#LVCF_FMT 
  col\fmt = #LVCFMT_CENTER
  col\cx = 110 
  col\pszText = @"ozzie"
  SendMessage_(GadgetID(gad), #LVM_INSERTCOLUMN, index, @col)
EndProcedure

Procedure DeleteColumn(gad,index)
  SendMessage_(GadgetID(gad), #LVM_DELETECOLUMN, index, 0)
EndProcedure
  
  
If OpenWindow(0, 0, 0, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ExplorerListGadget(0, 10, 10, 380, 180, "*.*", #PB_Explorer_MultiSelect)
  Header = SendMessage_(GadgetID(0), #LVM_GETHEADER, 0, 0)
  ColCount = SendMessage_(Header,  #HDM_GETITEMCOUNT, 0, 0)
  
  AddColumn(0,ColCount)
  DeleteColumn(0,3) 
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[ozzie]

Many thanks, RASHAD. You're a master of Windows functions like SendMessage_()!