Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
SHDOC right click on folder, catch path
#3
The code in that topic I was already using in my project but it doesn't work in my project when right clicking a folder.
Something is inhibiting the right click, I do not know what it is but I was assuming that the right click wasn't suppose to work.

Another "problem" is that the code triggers on folder-focus-change (which makes sense because the code is supposed to do that).
But what I want is: The below inputfield (id:8) get's the path when the user navigates to a folder (by right click and selecting "Open" or by double clicking on it). The current version of the code is on 'SelectionChanged'.

But still thank you! and my apologies, I wasn't clear enough in my first post.
I wouldn't never have found out that right click also works. I need to re-check/clean my code.

Edit, I might have found a way:
(It output's the path navigated to, by storing the path on 'selectionchanged' and only outputting it on 'documentcomplete')

Function shdoc_folderchange
Code:
Copy      Help
str dd=
;BEGIN DIALOG
;0 "" 0x90CF0AC8 0x1 0 0 242 168 "Dialog"
;3 ActiveX 0x54000000 0x0 5 7 114 141 "SHDocVw.WebBrowser"
;8 Edit 0x54030080 0x200 5 151 224 12 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2040601 "*" "" "" ""

str controls = "3 8"
str ax3SHD e8
if(!ShowDialog(dd &sub.DlgProc &controls)) ret
out e8

#sub DlgProc
function# hDlg message wParam lParam
SHDocVw.WebBrowser we3
Shell32.ShellFolderView fv
Shell32.FolderItem fi
int- MhDlg
sel message
,case WM_INITDIALOG
,we3._getcontrol(id(3 hDlg))
,we3._setevents("sub.we3")
,;initial folder
,we3.Navigate(_s.expandpath("$Documents$"))
,MhDlg=hDlg
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1

#sub we3_DocumentComplete
function IDispatch'pDisp `&URL SHDocVw.IWebBrowser2'we3
Shell32.ShellFolderView fv=we3.Document
fv._setevents("sub.fv")
str- path
out path


#sub fv_SelectionChanged
function Shell32.IShellFolderViewDual3'fv
int- MhDlg
Shell32.FolderItem fi=fv.FocusedItem
str- path=fi.Path


Messages In This Thread
SHDOC right click on folder, catch path - by r0n - 11-09-2019, 09:45 AM
RE: SHDOC right click on folder, catch path - by r0n - 11-10-2019, 11:25 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)