PB5.72 Windows x64
SetGadgetAttribute(1, #PB_Explorer_DisplayMode, #PB_Explorer_List)
Music files to Music fi...
Last string is ... changed.
Screen shot
http://www.mics.ne.jp/~coolverse/images ... 200918.jpg
Code: Select all
OpenWindow(0, 0, 0, 800, 600, "ExplorerListGadget")
ExplorerListGadget(1, 10, 10, 780, 580, GetUserDirectory(#PB_Directory_Musics)+"*.flac")
; PB_Explorer_DisplayMode before #PB_Explorer_ColumnWidth
SetGadgetAttribute(1, #PB_Explorer_DisplayMode, #PB_Explorer_List)
CountColoum = SendMessage_(SendMessage_(GadgetID(1), #LVM_GETHEADER, GD0, GD0), #HDM_GETITEMCOUNT, GD0, GD0)
For Count=CountColoum To 1 Step -1
If GetGadgetItemText(1,-1,Count)<>""
RemoveGadgetColumn(1, 1)
EndIf
Next
SetGadgetItemAttribute(1, 0, #PB_Explorer_ColumnWidth, 459, 0) ; fixed. Thanks.
SetGadgetItemText(1, -1, "Music files <flac>" , 0)
Repeat
Delay(1)
Until WindowEvent()=#PB_Event_CloseWindow
End
Thanks your VOICE
Enable modern theme support no problem
This problem is EnableXP disabled condtion.