Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

1802 lines
57 KiB

/*
* CONVERT.C
*
* Implements the OleUIConvert function which invokes the complete
* Convert dialog.
*
* Copyright (c)1992 Microsoft Corporation, All Right Reserved
*/
#define STRICT 1
#include "ole2ui.h"
#include <stdlib.h>
#include "common.h"
#include "utility.h"
#include "geticon.h"
#include "regdb.h"
#include "convert.h"
#define CF_CLIPBOARDMIN 0xc000
#define CF_CLIPBOARDMAX 0xffff
#define AUXUSERTYPE_SHORTNAME USERCLASSTYPE_SHORT // short name
static TCHAR szOLE2DLL[] = TEXT("ole2.dll"); // name of OLE 2.0 library
static TCHAR szVanillaDocIcon[] = TEXT("DefIcon");
/*
* OleUIConvert
*
* Purpose:
* Invokes the standard OLE Change Type dialog box allowing the user
* to change the type of the single specified object, or change the
* type of all OLE objects of a specified type.
*
* Parameters:
* lpCV LPOLEUICONVERT pointing to the in-out structure
* for this dialog.
*
* Return Value:
* UINT One of the following codes, indicating success or error:
* OLEUI_SUCCESS Success
* OLEUI_ERR_STRUCTSIZE The dwStructSize value is wrong
*/
STDAPI_(UINT) OleUIConvert(LPOLEUICONVERT lpCV)
{
UINT uRet;
HGLOBAL hMemDlg=NULL;
uRet=UStandardValidation((LPOLEUISTANDARD)lpCV, sizeof(OLEUICONVERT)
, &hMemDlg);
if (OLEUI_SUCCESS!=uRet)
return uRet;
// Validate structure members passed in.
#if defined( OBSOLETE )
if (!IsValidClassID(lpCV->clsid))
uRet = OLEUI_CTERR_CLASSIDINVALID;
#endif
if ( (lpCV->dwFlags & CF_SETCONVERTDEFAULT)
&& (!IsValidClassID(lpCV->clsidConvertDefault)) )
uRet = OLEUI_CTERR_CLASSIDINVALID;
if ( (lpCV->dwFlags & CF_SETACTIVATEDEFAULT)
&& (!IsValidClassID(lpCV->clsidActivateDefault)) )
uRet = OLEUI_CTERR_CLASSIDINVALID;
if ( (lpCV->dvAspect != DVASPECT_ICON)
&& (lpCV->dvAspect != DVASPECT_CONTENT) )
uRet = OLEUI_CTERR_DVASPECTINVALID;
if ( (lpCV->wFormat >= CF_CLIPBOARDMIN)
&& (lpCV->wFormat <= CF_CLIPBOARDMAX) )
{
TCHAR szTemp[8];
if (0 == GetClipboardFormatName(lpCV->wFormat, (LPTSTR)szTemp, 8))
uRet = OLEUI_CTERR_CBFORMATINVALID;
}
if ( (NULL != lpCV->lpszUserType)
&& (IsBadReadPtr(lpCV->lpszUserType, 1)) )
uRet = OLEUI_CTERR_STRINGINVALID;
if ( (NULL != lpCV->lpszDefLabel)
&& (IsBadReadPtr(lpCV->lpszDefLabel, 1)) )
uRet = OLEUI_CTERR_STRINGINVALID;
if (0!=lpCV->cClsidExclude)
{
if (NULL!=lpCV->lpClsidExclude && IsBadReadPtr(lpCV->lpClsidExclude
, lpCV->cClsidExclude*sizeof(CLSID)))
uRet=OLEUI_IOERR_LPCLSIDEXCLUDEINVALID;
}
if (OLEUI_ERR_STANDARDMIN <= uRet)
{
if (NULL!=hMemDlg)
FreeResource(hMemDlg);
return uRet;
}
//Now that we've validated everything, we can invoke the dialog.
uRet=UStandardInvocation(ConvertDialogProc, (LPOLEUISTANDARD)lpCV,
hMemDlg, MAKEINTRESOURCE(IDD_CONVERT));
return uRet;
}
/*
* ConvertDialogProc
*
* Purpose:
* Implements the OLE Convert dialog as invoked through the
* OleUIConvert function.
*
* Parameters:
* Standard
*
* Return Value:
* Standard
*
*/
BOOL CALLBACK EXPORT ConvertDialogProc(HWND hDlg, UINT iMsg, WPARAM wParam, LPARAM lParam)
{
LPCONVERT lpCV;
UINT uRet = 0;
OLEUICHANGEICON ci;
//Declare Win16/Win32 compatible WM_COMMAND parameters.
COMMANDPARAMS(wID, wCode, hWndMsg);
//This will fail under WM_INITDIALOG, where we allocate it.
lpCV=(LPCONVERT)LpvStandardEntry(hDlg, iMsg, wParam, lParam, (UINT FAR *)&uRet);
//If the hook processed the message, we're done.
if (0!=uRet)
return (BOOL)uRet;
//Process the temination message
if (iMsg==uMsgEndDialog)
{
ConvertCleanup(hDlg, lpCV);
StandardCleanup(lpCV, hDlg);
EndDialog(hDlg, wParam);
return TRUE;
}
// Process help message from Change Icon
if (iMsg == uMsgHelp)
{
PostMessage(lpCV->lpOCV->hWndOwner, uMsgHelp, wParam, lParam);
return FALSE;
}
switch (iMsg)
{
case WM_INITDIALOG:
FConvertInit(hDlg, wParam, lParam);
return TRUE;
case WM_COMMAND:
switch (wID)
{
case IDCV_ACTIVATELIST:
case IDCV_CONVERTLIST:
switch (wCode)
{
case LBN_SELCHANGE:
// Change "Results" window to reflect current selection
SetConvertResults(hDlg, lpCV);
// Update the icon we display, if we are indeed
// displaying an icon.
if ( (lpCV->dwFlags & CF_SELECTCONVERTTO)
&& (lpCV->dvAspect == DVASPECT_ICON)
&& (!lpCV->fCustomIcon) )
UpdateCVClassIcon(hDlg, lpCV, hWndMsg);
break;
case LBN_DBLCLK:
//Same as pressing OK.
SendCommand(hDlg, IDOK, BN_CLICKED, hWndMsg);
break;
}
break;
case IDCV_CONVERTTO:
case IDCV_ACTIVATEAS:
{
HWND hList, hListInvisible;
LRESULT lRetVal;
BOOL fState;
hList = lpCV->hListVisible;
hListInvisible = lpCV->hListInvisible;
if (IDCV_CONVERTTO == wParam)
{
// User just click on the button again - it was
// already selected.
if (lpCV->dwFlags & CF_SELECTCONVERTTO)
break;
// Turn painting updates off.
SendMessage(hDlg, WM_SETREDRAW, FALSE, 0L);
// If we're working with a linked object, don't
// add the activate list - just the object's
// class should appear in the listbox.
SwapWindows(hDlg,
hList,
hListInvisible);
lpCV->hListVisible = hListInvisible;
lpCV->hListInvisible = hList;
EnableWindow(lpCV->hListInvisible, FALSE);
EnableWindow(lpCV->hListVisible, TRUE);
// Update our flags.
lpCV->dwFlags &= ~CF_SELECTACTIVATEAS;
lpCV->dwFlags |= CF_SELECTCONVERTTO;
}
else
{
if (lpCV->dwFlags & CF_SELECTACTIVATEAS)
break;
// Turn painting updates off.
SendMessage(hDlg, WM_SETREDRAW, FALSE, 0L);
SwapWindows(hDlg,
hList,
hListInvisible);
lpCV->hListVisible = hListInvisible;
lpCV->hListInvisible = hList;
EnableWindow(lpCV->hListInvisible, FALSE);
EnableWindow(lpCV->hListVisible, TRUE);
// Update our flags.
lpCV->dwFlags |= CF_SELECTACTIVATEAS;
lpCV->dwFlags &= ~CF_SELECTCONVERTTO;
}
if (lpCV->dwFlags & CF_SELECTCONVERTTO)
lRetVal = SendMessage(lpCV->hListVisible, LB_SELECTSTRING, (WPARAM)-1, (LPARAM)lpCV->lpszConvertDefault);
else
lRetVal = SendMessage(lpCV->hListVisible, LB_SELECTSTRING, (WPARAM)-1, (LPARAM)lpCV->lpszActivateDefault);
if (LB_ERR == lRetVal)
{
TCHAR szCurrentObject[40];
GetDlgItemText(hDlg, IDCV_OBJECTTYPE, (LPTSTR)szCurrentObject, 40);
SendMessage(lpCV->hListVisible, LB_SELECTSTRING, (WPARAM)-1, (LPARAM)(LPTSTR)szCurrentObject);
}
// Turn updates back on.
SendMessage(hDlg, WM_SETREDRAW, TRUE, 0L);
InvalidateRect(lpCV->hListVisible, NULL, TRUE);
UpdateWindow(lpCV->hListVisible);
if ((lpCV->dvAspect & DVASPECT_ICON) && (lpCV->dwFlags & CF_SELECTCONVERTTO))
UpdateCVClassIcon(hDlg, lpCV, lpCV->hListVisible);
// Hide the icon stuff when Activate is selected...show
// it again when Convert is selected.
fState = ((lpCV->dwFlags & CF_SELECTACTIVATEAS) ||
(lpCV->dwFlags & CF_DISABLEDISPLAYASICON)) ?
SW_HIDE : SW_SHOW;
StandardShowDlgItem(hDlg, IDCV_DISPLAYASICON, fState);
// Only display the icon if convert is selected AND
// display as icon is checked.
if ((SW_SHOW==fState) && (DVASPECT_ICON!=lpCV->dvAspect))
fState = SW_HIDE;
StandardShowDlgItem(hDlg, IDCV_CHANGEICON, fState);
StandardShowDlgItem(hDlg, IDCV_ICON, fState);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL1, fState);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL2, fState);
SetConvertResults(hDlg, lpCV);
}
break;
case IDOK:
{
LRESULT iCurSel;
LPTSTR lpszCLSID;
TCHAR szBuffer[256];
// Set OUT parameters
//
// Set output flags to current ones
//
lpCV->lpOCV->dwFlags = lpCV->dwFlags;
// Update the dvAspect and fObjectsIconChanged members
// as appropriate.
//
if (lpCV->dwFlags & CF_SELECTACTIVATEAS)
{
// DON'T update aspect if activate as was selected.
lpCV->lpOCV->fObjectsIconChanged = FALSE;
}
else
lpCV->lpOCV->dvAspect = lpCV->dvAspect;
//
// Get the new clsid
//
iCurSel = SendMessage(lpCV->hListVisible, LB_GETCURSEL, 0, 0);
SendMessage(lpCV->hListVisible, LB_GETTEXT, iCurSel, (LPARAM)szBuffer);
lpszCLSID = PointerToNthField((LPTSTR)szBuffer, 2, TEXT('\t'));
CLSIDFromStringA(lpszCLSID, (&(lpCV->lpOCV->clsidNew)));
// Free the hMetaPict we got in.
OleUIMetafilePictIconFree(lpCV->lpOCV->hMetaPict);
//
// Get the hMetaPict (if display as icon is checked)
//
if (DVASPECT_ICON == lpCV->dvAspect)
{
HICON hIcon;
TCHAR szLabel[OLEUI_CCHLABELMAX];
INT Index;
// Create the hMetaPict here from icon, label,
// index, and path
hIcon = (HICON)SendDlgItemMessage(hDlg, IDCV_ICON, STM_GETICON, 0, 0L);
// the combined length of the 2 label lines won't ever be more than
// OLEUI_CCHLABELMAX.
Index = (INT)SendDlgItemMessage(hDlg, IDCV_ICONLABEL1,
WM_GETTEXT, OLEUI_CCHLABELMAX, (LPARAM)szLabel);
if (Index < OLEUI_CCHLABELMAX)
{
LPTSTR lpszSecondLine = szLabel + Index;
SendDlgItemMessage(hDlg, IDCV_ICONLABEL2, WM_GETTEXT,
OLEUI_CCHLABELMAX-Index,
(LPARAM)lpszSecondLine);
}
#ifdef OLE201
lpCV->lpOCV->hMetaPict =
OleUIMetafilePictFromIconAndLabel(hIcon,
(LPTSTR)szLabel,
lpCV->lpszIconSource,
lpCV->IconIndex);
#endif
}
else
lpCV->lpOCV->hMetaPict = (HGLOBAL)NULL;
//
// End the dialog
//
SendMessage(hDlg, uMsgEndDialog, OLEUI_OK, 0L);
}
break;
case IDCANCEL:
SendMessage(hDlg, uMsgEndDialog, OLEUI_CANCEL, 0L);
break;
case ID_OLEUIHELP:
PostMessage(lpCV->lpOCV->hWndOwner,
uMsgHelp, (WPARAM)hDlg, MAKELPARAM(IDD_CONVERT, 0));
break;
case IDCV_DISPLAYASICON:
{
int i;
BOOL fCheck;
fCheck=IsDlgButtonChecked(hDlg, wID);
if (fCheck)
lpCV->dvAspect = DVASPECT_ICON;
else
lpCV->dvAspect = DVASPECT_CONTENT;
if (fCheck && (!lpCV->fCustomIcon))
UpdateCVClassIcon(hDlg, lpCV, lpCV->hListVisible);
//Show or hide the icon depending on the check state.
i=(fCheck) ? SW_SHOWNORMAL : SW_HIDE;
StandardShowDlgItem(hDlg, IDCV_CHANGEICON, i);
StandardShowDlgItem(hDlg, IDCV_ICON, i);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL1, i);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL2, i);
SetConvertResults(hDlg, lpCV);
}
break;
case IDCV_CHANGEICON:
{
LPMALLOC pIMalloc;
LPTSTR pszString, pszCLSID;
INT iSel;
HICON hIcon;
TCHAR szLabel[OLEUI_CCHLABELMAX];
INT Index;
//Initialize the structure for the hook.
_fmemset((LPOLEUICHANGEICON)&ci, 0, sizeof(ci));
// Create the hMetaPict here from icon, label,
// index, and path
hIcon = (HICON)SendDlgItemMessage(hDlg, IDCV_ICON, STM_GETICON, 0, 0L);
// the combined length of the 2 label lines won't ever be more than
// OLEUI_CCHLABELMAX.
Index = (INT)SendDlgItemMessage(hDlg, IDCV_ICONLABEL1, WM_GETTEXT,
OLEUI_CCHLABELMAX, (LPARAM)szLabel);
if (Index < OLEUI_CCHLABELMAX)
{
LPTSTR lpszSecondLine;
lpszSecondLine = szLabel + Index;
SendDlgItemMessage(hDlg, IDCV_ICONLABEL2, WM_GETTEXT,
OLEUI_CCHLABELMAX-Index,
(LPARAM)lpszSecondLine);
}
#ifdef OLE201
ci.hMetaPict =
OleUIMetafilePictFromIconAndLabel(hIcon,
szLabel,
lpCV->lpszIconSource,
lpCV->IconIndex);
#endif
ci.cbStruct =sizeof(ci);
ci.hWndOwner=hDlg;
ci.dwFlags = CIF_SELECTCURRENT;
// Only show help if we're showing it for this dialog.
if (lpCV->dwFlags & CF_SHOWHELPBUTTON)
ci.dwFlags |= CIF_SHOWHELP;
iSel = (INT)SendMessage(lpCV->hListVisible, LB_GETCURSEL, 0, 0L);
CoGetMalloc(MEMCTX_TASK, &pIMalloc);
pszString = (LPTSTR)pIMalloc->lpVtbl->Alloc(pIMalloc,
OLEUI_CCHLABELMAX_SIZE +
OLEUI_CCHCLSIDSTRING_SIZE);
// Get whole string
SendMessage(lpCV->hListVisible, LB_GETTEXT, iSel, (LONG)pszString);
// Set pointer to CLSID (string)
pszCLSID = PointerToNthField(pszString, 2, TEXT('\t'));
// Get the clsid to pass to change icon.
CLSIDFromStringA(pszCLSID, &(ci.clsid));
pIMalloc->lpVtbl->Free(pIMalloc, (LPVOID)pszString);
pIMalloc->lpVtbl->Release(pIMalloc);
//Let the hook in to customize Change Icon if desired.
uRet=UStandardHook(lpCV, hDlg, uMsgChangeIcon
, 0, (LONG)(LPTSTR)&ci);
if (0==uRet)
uRet=(UINT)(OLEUI_OK==OleUIChangeIcon((LPOLEUICHANGEICON)&ci));
//Update the display if necessary.
if (0!=uRet)
{
HICON hIcon;
TCHAR szLabel[OLEUI_CCHLABELMAX];
DWORD dwWrapIndex;
hIcon = OleUIMetafilePictExtractIcon(ci.hMetaPict);
SendDlgItemMessage(hDlg, IDCV_ICON, STM_SETICON, (WPARAM)hIcon, 0L);
OleUIMetafilePictExtractIconSource(ci.hMetaPict, lpCV->lpszIconSource, &(lpCV->IconIndex));
OleUIMetafilePictExtractLabel(ci.hMetaPict, szLabel, OLEUI_CCHLABELMAX, &dwWrapIndex);
if (0 == dwWrapIndex) // no second line
{
SendDlgItemMessage(hDlg, IDCV_ICONLABEL1, WM_SETTEXT, 0, (LPARAM)(LPTSTR)szLabel);
SendDlgItemMessage(hDlg, IDCV_ICONLABEL2, WM_SETTEXT, 0, (LPARAM)(LPTSTR)TEXT(""));
}
else
{
LPTSTR lpszSecondLine;
lpszSecondLine = szLabel + dwWrapIndex;
SendDlgItemMessage(hDlg, IDCV_ICONLABEL2,
WM_SETTEXT, 0, (LPARAM)lpszSecondLine);
*lpszSecondLine = TEXT('\0');
SendDlgItemMessage(hDlg, IDCV_ICONLABEL1,
WM_SETTEXT, 0, (LPARAM)(LPTSTR)szLabel);
}
// Update our custom/default flag
if (ci.dwFlags & CIF_SELECTDEFAULT)
lpCV->fCustomIcon = FALSE; // we're in default mode (icon changes on each LB selchange)
else if (ci.dwFlags & CIF_SELECTFROMFILE)
lpCV->fCustomIcon = TRUE; // we're in custom mode (icon doesn't change)
// no change in fCustomIcon if user selected current
lpCV->lpOCV->fObjectsIconChanged = TRUE;
}
}
break;
}
break;
}
return FALSE;
}
/*
* FConvertInit
*
* Purpose:
* WM_INITIDIALOG handler for the Convert dialog box.
*
* Parameters:
* hDlg HWND of the dialog
* wParam WPARAM of the message
* lParam LPARAM of the message
*
* Return Value:
* BOOL Value to return for WM_INITDIALOG.
*/
BOOL FConvertInit(HWND hDlg, WPARAM wParam, LPARAM lParam)
{
LPCONVERT lpCV;
LPOLEUICONVERT lpOCV;
LPMALLOC pIMalloc;
HFONT hFont; // non-bold version of dialog's font
RECT rc;
DWORD dw;
INT cItemsActivate;
HKEY hKey;
LONG lRet;
UINT nRet;
//Copy the structure at lParam into our instance memory.
lpCV=(LPCONVERT)LpvStandardInit(hDlg, sizeof(CONVERT), TRUE, (HFONT FAR *)&hFont);
//PvStandardInit send a termination to us already.
if (NULL==lpCV)
return FALSE;
lpOCV=(LPOLEUICONVERT)lParam;
lpCV->lpOCV=lpOCV;
lpCV->fCustomIcon = FALSE;
//Copy other information from lpOCV that we might modify.
lpCV->dwFlags = lpOCV->dwFlags;
lpCV->clsid = lpOCV->clsid;
lpCV->dvAspect = lpOCV->dvAspect;
lpCV->hListVisible = GetDlgItem(hDlg, IDCV_ACTIVATELIST);
lpCV->hListInvisible = GetDlgItem(hDlg, IDCV_CONVERTLIST);
lpCV->lpszCurrentObject = lpOCV->lpszUserType;
lpOCV->clsidNew = CLSID_NULL;
lpOCV->fObjectsIconChanged = FALSE;
//Allocate space for our strings
if (NOERROR != CoGetMalloc(MEMCTX_TASK, &pIMalloc))
return FALSE;
lpCV->lpszConvertDefault = (LPTSTR)pIMalloc->lpVtbl->Alloc(pIMalloc, OLEUI_CCHLABELMAX_SIZE);
lpCV->lpszActivateDefault = (LPTSTR)pIMalloc->lpVtbl->Alloc(pIMalloc, OLEUI_CCHLABELMAX_SIZE);
lpCV->lpszIconSource = (LPTSTR)pIMalloc->lpVtbl->Alloc(pIMalloc, OLEUI_CCHPATHMAX_SIZE);
pIMalloc->lpVtbl->Release(pIMalloc);
//If we got a font, send it to the necessary controls.
if (NULL!=hFont)
{
SendDlgItemMessage(hDlg, IDCV_OBJECTTYPE, WM_SETFONT, (WPARAM)hFont, 0L);
SendDlgItemMessage(hDlg, IDCV_RESULTTEXT, WM_SETFONT, (WPARAM)hFont, 0L);
SendDlgItemMessage(hDlg, IDCV_ICONLABEL1, WM_SETFONT, (WPARAM)hFont, 0L);
SendDlgItemMessage(hDlg, IDCV_ICONLABEL2, WM_SETFONT, (WPARAM)hFont, 0L);
}
//Hide the help button if necessary
if (!(lpCV->dwFlags & CF_SHOWHELPBUTTON))
StandardShowDlgItem(hDlg, ID_OLEUIHELP, SW_HIDE);
//Fill the Object Type listbox with entries from the reg DB.
nRet = FillClassList(lpOCV->clsid,
lpCV->hListVisible,
lpCV->hListInvisible,
&(lpCV->lpszCurrentObject),
lpOCV->fIsLinkedObject,
lpOCV->wFormat,
lpOCV->cClsidExclude,
lpOCV->lpClsidExclude);
if (nRet == -1) {
// bring down dialog if error when filling list box
PostMessage(hDlg, uMsgEndDialog, OLEUI_ERR_LOADSTRING, 0L);
}
// Set the name of the current object.
SetDlgItemText(hDlg, IDCV_OBJECTTYPE, (LPTSTR)lpCV->lpszCurrentObject);
// Disable the "Activate As" button if the Activate list doesn't
// have any objects in it.
cItemsActivate = (INT)SendMessage(lpCV->hListVisible, LB_GETCOUNT, 0, 0L);
if (1 >= cItemsActivate || (lpCV->dwFlags & CF_DISABLEACTIVATEAS))
EnableWindow(GetDlgItem(hDlg, IDCV_ACTIVATEAS), FALSE);
//Set the tab width in the list to push all the tabs off the side.
GetClientRect(lpCV->hListVisible, (LPRECT)&rc);
dw=GetDialogBaseUnits();
rc.right =(8*rc.right)/LOWORD(dw); //Convert pixels to 2x dlg units.
SendMessage(lpCV->hListVisible, LB_SETTABSTOPS, 1, (LPARAM)(LPINT)(&rc.right));
SendMessage(lpCV->hListInvisible, LB_SETTABSTOPS, 1, (LPARAM)(LPINT)(&rc.right));
// Make sure that either "Convert To" or "Activate As" is selected
// and initialize listbox contents and selection accordingly
if (lpCV->dwFlags & CF_SELECTACTIVATEAS)
{
// Don't need to adjust listbox here because FillClassList
// initializes to the "Activate As" state.
CheckRadioButton(hDlg, IDCV_CONVERTTO, IDCV_ACTIVATEAS, IDCV_ACTIVATEAS);
// Hide the icon stuff when Activate is selected...it gets shown
// again when Convert is selected.
StandardShowDlgItem(hDlg, IDCV_DISPLAYASICON, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_CHANGEICON, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_ICON, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL1, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL2, SW_HIDE);
}
else
{
// Default case. If user hasn't selected either flag, we will
// come here anyway.
// swap listboxes.
HWND hWndTemp = lpCV->hListVisible;
if ( lpCV->dwFlags & CF_DISABLEDISPLAYASICON ) {
StandardShowDlgItem(hDlg, IDCV_DISPLAYASICON, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_CHANGEICON, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_ICON, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL1, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL2, SW_HIDE);
}
lpCV->dwFlags |= CF_SELECTCONVERTTO; // Make sure flag is set
CheckRadioButton(hDlg, IDCV_CONVERTTO, IDCV_ACTIVATEAS, IDCV_CONVERTTO);
SwapWindows(hDlg, lpCV->hListVisible, lpCV->hListInvisible);
lpCV->hListVisible = lpCV->hListInvisible;
lpCV->hListInvisible = hWndTemp;
EnableWindow(lpCV->hListInvisible, FALSE);
EnableWindow(lpCV->hListVisible, TRUE);
}
// Initialize Default strings.
// Default convert string is easy...just user the user type name from
// the clsid we got, or the current object
if ( (lpCV->dwFlags & CF_SETCONVERTDEFAULT)
&& (IsValidClassID(lpCV->lpOCV->clsidConvertDefault)) )
{
dw = OleStdGetUserTypeOfClass((LPCLSID)(&lpCV->lpOCV->clsidConvertDefault),
lpCV->lpszConvertDefault,
OLEUI_CCHLABELMAX_SIZE,
NULL);
if (0 == dw)
lstrcpy((LPTSTR)lpCV->lpszConvertDefault, (LPTSTR)lpCV->lpszCurrentObject);
}
else
lstrcpy((LPTSTR)lpCV->lpszConvertDefault, (LPTSTR)lpCV->lpszCurrentObject);
// Default activate is a bit trickier. We want to use the user type
// name if from the clsid we got (assuming we got one), or the current
// object if it fails or we didn't get a clsid. But...if there's a
// Treat As entry in the reg db, then we use that instead. So... the
// logic boils down to this:
//
// if ("Treat As" in reg db)
// use it;
// else
// if (CF_SETACTIVATEDEFAULT)
// use it;
// else
// use current object;
lRet = RegOpenKey(HKEY_CLASSES_ROOT, TEXT("CLSID"), (HKEY FAR *)&hKey);
if (lRet != ERROR_SUCCESS)
goto CheckInputFlag;
else
{
LPTSTR lpszCLSID;
TCHAR szKey[OLEUI_CCHKEYMAX];
CLSID clsid;
TCHAR szValue[OLEUI_CCHKEYMAX];
StringFromCLSIDA(&(lpCV->lpOCV->clsid), &lpszCLSID);
lstrcpy(szKey, lpszCLSID);
lstrcat(szKey, TEXT("\\TreatAs"));
dw = OLEUI_CCHKEYMAX_SIZE;
lRet = RegQueryValue(hKey, (LPTSTR)szKey, (LPTSTR)szValue, (LPDWORD)&dw);
if (lRet != ERROR_SUCCESS)
{
RegCloseKey(hKey);
OleStdFreeString(lpszCLSID, NULL);
goto CheckInputFlag;
}
else
{
CLSIDFromStringA(szValue, &clsid);
if (0 == OleStdGetUserTypeOfClass(&clsid,
lpCV->lpszActivateDefault,
OLEUI_CCHLABELMAX_SIZE,
NULL))
{
RegCloseKey(hKey);
OleStdFreeString(lpszCLSID, NULL);
goto CheckInputFlag;
}
}
RegCloseKey(hKey);
OleStdFreeString(lpszCLSID, NULL);
goto SelectStringInListbox;
}
CheckInputFlag:
if ( (lpCV->dwFlags & CF_SETACTIVATEDEFAULT)
&& (IsValidClassID(lpCV->lpOCV->clsidActivateDefault)) )
{
dw = OleStdGetUserTypeOfClass((LPCLSID)(&lpCV->lpOCV->clsidActivateDefault),
lpCV->lpszActivateDefault,
OLEUI_CCHLABELMAX_SIZE,
NULL);
if (0 == dw)
lstrcpy((LPTSTR)lpCV->lpszActivateDefault, (LPTSTR)lpCV->lpszCurrentObject);
}
else
lstrcpy((LPTSTR)(lpCV->lpszActivateDefault), (LPTSTR)lpCV->lpszCurrentObject);
SelectStringInListbox:
if (lpCV->dwFlags & CF_SELECTCONVERTTO)
lRet = SendMessage(lpCV->hListVisible, LB_SELECTSTRING, (WPARAM)-1, (LPARAM)(LPTSTR)(lpCV->lpszConvertDefault));
else
lRet = SendMessage(lpCV->hListVisible, LB_SELECTSTRING, (WPARAM)-1, (LPARAM)(LPTSTR)(lpCV->lpszActivateDefault));
if (LB_ERR == lRet)
SendMessage(lpCV->hListVisible, LB_SETCURSEL, (WPARAM)0, 0L);
// Initialize icon stuff
if (DVASPECT_ICON == lpCV->dvAspect )
{
SendDlgItemMessage(hDlg, IDCV_DISPLAYASICON, BM_SETCHECK, TRUE, 0L);
if ((HGLOBAL)NULL != lpOCV->hMetaPict)
{
TCHAR szLabel[OLEUI_CCHLABELMAX];
HICON hIcon;
DWORD dwWrapIndex;
// Set the icon to the icon from the hMetaPict,
// set the label to the label from the hMetaPict.
if (0 != OleUIMetafilePictExtractLabel(lpOCV->hMetaPict, (LPTSTR)szLabel, OLEUI_CCHLABELMAX_SIZE, &dwWrapIndex))
{
if (0 == dwWrapIndex) // no second line
{
SendDlgItemMessage(hDlg, IDCV_ICONLABEL1, WM_SETTEXT, 0, (LPARAM)(LPTSTR)szLabel);
SendDlgItemMessage(hDlg, IDCV_ICONLABEL2, WM_SETTEXT, 0, (LPARAM)(LPTSTR)TEXT(""));
}
else
{
LPTSTR lpszSecondLine;
lpszSecondLine = szLabel + dwWrapIndex;
SendDlgItemMessage(hDlg, IDCV_ICONLABEL2,
WM_SETTEXT, 0, (LPARAM)lpszSecondLine);
*lpszSecondLine = TEXT('\0');
SendDlgItemMessage(hDlg, IDCV_ICONLABEL1,
WM_SETTEXT, 0, (LPARAM)(LPTSTR)szLabel);
}
}
hIcon = OleUIMetafilePictExtractIcon(lpOCV->hMetaPict);
if (NULL != hIcon)
{
SendDlgItemMessage(hDlg, IDCV_ICON, STM_SETICON, (WPARAM)hIcon, 0L);
lpCV->fCustomIcon = TRUE;
}
OleUIMetafilePictExtractIconSource(lpOCV->hMetaPict,
(LPTSTR)(lpCV->lpszIconSource),
&(lpCV->IconIndex));
}
else
UpdateCVClassIcon(hDlg, lpCV, lpCV->hListVisible);
}
else
{
// Hide & disable icon stuff
StandardShowDlgItem(hDlg, IDCV_ICON, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL1, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_ICONLABEL2, SW_HIDE);
StandardShowDlgItem(hDlg, IDCV_CHANGEICON, SW_HIDE);
}
// Call the hook with lCustData in lParam
UStandardHook((LPVOID)lpCV, hDlg, WM_INITDIALOG, wParam, lpOCV->lCustData);
// Update results window
SetConvertResults(hDlg, lpCV);
// Update caption if lpszCaption was specified
if (lpCV->lpOCV->lpszCaption && !IsBadReadPtr(lpCV->lpOCV->lpszCaption, 1)
&& lpCV->lpOCV->lpszCaption[0] != '\0')
SetWindowText(hDlg, (LPTSTR)lpCV->lpOCV->lpszCaption);
return TRUE;
}
/*
* FillClassList
*
* Purpose:
* Enumerates available OLE object classes from the registration
* database that we can convert or activate the specified clsid from.
*
* Note that this function removes any prior contents of the listbox.
*
* Parameters:
* clsid Class ID for class to find convert classes for
* hList HWND to the listbox to fill.
* hListActivate HWND to invisible listbox that stores "activate as" list.
* lpszClassName LPSTR to put the (hr) class name of the clsid; we
* do it here since we've already got the reg db open.
* fIsLinkedObject BOOL is the original object a linked object
* wFormat WORD specifying the format of the original class.
* cClsidExclude UINT number of entries in exclude list
* lpClsidExclude LPCLSID array classes to exclude for list
*
* Return Value:
* UINT Number of strings added to the listbox, -1 on failure.
*/
UINT FillClassList(
CLSID clsid,
HWND hList,
HWND hListInvisible,
LPTSTR FAR *lplpszCurrentClass,
BOOL fIsLinkedObject,
WORD wFormat,
UINT cClsidExclude,
LPCLSID lpClsidExclude)
{
DWORD dw;
UINT cStrings=0;
HKEY hKey;
LONG lRet;
TCHAR szFormatKey[OLEUI_CCHKEYMAX];
TCHAR szClass[OLEUI_CCHKEYMAX];
TCHAR szFormat[OLEUI_CCHKEYMAX];
TCHAR szHRClassName[OLEUI_CCHKEYMAX];
CLSID clsidForList;
LPTSTR lpszCLSID;
//Clean out the existing strings.
SendMessage(hList, LB_RESETCONTENT, 0, 0L);
SendMessage(hListInvisible, LB_RESETCONTENT, 0, 0L);
//Open up the root key.
lRet=RegOpenKey(HKEY_CLASSES_ROOT, (LPCTSTR) TEXT("CLSID"), (HKEY FAR *)&hKey);
if ((LONG)ERROR_SUCCESS!=lRet)
return (UINT)-1;
if (NULL == *lplpszCurrentClass)
{
// alloc buffer here...
LPMALLOC pIMalloc = NULL;
HRESULT hrErr;
hrErr = CoGetMalloc(MEMCTX_TASK, &pIMalloc);
if (hrErr != NOERROR)
{
RegCloseKey(hKey);
return FALSE;
}
// Allocate space for lpszCurrentClass
*lplpszCurrentClass = (LPTSTR)pIMalloc->lpVtbl->Alloc(pIMalloc, OLEUI_CCHKEYMAX_SIZE);
pIMalloc->lpVtbl->Release(pIMalloc);
lRet = OleStdGetUserTypeOfClass((REFCLSID)&clsid,
*lplpszCurrentClass,
OLEUI_CCHLABELMAX_SIZE,
NULL);
if (0 ==lRet)
{
INT n = LoadString(ghInst, IDS_PSUNKNOWNTYPE, *lplpszCurrentClass,
OLEUI_CCHKEYMAX);
if (!n)
{
OutputDebugString(TEXT("Cannot LoadString\n"));
RegCloseKey(hKey);
return (UINT)-1;
}
}
}
// Get the class name of the original class.
StringFromCLSIDA(&clsid, &lpszCLSID);
// Here, we step through the entire registration db looking for
// class that can read or write the original class' format. We
// maintain two lists - an activate list and a convert list. The
// activate list is a subset of the convert list - activate == read/write
// and convert == read. We swap the listboxes as needed with
// SwapWindows, and keep track of which is which in the lpCV structure.
// Every item has the following format:
//
// Class Name\tclsid\0
cStrings=0;
lRet=RegEnumKey(hKey, cStrings++, szClass, OLEUI_CCHKEYMAX_SIZE);
while ((LONG)ERROR_SUCCESS==lRet)
{
INT j;
BOOL fExclude=FALSE;
//Check if this CLSID is in the exclusion list.
CLSIDFromStringA(szClass, &clsidForList);
for (j=0; j < (int)cClsidExclude; j++)
{
if (IsEqualCLSID(&clsidForList, (LPCLSID)(lpClsidExclude+j)))
{
fExclude=TRUE;
break;
}
}
if (fExclude)
goto Next; // don't add this class to list
// Check for a \Conversion\Readwritable\Main - if its
// readwriteable, then the class can be added to the ActivateAs
// list.
// NOTE: the presence of this key should NOT automatically be
// used to add the class to the CONVERT list.
lstrcpy((LPTSTR)szFormatKey, (LPTSTR)szClass);
lstrcat((LPTSTR)szFormatKey, (LPTSTR) TEXT("\\Conversion\\Readwritable\\Main"));
dw=OLEUI_CCHKEYMAX_SIZE;
lRet=RegQueryValue(hKey, (LPTSTR)szFormatKey, (LPTSTR)szFormat, (LONG FAR *)&dw);
if ( ((LONG)ERROR_SUCCESS==lRet)
&& (FormatIncluded((LPTSTR)szFormat, wFormat)) )
{
// Here, we've got a list of formats that this class can read
// and write. We need to see if the original class' format is
// in this list. We do that by looking for wFormat in
// szFormat - if it in there, then we add this class to the
// ACTIVATEAS list only. we do NOT automatically add it to the
// CONVERT list. Readable and Readwritable format lists should
// be handled separately.
dw=OLEUI_CCHKEYMAX_SIZE;
lRet=RegQueryValue(hKey, (LPTSTR)szClass, (LPTSTR)szHRClassName, (LPDWORD)&dw);
if ((LONG)ERROR_SUCCESS==lRet)
{
lstrcat((LPTSTR)szHRClassName, (LPTSTR) TEXT("\t"));
// only add if not already in list
if (LB_ERR==SendMessage(hList,LB_FINDSTRING, 0,
(LPARAM)(LPSTR)szHRClassName)) {
lstrcat((LPTSTR)szHRClassName, (LPTSTR)szClass);
SendMessage(hList, LB_ADDSTRING, 0,
(DWORD)(LPTSTR)szHRClassName);
}
}
}
// Here we'll check to see if the original class' format is in the
// readable list. if so, we will add the class to the CONVERTLIST
// We've got a special case for a linked object here.
// If an object is linked, then the only class that
// should appear in the convert list is the object's
// class. So, here we check to see if the object is
// linked. If it is, then we compare the classes. If
// they aren't the same, then we just go to the next key.
if ( (!fIsLinkedObject)||(lstrcmp((LPCTSTR)lpszCLSID, szClass) == 0))
{
//Check for a \Conversion\Readable\Main entry
lstrcpy((LPTSTR)szFormatKey, (LPTSTR)szClass);
lstrcat((LPTSTR)szFormatKey, (LPTSTR) TEXT("\\Conversion\\Readable\\Main"));
dw=OLEUI_CCHKEYMAX_SIZE;
// Check to see if this class can read the original class
// format. If it can, add the string to the listbox as
// CONVERT_LIST.
lRet=RegQueryValue(hKey, (LPCTSTR)szFormatKey, (LPTSTR)szFormat, (LPDWORD)&dw);
if ( ((LONG)ERROR_SUCCESS==lRet)
&& (FormatIncluded((LPTSTR)szFormat, wFormat)) )
{
dw=OLEUI_CCHKEYMAX_SIZE;
lRet=RegQueryValue(hKey, (LPCTSTR)szClass, (LPTSTR)szHRClassName, (LPDWORD)&dw);
if ((LONG)ERROR_SUCCESS==lRet)
{
lstrcat((LPTSTR)szHRClassName, (LPTSTR) TEXT("\t"));
// only add if not already in list
if (LB_ERR==SendMessage(hListInvisible,LB_FINDSTRING, 0,
(LPARAM)(LPSTR)szHRClassName)) {
lstrcat((LPTSTR)szHRClassName, szClass);
SendMessage(hListInvisible, LB_ADDSTRING, 0,
(DWORD)(LPTSTR)szHRClassName);
}
} // end if
} // end if
} // end else
Next:
//Continue with the next key.
lRet=RegEnumKey(hKey, cStrings++, (LPTSTR)szClass, OLEUI_CCHKEYMAX_SIZE);
} // end while
// If the original class isn't already in the list, add it.
lstrcpy((LPTSTR)szHRClassName, *lplpszCurrentClass);
lstrcat((LPTSTR)szHRClassName, (LPTSTR) TEXT("\t"));
lRet = SendMessage(hList, LB_FINDSTRING, (WPARAM)-1, (LPARAM)(LPTSTR)szHRClassName);
// only add it if it's not there already.
if (LB_ERR == lRet) {
lstrcat((LPTSTR)szHRClassName, lpszCLSID);
SendMessage(hList, LB_ADDSTRING, 0, (LPARAM)(LPTSTR)szHRClassName);
}
lRet = SendMessage(hListInvisible, LB_FINDSTRING, (WPARAM)-1, (LPARAM)(LPTSTR)szHRClassName);
// only add it if it's not there already.
if (LB_ERR == lRet)
SendMessage(hListInvisible, LB_ADDSTRING, 0, (LPARAM)(LPTSTR)szHRClassName);
// Free the string we got from StringFromCLSID.
// OLE2NOTE: StringFromCLSID uses your IMalloc to alloc a
// string, so you need to be sure to free the string you
// get back, otherwise you'll have leaky memory.
OleStdFreeString(lpszCLSID, NULL);
RegCloseKey(hKey);
return cStrings;
}
/*
* OleUICanConvertOrActivateAs
*
* Purpose:
* Determine if there is any OLE object class from the registration
* database that we can convert or activate the specified clsid from.
*
* Parameters:
* rClsid REFCLSID Class ID for class to find convert classes for
* fIsLinkedObject BOOL is the original object a linked object
* wFormat WORD specifying the format of the original class.
*
* Return Value:
* BOOL TRUE if Convert command should be enabled, else FALSE
*/
STDAPI_(BOOL) OleUICanConvertOrActivateAs(
REFCLSID rClsid,
BOOL fIsLinkedObject,
WORD wFormat
)
{
DWORD dw;
UINT cStrings=0;
HKEY hKey;
LONG lRet;
TCHAR szFormatKey[OLEUI_CCHKEYMAX];
TCHAR szClass[OLEUI_CCHKEYMAX];
TCHAR szFormat[OLEUI_CCHKEYMAX];
TCHAR szHRClassName[OLEUI_CCHKEYMAX];
BOOL fEnableConvert = FALSE;
LPTSTR lpszCLSID;
//Open up the root key.
lRet=RegOpenKey(HKEY_CLASSES_ROOT, "CLSID", (HKEY FAR *)&hKey);
if ((LONG)ERROR_SUCCESS!=lRet)
return FALSE;
// Get the class name of the original class.
StringFromCLSIDA(rClsid, &lpszCLSID);
// Here, we step through the entire registration db looking for
// class that can read or write the original class' format.
// This loop stops if a single class is found.
cStrings=0;
lRet=RegEnumKey(hKey, cStrings++, szClass, OLEUI_CCHKEYMAX_SIZE);
while ((LONG)ERROR_SUCCESS==lRet)
{
if (lstrcmp(lpszCLSID, szClass)== 0)
goto next; // we don't want to consider the source class
// Check for a \Conversion\ReadWriteable\Main entry first - if its
// readwriteable, then we don't need to bother checking to see if
// its readable.
lstrcpy((LPTSTR)szFormatKey, (LPTSTR)szClass);
lstrcat((LPTSTR)szFormatKey, (LPTSTR) TEXT("\\Conversion\\Readwritable\\Main"));
dw=OLEUI_CCHKEYMAX_SIZE;
lRet=RegQueryValue(hKey, (LPCTSTR)szFormatKey, (LPTSTR)szFormat, (LONG FAR *)&dw);
if ( (LONG)ERROR_SUCCESS != lRet)
{
// Try \\DataFormats\DefaultFile too
lstrcpy((LPTSTR)szFormatKey, (LPTSTR)szClass);
lstrcat((LPTSTR)szFormatKey, (LPTSTR) TEXT("\\DataFormats\\DefaultFile"));
dw=OLEUI_CCHKEYMAX_SIZE;
lRet=RegQueryValue(hKey, (LPCTSTR)szFormatKey, (LPTSTR)szFormat, (LONG FAR *)&dw);
}
if ( ((LONG)ERROR_SUCCESS==lRet)
&& (FormatIncluded((LPTSTR)szFormat, wFormat)) )
{
// Here, we've got a list of formats that this class can read
// and write. We need to see if the original class' format is
// in this list. We do that by looking for wFormat in
// szFormat - if it in there, then we add this class to the
// both lists and continue. If not, then we look at the
// class' readable formats.
dw=OLEUI_CCHKEYMAX_SIZE;
lRet=RegQueryValue(hKey, (LPCTSTR)szClass, (LPTSTR)szHRClassName, (LPDWORD)&dw);
if ((LONG)ERROR_SUCCESS==lRet)
{
fEnableConvert = TRUE;
break; // STOP -- found one!
}
}
// We either didn't find the readwritable key, or the
// list of readwritable formats didn't include the
// original class format. So, here we'll check to
// see if its in the readable list.
// We've got a special case for a linked object here.
// If an object is linked, then the only class that
// should appear in the convert list is the object's
// class. So, here we check to see if the object is
// linked. If it is, then we compare the classes. If
// they aren't the same, then we just go to the next key.
else if ( (!fIsLinkedObject)||
(lstrcmp((LPTSTR)lpszCLSID, (LPTSTR)szClass)== 0))
{
//Check for a \Conversion\Readable\Main entry
lstrcpy((LPTSTR)szFormatKey, (LPTSTR)szClass);
lstrcat((LPTSTR)szFormatKey, (LPTSTR) TEXT("\\Conversion\\Readable\\Main"));
dw=OLEUI_CCHKEYMAX_SIZE;
// Check to see if this class can read the original class
// format. If it can, add the string to the listbox as
// CONVERT_LIST.
lRet=RegQueryValue(hKey, (LPTSTR)szFormatKey, (LPTSTR)szFormat, (LPDWORD)&dw);
if ( ((LONG)ERROR_SUCCESS==lRet)
&& (FormatIncluded((LPTSTR)szFormat, wFormat)) )
{
dw=OLEUI_CCHKEYMAX_SIZE;
lRet=RegQueryValue(hKey, (LPTSTR)szClass, (LPTSTR)szHRClassName, (LPDWORD)&dw);
if ((LONG)ERROR_SUCCESS==lRet)
{
fEnableConvert = TRUE;
break; // STOP -- found one!
} // end if
} // end if
} // end else
next:
//Continue with the next key.
lRet=RegEnumKey(hKey, cStrings++, (LPTSTR)szClass, OLEUI_CCHKEYMAX_SIZE);
} // end while
// Free the string we got from StringFromCLSID.
// OLE2NOTE: StringFromCLSID uses your IMalloc to alloc a
// string, so you need to be sure to free the string you
// get back, otherwise you'll have leaky memory.
OleStdFreeString(lpszCLSID, NULL);
RegCloseKey(hKey);
return fEnableConvert;
}
/*
* FormatIncluded
*
* Purpose:
* Parses the string for format from the word.
*
* Parameters:
* szStringToSearch String to parse
* wFormat format to find
*
* Return Value:
* BOOL TRUE if format is found in string,
* FALSE otherwise.
*/
BOOL FormatIncluded(LPTSTR szStringToSearch, WORD wFormat)
{
LPTSTR lpToken;
TCHAR seps[] = TEXT(",");
static TCHAR szFormat[255]; // max size of atom (what GetClipboardName returns)
if (wFormat < 0xC000) // RegisterClipboardFormat returns values
{
char szTemp[11];
_itoa(wFormat, szTemp, 10); // between 0xC000 and 0xFFFF.
#ifdef UNICODE
mbstowcs(szFormat, szTemp, 11);
#else
strncpy(szFormat, szTemp, 11);
#endif
}
else
GetClipboardFormatName(wFormat, szFormat, 255);
lpToken = (LPTSTR)_fstrtok(szStringToSearch, seps);
while (lpToken != NULL)
{
if (0 ==lstrcmpi(lpToken, szFormat))
return TRUE;
else
lpToken = (LPTSTR)_fstrtok(NULL, seps);
}
return FALSE;
}
/*
* UpdateCVClassIcon
*
* Purpose:
* Handles LBN_SELCHANGE for the Object Type listbox. On a selection
* change, we extract an icon from the server handling the currently
* selected object type using the utility function HIconFromClass.
* Note that we depend on the behavior of FillClassList to stuff the
* object class after a tab in the listbox string that we hide from
* view (see WM_INITDIALOG).
*
* Parameters
* hDlg HWND of the dialog box.
* lpCV LPCONVERT pointing to the dialog structure
* hList HWND of the Object Type listbox.
*
* Return Value:
* None
*/
void UpdateCVClassIcon(HWND hDlg, LPCONVERT lpCV, HWND hList)
{
UINT iSel;
DWORD cb;
HGLOBAL hMem;
LPTSTR pszName, pszCLSID;
CLSID clsid;
HICON hIcon, hOldIcon;
UINT cch, uWrapIndex;
RECT LabelRect;
TCHAR szLabel[OLEUI_CCHLABELMAX];
LPTSTR lpszLabel = szLabel;
HFONT hFont;
HWND hLabel1;
/*
* When we change object type selection, get the new icon for that
* type into our structure and update it in the display.
*/
iSel=(UINT)SendMessage(hList, LB_GETCURSEL, 0, 0L);
if (LB_ERR==(INT)iSel)
return;
//Allocate a string to hold the entire listbox string
cb=SendMessage(hList, LB_GETTEXTLEN, iSel, 0L);
hMem=GlobalAlloc(GHND, cb+1);
if (NULL==hMem)
return;
pszName=GlobalLock(hMem);
// Get whole string
SendMessage(hList, LB_GETTEXT, iSel, (LONG)pszName);
// Set pointer to CLSID (string)
pszCLSID = PointerToNthField(pszName, 2, TEXT('\t'));
//Create the class ID with this string.
CLSIDFromStringA(pszCLSID, &clsid);
hIcon = HIconAndSourceFromClass(&clsid, (LPTSTR)(lpCV->lpszIconSource), &(lpCV->IconIndex));
if (NULL == hIcon) // Use Vanilla Document
{
lstrcpy((LPTSTR)(lpCV->lpszIconSource), (LPTSTR)szOLE2DLL);
lpCV->IconIndex = 0; // 1st icon in OLE2.DLL
hIcon = ExtractIcon(ghInst,
(LPTSTR)(lpCV->lpszIconSource),
lpCV->IconIndex);
}
//Replace the current display with this new one.
hOldIcon = (HICON)SendDlgItemMessage(hDlg, IDCV_ICON, STM_SETICON, (WPARAM)hIcon, 0L);
hLabel1 = GetDlgItem(hDlg, IDCV_ICONLABEL1);
GetWindowRect(hLabel1, &LabelRect);
// Get the label
if (lpCV->lpOCV->lpszDefLabel) {
// width is used as 1.5 times width of icon window
lpszLabel = ChopText(hLabel1, ((LabelRect.right-LabelRect.left)*3)/2, (LPTSTR)lpCV->lpOCV->lpszDefLabel);
LSTRCPYN(szLabel, lpCV->lpOCV->lpszDefLabel, sizeof(szLabel)/sizeof(TCHAR));
} else {
if ((cch = OleStdGetAuxUserType(&clsid, AUXUSERTYPE_SHORTNAME,
(LPTSTR)szLabel, OLEUI_CCHLABELMAX_SIZE, NULL)) == 0) {
// If we can't get the AuxUserType2, then try the long name
if ((cch = OleStdGetUserTypeOfClass(&clsid, (LPTSTR)szLabel,
OLEUI_CCHKEYMAX_SIZE, NULL)) == 0) {
// last resort; use "Document" as label
LoadString(ghInst,IDS_DEFICONLABEL,(LPTSTR)szLabel,OLEUI_CCHLABELMAX);
cch = lstrlen((LPCTSTR)szLabel);
}
}
}
hFont = (HFONT)SendMessage(hLabel1, WM_GETFONT, 0, 0L);
// Figure out where to split the label
uWrapIndex = OleStdIconLabelTextOut(NULL, hFont, 0, 0, 0, &LabelRect, (LPTSTR)lpszLabel, cch, NULL);
if (0 == uWrapIndex)
{
SendMessage(hLabel1, WM_SETTEXT, 0, (LPARAM)(LPTSTR)lpszLabel);
SendDlgItemMessage(hDlg, IDCV_ICONLABEL2, WM_SETTEXT, 0, (LPARAM)(LPTSTR)"");
}
else
{
TCHAR chKeep;
LPTSTR lpszSecondLine;
chKeep = szLabel[uWrapIndex];
lpszLabel[uWrapIndex] = TEXT('\0');
SendMessage(hLabel1, WM_SETTEXT, 0, (LPARAM)(LPTSTR)lpszLabel);
lpszLabel[uWrapIndex] = chKeep;
lpszSecondLine = lpszLabel + uWrapIndex;
SendDlgItemMessage(hDlg, IDCV_ICONLABEL2, WM_SETTEXT, 0, (LPARAM)lpszSecondLine);
}
// get rid of the old icon
if ((HICON)NULL != hOldIcon)
DestroyIcon(hOldIcon);
GlobalUnlock(hMem);
GlobalFree(hMem);
return;
}
BOOL IsValidClassID(CLSID cID)
{
if (0 == _fmemcmp(&cID, &CLSID_NULL, sizeof(CLSID))) // if (CLSID_NULL == cID)
return FALSE;
else
return TRUE;
}
/*
* SetConvertResults
*
* Purpose:
* Centralizes setting of the Result display in the Convert
* dialog. Handles loading the appropriate string from the module's
* resources and setting the text, displaying the proper result picture,
* and showing the proper icon.
*
* Parameters:
* hDlg HWND of the dialog box so we can access controls.
* lpCV LPCONVERT in which we assume that the dwFlags is
* set to the appropriate radio button selection, and
* the list box has the appropriate class selected.
*
* Return Value:
* None
*/
void SetConvertResults(HWND hDlg, LPCONVERT lpCV)
{
LPTSTR pszT, // temp
lpszOutput, // text sent in SetDlgItemText
lpszDefObj, // string containing default object class
lpszSelObj, // string containing selected object class
lpszString; // stirng we get from loadstring
UINT i, cch;
HGLOBAL hMem;
HWND hList; // handle to listbox (so we can just use SendMsg i
// instead of SendDlgItemMsg).
hList = lpCV->hListVisible;
/*
* We need scratch memory for loading the stringtable string, loading
* the object type from the listbox, loading the source object
* type, and constructing the final string. We therefore allocate
* four buffers as large as the maximum message length (512) plus
* the object type, guaranteeing that we have enough
* in all cases.
*/
i=(UINT)SendMessage(hList, LB_GETCURSEL, 0, 0L);
cch=512+(UINT)SendMessage(hList, LB_GETTEXTLEN, i, 0L);
hMem=GlobalAlloc(GHND, (DWORD)(4*cch));
if (NULL==hMem)
return;
lpszOutput = (LPTSTR)GlobalLock(hMem);
lpszSelObj = lpszOutput + cch;
lpszDefObj = lpszSelObj + cch;
lpszString = lpszDefObj + cch;
// Get selected object and null terminate human-readable name (1st field).
SendMessage(hList, LB_GETTEXT, i, (LONG)lpszSelObj);
pszT = PointerToNthField(lpszSelObj, 2, TEXT('\t'));
#ifdef WIN32
// AnsiPrev is obsolete in Win32
pszT = CharPrev((LPCTSTR) lpszSelObj, (LPCTSTR) pszT);
#else
pszT = AnsiPrev((LPCTSTR) lpszSelObj, (LPCTSTR) pszT);
#endif
*pszT = TEXT('\0');
// Get default object
GetDlgItemText(hDlg, IDCV_OBJECTTYPE, lpszDefObj, 512);
//Default is an empty string.
*lpszOutput=0;
if (lpCV->dwFlags & CF_SELECTCONVERTTO)
{
if (lpCV->lpOCV->fIsLinkedObject) // working with linked object
LoadString(ghInst, IDS_CVRESULTCONVERTLINK, lpszOutput, cch);
else
{
// converting to a new class
if (0 !=lstrcmp(lpszDefObj, lpszSelObj))
{
if (0 != LoadString(ghInst, IDS_CVRESULTCONVERTTO, lpszString, cch))
wsprintf(lpszOutput, lpszString, lpszDefObj, lpszSelObj);
}
else // converting to the same class (no conversion)
{
if (0 != LoadString(ghInst, IDS_CVRESULTNOCHANGE, lpszString, cch))
wsprintf(lpszOutput, lpszString, lpszDefObj);
}
}
if (lpCV->dvAspect == DVASPECT_ICON) // Display as icon is checked
{
if (0 != LoadString(ghInst, IDS_CVRESULTDISPLAYASICON, lpszString, cch))
lstrcat(lpszOutput, lpszString);
}
}
if (lpCV->dwFlags & CF_SELECTACTIVATEAS)
{
if (0!=LoadString(ghInst, IDS_CVRESULTACTIVATEAS, lpszString, cch))
wsprintf(lpszOutput, lpszString, lpszDefObj, lpszSelObj);
// activating as a new class
if (0 !=lstrcmp(lpszDefObj, lpszSelObj))
{
if (0!=LoadString(ghInst, IDS_CVRESULTACTIVATEDIFF, lpszString, cch))
lstrcat(lpszOutput, lpszString);
}
else // activating as itself.
{
lstrcat(lpszOutput, TEXT("."));
}
}
//If LoadString failed, we simply clear out the results (*lpszOutput=0 above)
SetDlgItemText(hDlg, IDCV_RESULTTEXT, lpszOutput);
GlobalUnlock(hMem);
GlobalFree(hMem);
return;
}
/*
* ConvertCleanup
*
* Purpose:
* Performs convert-specific cleanup before Convert termination.
*
* Parameters:
* hDlg HWND of the dialog box so we can access controls.
*
* Return Value:
* None
*/
void ConvertCleanup(HWND hDlg, LPCONVERT lpCV)
{
LPMALLOC pIMalloc;
// Free our strings. Zero out the user type name string
// the the calling app doesn't free to it.
if (NOERROR == CoGetMalloc(MEMCTX_TASK, &pIMalloc))
{
pIMalloc->lpVtbl->Free(pIMalloc, (LPVOID)lpCV->lpszConvertDefault);
pIMalloc->lpVtbl->Free(pIMalloc, (LPVOID)lpCV->lpszActivateDefault);
pIMalloc->lpVtbl->Free(pIMalloc, (LPVOID)lpCV->lpszIconSource);
if (lpCV->lpOCV->lpszUserType) {
pIMalloc->lpVtbl->Free(pIMalloc,(LPVOID)lpCV->lpOCV->lpszUserType);
lpCV->lpOCV->lpszUserType = NULL;
}
if (lpCV->lpOCV->lpszDefLabel) {
pIMalloc->lpVtbl->Free(pIMalloc,(LPVOID)lpCV->lpOCV->lpszDefLabel);
lpCV->lpOCV->lpszDefLabel = NULL;
}
pIMalloc->lpVtbl->Release(pIMalloc);
}
return;
}
/*
* SwapWindows
*
* Purpose:
* Moves hWnd1 to hWnd2's position and hWnd2 to hWnd1's position.
* Does NOT change sizes.
*
*
* Parameters:
* hDlg HWND of the dialog box so we can turn redraw off
*
* Return Value:
* None
*/
void SwapWindows(HWND hDlg, HWND hWnd1, HWND hWnd2)
{
RECT Rect1, Rect2;
GetWindowRect(hWnd1, &Rect1);
GetWindowRect(hWnd2, &Rect2);
ScreenToClient(hDlg, (LPPOINT)&Rect1.left);
ScreenToClient(hDlg, (LPPOINT)&Rect1.right);
ScreenToClient(hDlg, (LPPOINT)&Rect2.left);
ScreenToClient(hDlg, (LPPOINT)&Rect2.right);
SetWindowPos(hWnd1,
NULL,
Rect2.left,
Rect2.top,
0,
0,
SWP_NOZORDER | SWP_NOSIZE);
SetWindowPos(hWnd2,
NULL,
Rect1.left,
Rect1.top,
0,
0,
SWP_NOZORDER | SWP_NOSIZE);
return;
}