4 * Copyright 1998 Patrik Stridvall
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
32 #include "oledlg_private.h"
34 #include "wine/debug.h"
35 #include "wine/unicode.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
39 HINSTANCE OLEDLG_hInstance
= 0;
42 UINT cf_embedded_object
;
44 UINT cf_object_descriptor
;
45 UINT cf_link_src_descriptor
;
51 UINT oleui_msg_enddialog
;
53 static void register_clipboard_formats(void)
55 /* These used to be declared in olestd.h, but that seems to have been removed from the api */
56 static const WCHAR CF_EMBEDSOURCEW
[] = { 'E','m','b','e','d',' ','S','o','u','r','c','e',0 };
57 static const WCHAR CF_EMBEDDEDOBJECTW
[] = { 'E','m','b','e','d','d','e','d',' ','O','b','j','e','c','t',0 };
58 static const WCHAR CF_LINKSOURCEW
[] = { 'L','i','n','k',' ','S','o','u','r','c','e',0 };
59 static const WCHAR CF_OBJECTDESCRIPTORW
[] = { 'O','b','j','e','c','t',' ','D','e','s','c','r','i','p','t','o','r',0 };
60 static const WCHAR CF_LINKSRCDESCRIPTORW
[] = { 'L','i','n','k',' ','S','o','u','r','c','e',' ','D','e','s','c','r','i','p','t','o','r',0 };
61 static const WCHAR CF_OWNERLINKW
[] = { 'O','w','n','e','r','L','i','n','k',0 };
62 static const WCHAR CF_FILENAMEW
[] = { 'F','i','l','e','N','a','m','e',0 };
63 static const WCHAR CF_FILENAMEWW
[] = { 'F','i','l','e','N','a','m','e','W',0 };
65 /* Load in the same order as native to make debugging easier */
66 cf_object_descriptor
= RegisterClipboardFormatW(CF_OBJECTDESCRIPTORW
);
67 cf_link_src_descriptor
= RegisterClipboardFormatW(CF_LINKSRCDESCRIPTORW
);
68 cf_embed_source
= RegisterClipboardFormatW(CF_EMBEDSOURCEW
);
69 cf_embedded_object
= RegisterClipboardFormatW(CF_EMBEDDEDOBJECTW
);
70 cf_link_source
= RegisterClipboardFormatW(CF_LINKSOURCEW
);
71 cf_ownerlink
= RegisterClipboardFormatW(CF_OWNERLINKW
);
72 cf_filename
= RegisterClipboardFormatW(CF_FILENAMEW
);
73 cf_filenamew
= RegisterClipboardFormatW(CF_FILENAMEWW
);
76 static void register_messages(void)
78 oleui_msg_help
= RegisterWindowMessageW(SZOLEUI_MSG_HELPW
);
79 oleui_msg_enddialog
= RegisterWindowMessageW(SZOLEUI_MSG_ENDDIALOGW
);
82 /***********************************************************************
85 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID fImpLoad
)
87 TRACE("%p 0x%x %p\n", hinstDLL
, fdwReason
, fImpLoad
);
90 case DLL_PROCESS_ATTACH
:
91 DisableThreadLibraryCalls(hinstDLL
);
92 OLEDLG_hInstance
= hinstDLL
;
93 register_clipboard_formats();
101 /***********************************************************************
102 * OleUIAddVerbMenuA (OLEDLG.1)
104 BOOL WINAPI
OleUIAddVerbMenuA(IOleObject
*object
, LPCSTR shorttype
,
105 HMENU hMenu
, UINT uPos
, UINT uIDVerbMin
, UINT uIDVerbMax
,
106 BOOL addConvert
, UINT idConvert
, HMENU
*lphMenu
)
108 WCHAR
*shorttypeW
= NULL
;
111 TRACE("(%p, %s, %p, %d, %d, %d, %d, %d, %p)\n", object
, debugstr_a(shorttype
),
112 hMenu
, uPos
, uIDVerbMin
, uIDVerbMax
, addConvert
, idConvert
, lphMenu
);
116 INT len
= MultiByteToWideChar(CP_ACP
, 0, shorttype
, -1, NULL
, 0);
117 shorttypeW
= HeapAlloc(GetProcessHeap(), 0, len
*sizeof(WCHAR
));
119 MultiByteToWideChar(CP_ACP
, 0, shorttype
, -1, shorttypeW
, len
);
122 ret
= OleUIAddVerbMenuW(object
, shorttypeW
, hMenu
, uPos
, uIDVerbMin
, uIDVerbMax
,
123 addConvert
, idConvert
, lphMenu
);
124 HeapFree(GetProcessHeap(), 0, shorttypeW
);
128 static inline BOOL
is_verb_in_range(const OLEVERB
*verb
, UINT idmin
, UINT idmax
)
130 if (idmax
== 0) return TRUE
;
131 return (verb
->lVerb
+ idmin
<= idmax
);
134 static HRESULT
get_next_insertable_verb(IEnumOLEVERB
*enumverbs
, UINT idmin
, UINT idmax
, OLEVERB
*verb
)
136 memset(verb
, 0, sizeof(*verb
));
138 while (IEnumOLEVERB_Next(enumverbs
, 1, verb
, NULL
) == S_OK
) {
139 if (is_verb_in_range(verb
, idmin
, idmax
) && (verb
->grfAttribs
& OLEVERBATTRIB_ONCONTAINERMENU
))
142 CoTaskMemFree(verb
->lpszVerbName
);
143 memset(verb
, 0, sizeof(*verb
));
149 static void insert_verb_to_menu(HMENU menu
, UINT idmin
, const OLEVERB
*verb
)
151 InsertMenuW(menu
, ~0, verb
->fuFlags
| MF_BYPOSITION
| MF_STRING
, verb
->lVerb
+ idmin
, verb
->lpszVerbName
);
154 /***********************************************************************
155 * OleUIAddVerbMenuW (OLEDLG.14)
157 BOOL WINAPI
OleUIAddVerbMenuW(IOleObject
*object
, LPCWSTR shorttype
,
158 HMENU hMenu
, UINT uPos
, UINT idmin
, UINT idmax
, BOOL addConvert
, UINT idConvert
, HMENU
*ret_submenu
)
160 static const WCHAR objectW
[] = {'O','b','j','e','c','t',0}; /* FIXME: this should be localized */
161 static const WCHAR spaceW
[] = {' ',0};
162 IEnumOLEVERB
*enumverbs
= NULL
;
163 WCHAR
*rootname
, *objecttype
;
164 LPOLESTR usertype
= NULL
;
165 OLEVERB firstverb
, verb
;
168 TRACE("(%p, %s, %p, %d, %d, %d, %d, %d, %p)\n", object
, debugstr_w(shorttype
),
169 hMenu
, uPos
, idmin
, idmax
, addConvert
, idConvert
, ret_submenu
);
172 FIXME("convert menu item is not supported.\n");
177 if (!hMenu
|| !ret_submenu
)
180 /* check if we can get verbs at all */
182 IOleObject_EnumVerbs(object
, &enumverbs
);
184 /* no object, or object without enumeration support */
185 if (!object
|| (object
&& !enumverbs
)) {
186 InsertMenuW(hMenu
, uPos
, MF_BYPOSITION
|MF_STRING
|MF_GRAYED
, idmin
, objectW
);
190 /* root entry string */
191 if (!shorttype
&& (IOleObject_GetUserType(object
, USERCLASSTYPE_SHORT
, &usertype
) == S_OK
))
192 objecttype
= usertype
;
194 objecttype
= (WCHAR
*)shorttype
;
196 rootname
= CoTaskMemAlloc((strlenW(objecttype
) + strlenW(objectW
) + 2)*sizeof(WCHAR
));
197 strcpyW(rootname
, objecttype
);
198 strcatW(rootname
, spaceW
);
199 strcatW(rootname
, objectW
);
200 CoTaskMemFree(usertype
);
202 /* iterate through verbs */
204 /* find first suitable verb */
205 get_next_insertable_verb(enumverbs
, idmin
, idmax
, &firstverb
);
207 if (get_next_insertable_verb(enumverbs
, idmin
, idmax
, &verb
) != S_OK
) {
208 WCHAR
*str
= CoTaskMemAlloc((strlenW(rootname
) + strlenW(firstverb
.lpszVerbName
) + 2)*sizeof(WCHAR
));
210 strcpyW(str
, firstverb
.lpszVerbName
);
211 strcatW(str
, spaceW
);
212 strcatW(str
, rootname
);
214 RemoveMenu(hMenu
, uPos
, MF_BYPOSITION
);
215 InsertMenuW(hMenu
, uPos
, MF_BYPOSITION
|MF_STRING
, idmin
, str
);
216 CoTaskMemFree(firstverb
.lpszVerbName
);
217 CoTaskMemFree(rootname
);
219 IEnumOLEVERB_Release(enumverbs
);
223 submenu
= CreatePopupMenu();
224 insert_verb_to_menu(submenu
, idmin
, &firstverb
);
225 insert_verb_to_menu(submenu
, idmin
, &verb
);
226 CoTaskMemFree(firstverb
.lpszVerbName
);
227 CoTaskMemFree(verb
.lpszVerbName
);
229 while (get_next_insertable_verb(enumverbs
, idmin
, idmax
, &verb
) == S_OK
) {
230 insert_verb_to_menu(submenu
, idmin
, &verb
);
231 CoTaskMemFree(verb
.lpszVerbName
);
235 *ret_submenu
= submenu
;
237 /* now submenu is ready, add root entry to original menu, attach submenu */
238 InsertMenuW(hMenu
, uPos
, MF_BYPOSITION
|MF_POPUP
|MF_STRING
, (UINT_PTR
)submenu
, rootname
);
239 IEnumOLEVERB_Release(enumverbs
);
240 CoTaskMemFree(rootname
);
244 /***********************************************************************
245 * OleUICanConvertOrActivateAs (OLEDLG.2)
247 BOOL WINAPI
OleUICanConvertOrActivateAs(
248 REFCLSID rClsid
, BOOL fIsLinkedObject
, WORD wFormat
)
250 FIXME("(%p, %d, %hd): stub\n",
251 rClsid
, fIsLinkedObject
, wFormat
253 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
257 /***********************************************************************
258 * OleUIInsertObjectW (OLEDLG.20)
260 UINT WINAPI
OleUIInsertObjectW(LPOLEUIINSERTOBJECTW lpOleUIInsertObject
)
262 FIXME("(%p): stub\n", lpOleUIInsertObject
);
263 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
267 /***********************************************************************
268 * OleUIEditLinksA (OLEDLG.5)
270 UINT WINAPI
OleUIEditLinksA(LPOLEUIEDITLINKSA lpOleUIEditLinks
)
272 FIXME("(%p): stub\n", lpOleUIEditLinks
);
273 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
277 /***********************************************************************
278 * OleUIEditLinksW (OLEDLG.19)
280 UINT WINAPI
OleUIEditLinksW(LPOLEUIEDITLINKSW lpOleUIEditLinks
)
282 FIXME("(%p): stub\n", lpOleUIEditLinks
);
283 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
287 /***********************************************************************
288 * OleUIChangeIconA (OLEDLG.6)
290 UINT WINAPI
OleUIChangeIconA(
291 LPOLEUICHANGEICONA lpOleUIChangeIcon
)
293 FIXME("(%p): stub\n", lpOleUIChangeIcon
);
294 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
298 /***********************************************************************
299 * OleUIChangeIconW (OLEDLG.16)
301 UINT WINAPI
OleUIChangeIconW(
302 LPOLEUICHANGEICONW lpOleUIChangeIcon
)
304 FIXME("(%p): stub\n", lpOleUIChangeIcon
);
305 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
309 /***********************************************************************
310 * OleUIConvertA (OLEDLG.7)
312 UINT WINAPI
OleUIConvertA(LPOLEUICONVERTA lpOleUIConvert
)
314 FIXME("(%p): stub\n", lpOleUIConvert
);
315 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
319 /***********************************************************************
320 * OleUIConvertW (OLEDLG.18)
322 UINT WINAPI
OleUIConvertW(LPOLEUICONVERTW lpOleUIConvert
)
324 FIXME("(%p): stub\n", lpOleUIConvert
);
325 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
329 /***********************************************************************
330 * OleUIBusyA (OLEDLG.8)
332 UINT WINAPI
OleUIBusyA(LPOLEUIBUSYA lpOleUIBusy
)
334 FIXME("(%p): stub\n", lpOleUIBusy
);
335 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
339 /***********************************************************************
340 * OleUIBusyW (OLEDLG.15)
342 UINT WINAPI
OleUIBusyW(LPOLEUIBUSYW lpOleUIBusy
)
344 FIXME("(%p): stub\n", lpOleUIBusy
);
345 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
349 /***********************************************************************
350 * OleUIUpdateLinksA (OLEDLG.9)
352 BOOL WINAPI
OleUIUpdateLinksA(
353 LPOLEUILINKCONTAINERA lpOleUILinkCntr
,
354 HWND hwndParent
, LPSTR lpszTitle
, INT cLinks
)
356 FIXME("(%p, %p, %s, %d): stub\n",
357 lpOleUILinkCntr
, hwndParent
, debugstr_a(lpszTitle
), cLinks
359 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
363 /***********************************************************************
364 * OleUIUpdateLinksW (OLEDLG.23)
366 BOOL WINAPI
OleUIUpdateLinksW(
367 LPOLEUILINKCONTAINERW lpOleUILinkCntr
,
368 HWND hwndParent
, LPWSTR lpszTitle
, INT cLinks
)
370 FIXME("(%p, %p, %s, %d): stub\n",
371 lpOleUILinkCntr
, hwndParent
, debugstr_w(lpszTitle
), cLinks
373 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
377 /***********************************************************************
378 * OleUIPromptUserA (OLEDLG.10)
380 INT WINAPIV
OleUIPromptUserA(
381 INT nTemplate
, HWND hwndParent
, ...)
383 FIXME("(%d, %p, ...): stub\n", nTemplate
, hwndParent
);
384 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
388 /***********************************************************************
389 * OleUIPromptUserW (OLEDLG.13)
391 INT WINAPIV
OleUIPromptUserW(
392 INT nTemplate
, HWND hwndParent
, ...)
394 FIXME("(%d, %p, ...): stub\n", nTemplate
, hwndParent
);
395 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
399 /***********************************************************************
400 * OleUIObjectPropertiesA (OLEDLG.11)
402 UINT WINAPI
OleUIObjectPropertiesA(
403 LPOLEUIOBJECTPROPSA lpOleUIObjectProps
)
405 FIXME("(%p): stub\n", lpOleUIObjectProps
);
406 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
410 /***********************************************************************
411 * OleUIObjectPropertiesW (OLEDLG.21)
413 UINT WINAPI
OleUIObjectPropertiesW(
414 LPOLEUIOBJECTPROPSW lpOleUIObjectProps
)
416 FIXME("(%p): stub\n", lpOleUIObjectProps
);
417 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
421 /***********************************************************************
422 * OleUIChangeSourceA (OLEDLG.12)
424 UINT WINAPI
OleUIChangeSourceA(
425 LPOLEUICHANGESOURCEA lpOleUIChangeSource
)
427 FIXME("(%p): stub\n", lpOleUIChangeSource
);
428 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
432 /***********************************************************************
433 * OleUIChangeSourceW (OLEDLG.17)
435 UINT WINAPI
OleUIChangeSourceW(
436 LPOLEUICHANGESOURCEW lpOleUIChangeSource
)
438 FIXME("(%p): stub\n", lpOleUIChangeSource
);
439 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);