Windows2000/private/shell/shell32/idldrop.c

505 lines
16 KiB
C
Raw Normal View History

2001-01-01 00:00:00 +01:00
// Copyright (c) Microsoft Corporation 1991-1993
// File: idldrop.c
// History:
// 12-16-93 SatoNa Created.
#include "shellprv.h"
#pragma hdrstop
#include "datautil.h"
#include "idlcomm.h"
STDAPI_(BOOL) DoesDropTargetSupportDAD(IDropTarget *pdtgt)
{
IDropTargetWithDADSupport* pdt;
if (pdtgt && SUCCEEDED(pdtgt->lpVtbl->QueryInterface(pdtgt, &IID_IDropTargetWithDADSupport, (void**) &pdt)))
{
pdt->lpVtbl->Release(pdt);
return TRUE;
}
return FALSE;
}
// CIDLDropTarget: constructors
STDAPI CIDLDropTarget_Create2(HWND hwnd, const IDropTargetVtbl *lpVtbl,
LPCTSTR pszPath, LPCITEMIDLIST pidl, IDropTarget **ppdropt)
{
CIDLDropTarget *pidldt = (void*)LocalAlloc(LPTR, SIZEOF(CIDLDropTarget));
if (pidldt)
{
if (pidl)
{
pidldt->pidl = ILClone(pidl);
if (!pidldt->pidl)
{
LocalFree( pidldt );
return E_OUTOFMEMORY;
}
}
pidldt->dropt.lpVtbl = lpVtbl;
pidldt->cRef = 1;
pidldt->hwndOwner = hwnd;
if (pszPath)
lstrcpyn(pidldt->szPath, pszPath, ARRAYSIZE(pidldt->szPath));
ASSERT(pidldt->pdtgAgr == NULL);
*ppdropt = &pidldt->dropt;
return S_OK;
}
*ppdropt = NULL;
return E_OUTOFMEMORY;
}
STDAPI CIDLDropTarget_Create(HWND hwnd, const IDropTargetVtbl *lpVtbl,
LPCITEMIDLIST pidl, IDropTarget **ppdropt)
{
if (!pidl)
return E_INVALIDARG;
return CIDLDropTarget_Create2(hwnd, lpVtbl, NULL, pidl, ppdropt);
}
// CIDLDropTarget: member function
STDMETHODIMP CIDLDropTarget_QueryInterface(IDropTarget *pdropt, REFIID riid, void **ppvObj)
{
CIDLDropTarget *this = IToClass(CIDLDropTarget, dropt, pdropt);
if (IsEqualIID(riid, &IID_IUnknown) ||
IsEqualIID(riid, &IID_IDropTarget) ||
IsEqualIID(riid, &IID_IDropTargetWithDADSupport))
{
*ppvObj = pdropt;
}
else
{
*ppvObj = NULL;
return E_NOINTERFACE;
}
pdropt->lpVtbl->AddRef(pdropt);
return S_OK;
}
STDMETHODIMP_(ULONG) CIDLDropTarget_AddRef(IDropTarget *pdropt)
{
CIDLDropTarget *this = IToClass(CIDLDropTarget, dropt, pdropt);
this->cRef++;
return this->cRef;
}
STDMETHODIMP_(ULONG) CIDLDropTarget_Release(IDropTarget *pdropt)
{
CIDLDropTarget *this = IToClass(CIDLDropTarget, dropt, pdropt);
this->cRef--;
if (this->cRef > 0)
return this->cRef;
if (this->pdtgAgr)
this->pdtgAgr->lpVtbl->Release(this->pdtgAgr);
if (this->pidl)
ILFree(this->pidl);
// if we hit this a lot maybe we should just release it
AssertMsg(this->pdtobj == NULL, TEXT("didn't get matching DragLeave. this=%#08lx"), this);
LocalFree((HLOCAL)this);
return 0;
}
extern void WINAPI IDLData_InitializeClipboardFormats(void);
STDMETHODIMP CIDLDropTarget_DragEnter(IDropTarget *pdropt, IDataObject *pDataObj, DWORD grfKeyState, POINTL pt, LPDWORD pdwEffect)
{
CIDLDropTarget *this = IToClass(CIDLDropTarget, dropt, pdropt);
ASSERT(this->pdtobj == NULL); // avoid a leak
// init our registerd data formats
IDLData_InitializeClipboardFormats();
this->grfKeyStateLast = grfKeyState;
this->pdtobj = pDataObj;
this->dwData = 0;
if (pDataObj)
{
IEnumFORMATETC *penum;
FORMATETC fmte;
HRESULT hres;
pDataObj->lpVtbl->AddRef(pDataObj);
hres = pDataObj->lpVtbl->EnumFormatEtc(pDataObj, DATADIR_GET, &penum);
if (SUCCEEDED(hres))
{
LONG celt;
while (penum->lpVtbl->Next(penum, 1, &fmte, &celt) == S_OK)
{
#ifdef DEBUG
TCHAR szFormat[MAX_PATH];
#endif // DEBUG
if (fmte.cfFormat == CF_HDROP && (fmte.tymed & TYMED_HGLOBAL))
this->dwData |= DTID_HDROP;
if (fmte.cfFormat == g_cfHIDA && (fmte.tymed & TYMED_HGLOBAL))
this->dwData |= DTID_HIDA;
if (fmte.cfFormat == g_cfNetResource && (fmte.tymed & TYMED_HGLOBAL))
this->dwData |= DTID_NETRES;
if (fmte.cfFormat == g_cfEmbeddedObject && (fmte.tymed & TYMED_ISTORAGE))
this->dwData |= DTID_EMBEDDEDOBJECT;
if (fmte.cfFormat == g_cfFileContents && (fmte.tymed & (TYMED_HGLOBAL | TYMED_ISTREAM | TYMED_ISTORAGE)))
this->dwData |= DTID_CONTENTS;
if (fmte.cfFormat == g_cfFileGroupDescriptorA && (fmte.tymed & TYMED_HGLOBAL))
this->dwData |= DTID_FDESCA;
if (fmte.cfFormat == g_cfFileGroupDescriptorW && (fmte.tymed & TYMED_HGLOBAL))
this->dwData |= DTID_FDESCW;
if (fmte.cfFormat == g_cfPreferredDropEffect && (fmte.tymed & TYMED_HGLOBAL) &&
((this->dwEffectPreferred = DataObj_GetDWORD(pDataObj, g_cfPreferredDropEffect, DROPEFFECT_NONE)) != DROPEFFECT_NONE))
{
this->dwData |= DTID_PREFERREDEFFECT;
}
#ifdef DEBUG
if (GetClipboardFormatName(fmte.cfFormat, szFormat, ARRAYSIZE(szFormat)))
{
TraceMsg(TF_GENERAL, "CIDLDropTarget - cf %s, tymed %d", szFormat, fmte.tymed);
}
else
{
TraceMsg(TF_GENERAL, "CIDLDropTarget - cf %d, tymed %d", fmte.cfFormat, fmte.tymed);
}
#endif // DEBUG
}
penum->lpVtbl->Release(penum);
}
// HACK:
// Win95 always did the GetData below which can be quite expensive if
// the data is a directory structure on an ftp server etc.
// dont check for FD_LINKUI if the data object has a preferred effect
if ((this->dwData & (DTID_PREFERREDEFFECT | DTID_CONTENTS)) == DTID_CONTENTS)
{
if (this->dwData & DTID_FDESCA)
{
FORMATETC fmteRead = {g_cfFileGroupDescriptorA, NULL, DVASPECT_CONTENT, -1, TYMED_HGLOBAL};
STGMEDIUM medium;
if (pDataObj->lpVtbl->GetData(pDataObj, &fmteRead, &medium)==S_OK)
{
FILEGROUPDESCRIPTORA * pfgd = (FILEGROUPDESCRIPTORA *)GlobalLock(medium.hGlobal);
if (pfgd)
{
if (pfgd->cItems >= 1)
{
if (pfgd->fgd[0].dwFlags & FD_LINKUI) {
this->dwData |= DTID_FD_LINKUI;
}
}
GlobalUnlock(medium.hGlobal);
}
ReleaseStgMedium(&medium);
}
}
else if (this->dwData & DTID_FDESCW)
{
FORMATETC fmteRead = {g_cfFileGroupDescriptorW, NULL, DVASPECT_CONTENT, -1, TYMED_HGLOBAL};
STGMEDIUM medium;
if (pDataObj->lpVtbl->GetData(pDataObj, &fmteRead, &medium)==S_OK)
{
FILEGROUPDESCRIPTORW * pfgd = (FILEGROUPDESCRIPTORW *)GlobalLock(medium.hGlobal);
if (pfgd)
{
if (pfgd->cItems >= 1)
{
if (pfgd->fgd[0].dwFlags & FD_LINKUI) {
this->dwData |= DTID_FD_LINKUI;
}
}
GlobalUnlock(medium.hGlobal);
}
ReleaseStgMedium(&medium);
}
}
}
if (OleQueryCreateFromData(pDataObj) == S_OK)
this->dwData |= DTID_OLEOBJ;
if (OleQueryLinkFromData(pDataObj) == S_OK)
this->dwData |= DTID_OLELINK;
DebugMsg(DM_TRACE, TEXT("sh TR - CIDL::DragEnter this->dwData = %x"), this->dwData);
}
// stash this away
if (pdwEffect)
this->dwEffectLastReturned = *pdwEffect;
return S_OK;
}
// subclasses can prevetn us from assigning in the dwEffect by not passing in pdwEffect
STDMETHODIMP CIDLDropTarget_DragOver(IDropTarget *pdropt, DWORD grfKeyState, POINTL pt, LPDWORD pdwEffect)
{
CIDLDropTarget *this = IToClass(CIDLDropTarget, dropt, pdropt);
this->grfKeyStateLast = grfKeyState;
if (pdwEffect)
*pdwEffect = this->dwEffectLastReturned;
return S_OK;
}
STDMETHODIMP CIDLDropTarget_DragLeave(IDropTarget *pdropt)
{
CIDLDropTarget *this = IToClass(CIDLDropTarget, dropt, pdropt);
if (this->pdtobj)
{
DebugMsg(DM_TRACE, TEXT("sh TR - CIDL::DragLeave called when pdtobj!=NULL (%x)"), this->pdtobj);
this->pdtobj->lpVtbl->Release(this->pdtobj);
this->pdtobj = NULL;
}
return S_OK;
}
#ifdef DEBUG
STDMETHODIMP CIDLDropTarget_Drop(IDropTarget *pdropt, IDataObject *pDataObj, DWORD grfKeyState, POINTL pt, LPDWORD pdwEffect)
{
return E_NOTIMPL;
}
#endif
struct {
UINT uID;
DWORD dwEffect;
} const c_IDEffects[] = {
DDIDM_COPY, DROPEFFECT_COPY,
DDIDM_MOVE, DROPEFFECT_MOVE,
DDIDM_CONTENTS_DESKCOMP, DROPEFFECT_LINK,
DDIDM_LINK, DROPEFFECT_LINK,
DDIDM_SCRAP_COPY, DROPEFFECT_COPY,
DDIDM_SCRAP_MOVE, DROPEFFECT_MOVE,
DDIDM_DOCLINK, DROPEFFECT_LINK,
DDIDM_CONTENTS_COPY, DROPEFFECT_COPY,
DDIDM_CONTENTS_MOVE, DROPEFFECT_MOVE,
DDIDM_CONTENTS_LINK, DROPEFFECT_LINK,
DDIDM_CONTENTS_DESKIMG, DROPEFFECT_LINK,
DDIDM_SYNCCOPYTYPE, DROPEFFECT_COPY, // (order is important)
DDIDM_SYNCCOPY, DROPEFFECT_COPY,
DDIDM_OBJECT_COPY, DROPEFFECT_COPY,
DDIDM_OBJECT_MOVE, DROPEFFECT_MOVE,
};
// Pops up the "Copy, Link, Move" context menu, so that the user can
// choose one of them.
// in:
// pdwEffect drop effects allowed
// dwDefaultEffect default drop effect
// hkeyBase/hkeyProgID extension hkeys
// hmenuReplace replaces POPUP_NONDEFAULTDD. Can only contain:
// DDIDM_MOVE, DDIDM_COPY, DDIDM_LINK menu ids
// pt in screen
// Returns:
// S_OK -- Menu item is processed by one of extensions or canceled
// S_FALSE -- Menu item is selected
HRESULT CIDLDropTarget_DragDropMenu(CIDLDropTarget *this,
DWORD dwDefaultEffect,
IDataObject *pdtobj,
POINTL pt, DWORD *pdwEffect,
HKEY hkeyProgID, HKEY hkeyBase,
UINT idMenu, DWORD grfKeyState)
{
DRAGDROPMENUPARAM ddm = { dwDefaultEffect, pdtobj, { pt.x, pt.y},
pdwEffect,
hkeyProgID, hkeyBase, idMenu, 0, grfKeyState };
return CIDLDropTarget_DragDropMenuEx(this, &ddm);
}
HRESULT CIDLDropTarget_DragDropMenuEx(CIDLDropTarget *this,
LPDRAGDROPMENUPARAM pddm)
{
HRESULT hres = E_OUTOFMEMORY; // assume error
DWORD dwEffectOut = 0; // assume no-ope.
HMENU hmenu = SHLoadPopupMenu(HINST_THISDLL, pddm->idMenu);
if (hmenu)
{
int nItem;
UINT idCmd;
UINT idCmdFirst = DDIDM_EXTFIRST;
HDXA hdxa = HDXA_Create();
HDCA hdca = DCA_Create();
if (hdxa && hdca)
{
// BUGBUG (toddb): Even though pddm->hkeyBase does not have the same value as
// pddm->hkeyProgID they can both be the same registry key (HKCR\FOLDER, for example).
// As a result we sometimes enumerate this key twice looking for the same data. As
// this is sometimes a slow operation we should avoid this. The comparision
// done below was never valid on NT and might not be valid on win9x.
// Add extended menu for "Base" class.
if (pddm->hkeyBase && pddm->hkeyBase != pddm->hkeyProgID)
DCA_AddItemsFromKey(hdca, pddm->hkeyBase, STRREG_SHEX_DDHANDLER);
// Enumerate the DD handlers and let them append menu items.
if (pddm->hkeyProgID)
DCA_AddItemsFromKey(hdca, pddm->hkeyProgID, STRREG_SHEX_DDHANDLER);
idCmdFirst = HDXA_AppendMenuItems(hdxa, pddm->pdtobj, 1,
&pddm->hkeyProgID, this->pidl, hmenu, 0,
DDIDM_EXTFIRST, DDIDM_EXTLAST, 0, hdca);
}
// eliminate menu options that are not allowed by dwEffect
for (nItem = 0; nItem < ARRAYSIZE(c_IDEffects); ++nItem)
{
if (GetMenuState(hmenu, c_IDEffects[nItem].uID, MF_BYCOMMAND)!=(UINT)-1)
{
if (!(c_IDEffects[nItem].dwEffect & *(pddm->pdwEffect)))
{
RemoveMenu(hmenu, c_IDEffects[nItem].uID, MF_BYCOMMAND);
}
else if (c_IDEffects[nItem].dwEffect == pddm->dwDefEffect)
{
SetMenuDefaultItem(hmenu, c_IDEffects[nItem].uID, MF_BYCOMMAND);
}
}
}
// If this dragging is caused by the left button, simply choose
// the default one, otherwise, pop up the context menu. If there
// is no key state info and the original effect is the same as the
// current effect, choose the default one, otherwise pop up the
// context menu.
if ( (this->grfKeyStateLast & MK_LBUTTON) ||
(!this->grfKeyStateLast && (*(pddm->pdwEffect) == pddm->dwDefEffect))
)
{
idCmd = GetMenuDefaultItem(hmenu, MF_BYCOMMAND, 0);
// This one MUST be called here. Please read its comment block.
DAD_DragLeave();
if (this->hwndOwner)
SetForegroundWindow(this->hwndOwner);
}
else
{
// Note that SHTrackPopupMenu calls DAD_DragLeave().
idCmd = SHTrackPopupMenu(hmenu, TPM_RETURNCMD | TPM_RIGHTBUTTON | TPM_LEFTALIGN,
pddm->pt.x, pddm->pt.y, 0, this->hwndOwner, NULL);
INSTRUMENT_TRACKPOPUPMENU(SHCNFI_IDLDT_TPM, this->hwndOwner, idCmd);
}
// We also need to call this here to release the dragged image.
DAD_SetDragImage(NULL, NULL);
// Check if the user selected one of add-in menu items.
if (idCmd == 0)
{
hres = S_OK; // Canceled by the user, return S_OK
}
else if (InRange(idCmd, DDIDM_EXTFIRST, DDIDM_EXTLAST))
{
// Yes. Let the context menu handler process it.
CMINVOKECOMMANDINFOEX ici = {
SIZEOF(CMINVOKECOMMANDINFOEX),
0L,
this->hwndOwner,
(LPSTR)MAKEINTRESOURCE(idCmd - DDIDM_EXTFIRST),
NULL, NULL,
SW_NORMAL,
};
// record if shift or control was being held down
SetICIKeyModifiers(&ici.fMask);
// We may not want to ignore the error code. (Can happen when you use the context menu
// to create new folders, but I don't know if that can happen here.).
HDXA_LetHandlerProcessCommandEx(hdxa, &ici, NULL);
hres = S_OK;
}
else
{
for (nItem = 0; nItem < ARRAYSIZE(c_IDEffects); ++nItem)
{
if (idCmd == c_IDEffects[nItem].uID)
{
dwEffectOut = c_IDEffects[nItem].dwEffect;
break;
}
}
// if hmenuReplace had menu commands other than DDIDM_COPY,
// DDIDM_MOVE, DDIDM_LINK, and that item was selected,
// this assert will catch it. (dwEffectOut is 0 in this case)
ASSERT(nItem < ARRAYSIZE(c_IDEffects));
hres = S_FALSE;
}
if (hdca)
DCA_Destroy(hdca);
if (hdxa)
HDXA_Destroy(hdxa);
DestroyMenu(hmenu);
pddm->idCmd = idCmd;
}
*(pddm->pdwEffect) = dwEffectOut;
return hres;
}
STDAPI CIDLDropTarget_GetPath(CIDLDropTarget *this, LPTSTR pszPath)
{
if (this->szPath[0])
lstrcpyn(pszPath, this->szPath, MAX_PATH);
else if (this->pidl)
SHGetPathFromIDList(this->pidl, pszPath);
else
*pszPath = 0;
return *pszPath == 0 ? E_FAIL : S_OK;
}