Windows Explorer Style

[VeryVeryWell]

Hello! Can anybody help me to create window like that:

1) Left panel with gradient.
2) This panel has some lists with functions.
3) Lists have animation.
For example, Bytessence InstallMaker (http://www.bytessence.com/bim.html).
In start I think to insert ContainerGadget(), then create ImageGadget() with gradient and put it in container. But gadgets can't stay on top. Then I try to do borders between work area and left panel. It is difficult... Please help!

Oops... And how create a toolbar like in the first image?

[skywalk]

Why not use Windows API
I don't have a complete breakout, but here is a snippet and a forum link I used.
You can edit the OFN_HookFunc() to meet your needs.
http://www.purebasic.fr/english/viewtop ... 85#p111485
...snippet...

Code: Select all

  Protected myOFN.OPENFILENAME    
  myOFN\hwndOwner         = hW
  myOFN\lStructSize       = SizeOf(OPENFILENAME) + 12 ; #OSVEX_LENGTH = 88
  myOFN\hInstance         = #Null
  myOFN\lpstrFilter       = @*p\Pattern$
  myOFN\lpstrCustomFilter = #Null
  myOFN\nMaxCustFilter    = #Null
  myOFN\nFilterIndex      = *p\patternPos
  myOFN\lpstrFile         = *selectedFile
  myOFN\nMaxFile          = bufferSize
  myOFN\lpstrFileTitle    = #Null
  myOFN\nMaxFileTitle     = #Null
  myOFN\lpstrInitialDir   = @*p\DefFilePath$
  myOFN\lpstrTitle        = @*p\Title$
  myOFN\flags             = #OFS_FILE_OPEN_FLAGS | #OFN_ENABLEHOOK | #OFN_ENABLESIZING 
  myOFN\lpfnHook          = @OFN_HookFunc()  
  If *p\multiSelect
    myOFN\flags | #OFN_ALLOWMULTISELECT
  EndIf
  GetOpenFileName_(@myOFN)

Procedure OFN_HookFunc(hW, msg, wP, lP)
  Protected.i hParent, hLV, ri  
  Select msg
    ; Uncomment the following to allow repositioning/resizing the dialog
    ;   Case Dlg_Move
    ;     ; Resize the dialog window
    ;     hParent = GetParent_(hW)
    ;     MoveWindow_(hParent, 0, 0, wP, lP, 1)
    ;   Case #WM_INITDIALOG
    ;     ;                          wd,  ht
    ;     PostMessage_(hW, Dlg_Move, 800, 600)    
  Case #WM_NOTIFY    
    ; hW is the handle to the dialog
    ; hParent is the handle to the common control
    ; hLV is the handle to the listview itself
    hParent = GetParent_(hW)
    hLV = FindWindowEx_(hParent, 0, "SHELLDLL_DefView", #NULL$)
    If hLV
      ri = SendMessage_(hLV, #WM_COMMAND, #OFN_VIEW_REPORT, #Null)
    EndIf  
  EndSelect
  ProcedureReturn 0
EndProcedure

[VeryVeryWell]

Oh, thanks
I found Pure ExplorerBar BETA. Has anybody source or UserLib?

[utopiomania]

Search for wayne-c explorer*

[VeryVeryWell]

I found that (http://www.purebasic.fr/english/viewtop ... 14&t=22869), but unfortunately, there is not some code ("ERROR 404")