Code: Alles auswählen
If OpenWindow(0, 0, 0, 500, 400, "TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TextGadget(2, 10, 10, 380, 25,Str( #PB_Compiler_Version))
ExplorerListGadget(0, 10, 40, 380, 160, GetUserDirectory(#PB_Directory_Pictures),#PB_Explorer_NoFolders )
ComboBoxGadget (1, 10, 210, 380, 25)
AddGadgetItem(1, -1, "*.*")
AddGadgetItem(1, -1, "*.png")
AddGadgetItem(1, -1, "*a*.*")
AddGadgetItem(1, -1, "*.bmp")
AddGadgetItem(1, -1, "*.*ni")
AddGadgetItem(1, -1, "n*.*")
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case 1
Select EventType()
Case #PB_EventType_Change
SetGadgetText(0,GetGadgetText(1))
EndSelect
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
Unter 6.04 Beta 2 (Windows) nur dann wenn für den Dateinamen oder der Dateiendung keine Kombination von "*" und einem zusätzlichen Zeichen genutzt wird.
Unter Mac OS kann man mit GetGadgetText anscheinend weder mit PB 5.x noch 6.x das Pattern für ExplorerListGadget ändern.
Kann das bestätigt werden oder sehe ich den Wald vor Bäumen nicht.
Ingo