http://www.purebasic.com
https://www.purebasic.fr/english/
Manual wrote:Directory$ The initial displayed directory, it can include one or multiple patterns, like "C:\*.pb;*.pbi". If no pattern is included, the directory must end with a '\'. Including no directory will display the root containing the drives. Including no pattern defaults to '*.*'. So a Directory$ of "" will display the root and set '*.*' as pattern.
Code: Select all
OpenWindow(0, 0, 0, 492, 400, "ExplorerList", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ExplorerListGadget(0, 10, 10, WindowWidth(0) - 20, WindowHeight(0) - 20, "C:\Windows\")
SetGadgetItemAttribute(0, 0, #PB_Explorer_ColumnWidth, 150, 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
If EventGadget() = 0 And EventType() = #PB_EventType_Change
FilePath$ = GetGadgetText(0)
For i = CountGadgetItems(0) - 1 To 0 Step -1
Filename$ = GetGadgetItemText(0, i, 0)
If GetFileAttributes(FilePath$ + Filename$) & #PB_FileSystem_Hidden
RemoveGadgetItem(0, i)
EndIf
Next i
EndIf
EndSelect
ForEverI would say that it is fairly safe to use RemoveGadgetItem() for the ExplorerListGadget because according to freak's blog entry the underlying control for the ExplorerListGadget in Windows is the same as for the ListIconGadget: a WC_LISTVIEW.PB wrote:> RemoveGadgetItem() isn't listed in the help as applying to the ExplorerListGadget
That means it's unofficial, so use it at your own risk; as it may not work in future.
Code: Select all
Global oldCallback
Procedure ExplorerCallback(hwnd, msg, wParam, lParam)
result = CallWindowProc_(oldCallback, hwnd, msg, wParam, lParam)
Select msg
Case #WM_LBUTTONDBLCLK
For x = CountGadgetItems(2) To 1 Step -1
If (GetFileAttributes(GetGadgetText(2) + GetGadgetItemText(2,x)) & #PB_FileSystem_Hidden) And FindString(GetGadgetItemText(2,x,0),"\") <> 3
RemoveGadgetItem(2,x)
EndIf
Next
EndSelect
ProcedureReturn result
EndProcedure
If OpenWindow(0, 0, 0, 700, 540,"Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ExplorerListGadget(2, 10, 10, 680, 520, "*.*", #PB_Explorer_GridLines|#PB_Explorer_FullRowSelect)
SetGadgetItemAttribute(2, -1, #PB_Explorer_ColumnWidth , 200 , 0)
RemoveGadgetColumn(2,3)
AddGadgetColumn(2, 3, #PB_Explorer_Attributes , 120)
SetGadgetItemText(2,-1,"Attributes",3)
oldCallback = SetWindowLong_(GadgetID(2), #GWL_WNDPROC, @ExplorerCallback())
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
EndIf
End
An example (tested successfully with PB 5.31 on Kubuntu 14.04 x64 with KDE and MacOS X Snow Leopard):PureBasic [url=http://www.purebasic.com/news69.php][color=#0040FF]news[/color][/url] for 5.30 wrote:Added: #PB_Explorer_HiddenFiles to show hidden files in the explorer gadgets
Code: Select all
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
MessageRequester("Info", "The flag #PB_Explorer_HiddenFiles is not " +
"supported in Windows!", #MB_ICONINFORMATION)
CompilerElse
If CreateFile(0, GetTemporaryDirectory() + ".TestFile")
OpenWindow(0, 100, 100, 400, 300,
"ExplorerListGadget without hidden files (default)")
ExplorerListGadget(0, 10, 10, 380, 280, GetTemporaryDirectory(),
#PB_Explorer_NoFolders)
OpenWindow(1, 520, 100, 400, 300, "ExplorerListGadget with hidden files")
ExplorerListGadget(1, 10, 10, 380, 280, GetTemporaryDirectory(),
#PB_Explorer_NoFolders | #PB_Explorer_HiddenFiles)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
DeleteFile(GetTemporaryDirectory() + ".TestFile")
EndIf
CompilerEndIf