Windows Explorer in Dialog

[_pi]

i want to have a small dialog with files in it (for drop),
it works when using SHDocVw, but how do i display the content
in detail view ?
or is there another way ?

thanks

Dialog2

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
if(!ShowDialog("Dialog2" &Dialog2)) ret
;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 221 133 "Form"
;3 ActiveX 0x54000000 0x0 4 2 212 128 "SHDocVw.WebBrowser"
;END DIALOG
;DIALOG EDITOR: "" 0x2010901 "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,SHDocVw.WebBrowser we3._getcontrol(id(3 hDlg))
,we3.Navigate("c:\")

,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1

[Gintaras]

Didn't see this post before.

Web browser control can display documents of various types. To get document's inteface pointer, whatever it is, use Document. If is displayed folder, it will be Shell32.ShellFolderView.

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
if(!ShowDialog("Dialog210" &Dialog210)) ret
;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 221 154 "Form"
;3 ActiveX 0x54000000 0x0 4 2 212 128 "SHDocVw.WebBrowser"
;4 Button 0x54032000 0x0 0 140 48 14 "Button"
;END DIALOG
;DIALOG EDITOR: "" 0x2020009 "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,SHDocVw.WebBrowser we3
,we3._getcontrol(id(3 hDlg))
,we3.Navigate("c:\")

,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 4
,we3._getcontrol(id(3 hDlg))
,Shell32.ShellFolderView fv=we3.Document
,;out fv.CurrentViewMode
,fv.CurrentViewMode=4
,
,case IDOK
,case IDCANCEL
ret 1

[_pi]

is there anyway to hide the SysHeader32 ?
its pretty useless when using fv.CurrentViewMode=5 (thumbnails)
thanks

[Gintaras]

Code:

Copy      Help

,int hlv=child("" "SysListView32" hDlg)
,SetWinStyle hlv LVS_NOCOLUMNHEADER 1