PureBasic Forums - English

Posted: **Fri Feb 08, 2019 3:13 am**

Hi guys,

Is there a known way to send a "go back" message to an ExplorerListGadget?.
Namely I'm using #PB_Explorer_NoParentFolder so the user can't navigate outside of the program data path / directory. Thus I need a way to navigate the current path via buttons.

Is the ExplorerListGadget a PB implementation or is it OS native?
In case it matters this is a Windows-only application.

Worst case scenario, is there a simple way to limit the path so I can stop using #PB_Explorer_NoParentFolder but make it so I can't get past a certain path? (the program's path in this case).

I'm using the gadget as a simple way to organize program data using the actual file system. Just trying to avoid writing a gadget from scratch if I can.

Thanks,
Gus

Posted: **Thu Apr 18, 2019 12:52 pm**

dagcrack wrote:Is there a known way to send a "go back" message to an ExplorerListGadget?.
Namely I'm using #PB_Explorer_NoParentFolder so the user can't navigate outside of the program data path / directory. Thus I need a way to navigate the current path via buttons.

Code: Select all

EnableExplicit

Define CurrentPath$

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ExplorerListGadget(1, 0, 20, 500, 380, "C:\Windows\", #PB_Explorer_NoParentFolder)
  ButtonGadget(2, 0, 0, 100, 20, "Back", 0)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 2
            CurrentPath$ = GetGadgetText(1)
            SetGadgetText(1, GetPathPart(Mid(CurrentPath$, 1, Len(CurrentPath$)-1)))
        EndSelect
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf

dagcrack wrote:Worst case scenario, is there a simple way to limit the path so I can stop using #PB_Explorer_NoParentFolder but make it so I can't get past a certain path? (the program's path in this case).

Code: Select all

EnableExplicit

Define RootPath$ = "C:\Windows\"

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ExplorerListGadget(1, 0, 0, 500, 400, RootPath$, 0)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Select EventType()
              Case #PB_EventType_Change
                If Len(GetGadgetText(1)) < Len(RootPath$)
                  SetGadgetText(1, RootPath$)
                EndIf
            EndSelect
        EndSelect
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf

PureBasic Forums - English

Send commands to ExplorerListGadget? (go back. limit path)

Send commands to ExplorerListGadget? (go back. limit path)

Re: Send commands to ExplorerListGadget? (go back. limit pat