Page 1 of 1
Windows Explorer Style
Posted: Fri Mar 04, 2011 6:49 pm
by 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?
Re: Windows Explorer Style
Posted: Fri Mar 04, 2011 10:30 pm
by 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
Re: Windows Explorer Style
Posted: Sat Mar 05, 2011 7:15 pm
by VeryVeryWell
Oh, thanks
I found Pure ExplorerBar BETA. Has anybody source or UserLib?
Re: Windows Explorer Style
Posted: Sun Mar 06, 2011 7:07 pm
by utopiomania
Search for wayne-c explorer*
Re: Windows Explorer Style
Posted: Mon Mar 07, 2011 10:58 am
by VeryVeryWell
I found that (
http://www.purebasic.fr/english/viewtop ... 14&t=22869), but unfortunately, there is not some code ("ERROR 404")
