Changing Folder View in ActiveX WebBrowser in Dlg

[Gintaras]

Function dlg_folder_view

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "3 4"
str ax3SHD cb4
ax3SHD="$personal$"
cb4="FVM_ICON[]FVM_SMALLICON[]FVM_LIST[]FVM_DETAILS[]FVM_THUMBNAIL[]FVM_TILE[]FVM_THUMBSTRIP"; if(_winver>=0x601) cb4+"[]FVM_CONTENT"
if(!ShowDialog("dlg_folder_view" &dlg_folder_view &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 437 380 "Form"
;3 ActiveX 0x54000000 0x0 0 20 438 360 "SHDocVw.WebBrowser"
;4 ComboBox 0x54230243 0x0 2 4 96 213 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2030208 "" "" ""

ret
;messages
SHDocVw.WebBrowser we3
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case CBN_SELENDOK<<16|4
,_i=CB_SelectedItem(lParam)+1
,we3._getcontrol(id(3 hDlg))
,Shell32.ShellFolderView fv=we3.Document
,fv.CurrentViewMode=_i
,
,case IDOK
,case IDCANCEL
ret 1