[OLEDLG] Sync with Wine Staging 4.0. CORE-15682
[reactos.git] / dll / win32 / oledlg / oledlg_main.c
1 /*
2 * OLEDLG library
3 *
4 * Copyright 1998 Patrik Stridvall
5 *
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.
10 *
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.
15 *
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
19 */
20
21 #define COBJMACROS
22
23 #include <stdarg.h>
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "winerror.h"
28 #include "wingdi.h"
29 #include "winuser.h"
30 #include "oledlg.h"
31 #include "ole2.h"
32 #include "oledlg_private.h"
33 #include "resource.h"
34
35 #include "wine/debug.h"
36 #include "wine/unicode.h"
37
38 WINE_DEFAULT_DEBUG_CHANNEL(ole);
39
40 HINSTANCE OLEDLG_hInstance = 0;
41
42 UINT cf_embed_source;
43 UINT cf_embedded_object;
44 UINT cf_link_source;
45 UINT cf_object_descriptor;
46 UINT cf_link_src_descriptor;
47 UINT cf_ownerlink;
48 UINT cf_filename;
49 UINT cf_filenamew;
50
51 UINT oleui_msg_help;
52 UINT oleui_msg_enddialog;
53
54 static void register_clipboard_formats(void)
55 {
56 /* These used to be declared in olestd.h, but that seems to have been removed from the api */
57 static const WCHAR CF_EMBEDSOURCEW[] = { 'E','m','b','e','d',' ','S','o','u','r','c','e',0 };
58 static const WCHAR CF_EMBEDDEDOBJECTW[] = { 'E','m','b','e','d','d','e','d',' ','O','b','j','e','c','t',0 };
59 static const WCHAR CF_LINKSOURCEW[] = { 'L','i','n','k',' ','S','o','u','r','c','e',0 };
60 static const WCHAR CF_OBJECTDESCRIPTORW[] = { 'O','b','j','e','c','t',' ','D','e','s','c','r','i','p','t','o','r',0 };
61 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 };
62 static const WCHAR CF_OWNERLINKW[] = { 'O','w','n','e','r','L','i','n','k',0 };
63 static const WCHAR CF_FILENAMEW[] = { 'F','i','l','e','N','a','m','e',0 };
64 static const WCHAR CF_FILENAMEWW[] = { 'F','i','l','e','N','a','m','e','W',0 };
65
66 /* Load in the same order as native to make debugging easier */
67 cf_object_descriptor = RegisterClipboardFormatW(CF_OBJECTDESCRIPTORW);
68 cf_link_src_descriptor = RegisterClipboardFormatW(CF_LINKSRCDESCRIPTORW);
69 cf_embed_source = RegisterClipboardFormatW(CF_EMBEDSOURCEW);
70 cf_embedded_object = RegisterClipboardFormatW(CF_EMBEDDEDOBJECTW);
71 cf_link_source = RegisterClipboardFormatW(CF_LINKSOURCEW);
72 cf_ownerlink = RegisterClipboardFormatW(CF_OWNERLINKW);
73 cf_filename = RegisterClipboardFormatW(CF_FILENAMEW);
74 cf_filenamew = RegisterClipboardFormatW(CF_FILENAMEWW);
75 }
76
77 static void register_messages(void)
78 {
79 oleui_msg_help = RegisterWindowMessageW(SZOLEUI_MSG_HELPW);
80 oleui_msg_enddialog = RegisterWindowMessageW(SZOLEUI_MSG_ENDDIALOGW);
81 }
82
83 /***********************************************************************
84 * DllMain
85 */
86 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID fImpLoad)
87 {
88 TRACE("%p 0x%x %p\n", hinstDLL, fdwReason, fImpLoad);
89
90 switch(fdwReason) {
91 case DLL_PROCESS_ATTACH:
92 DisableThreadLibraryCalls(hinstDLL);
93 OLEDLG_hInstance = hinstDLL;
94 register_clipboard_formats();
95 register_messages();
96 break;
97 }
98 return TRUE;
99 }
100
101
102 /***********************************************************************
103 * OleUIAddVerbMenuA (OLEDLG.1)
104 */
105 BOOL WINAPI OleUIAddVerbMenuA(IOleObject *object, LPCSTR shorttype,
106 HMENU hMenu, UINT uPos, UINT uIDVerbMin, UINT uIDVerbMax,
107 BOOL addConvert, UINT idConvert, HMENU *lphMenu)
108 {
109 WCHAR *shorttypeW = NULL;
110 BOOL ret;
111
112 TRACE("(%p, %s, %p, %d, %d, %d, %d, %d, %p)\n", object, debugstr_a(shorttype),
113 hMenu, uPos, uIDVerbMin, uIDVerbMax, addConvert, idConvert, lphMenu);
114
115 if (shorttype)
116 {
117 INT len = MultiByteToWideChar(CP_ACP, 0, shorttype, -1, NULL, 0);
118 shorttypeW = HeapAlloc(GetProcessHeap(), 0, len*sizeof(WCHAR));
119 if (shorttypeW)
120 MultiByteToWideChar(CP_ACP, 0, shorttype, -1, shorttypeW, len);
121 }
122
123 ret = OleUIAddVerbMenuW(object, shorttypeW, hMenu, uPos, uIDVerbMin, uIDVerbMax,
124 addConvert, idConvert, lphMenu);
125 HeapFree(GetProcessHeap(), 0, shorttypeW);
126 return ret;
127 }
128
129 static inline BOOL is_verb_in_range(const OLEVERB *verb, UINT idmin, UINT idmax)
130 {
131 if (idmax == 0) return TRUE;
132 return (verb->lVerb + idmin <= idmax);
133 }
134
135 static HRESULT get_next_insertable_verb(IEnumOLEVERB *enumverbs, UINT idmin, UINT idmax, OLEVERB *verb)
136 {
137 memset(verb, 0, sizeof(*verb));
138
139 while (IEnumOLEVERB_Next(enumverbs, 1, verb, NULL) == S_OK) {
140 if (is_verb_in_range(verb, idmin, idmax) && (verb->grfAttribs & OLEVERBATTRIB_ONCONTAINERMENU))
141 return S_OK;
142
143 CoTaskMemFree(verb->lpszVerbName);
144 memset(verb, 0, sizeof(*verb));
145 }
146
147 return S_FALSE;
148 }
149
150 static void insert_verb_to_menu(HMENU menu, UINT idmin, const OLEVERB *verb)
151 {
152 InsertMenuW(menu, ~0, verb->fuFlags | MF_BYPOSITION | MF_STRING, verb->lVerb + idmin, verb->lpszVerbName);
153 }
154
155 /***********************************************************************
156 * OleUIAddVerbMenuW (OLEDLG.14)
157 */
158 BOOL WINAPI OleUIAddVerbMenuW(IOleObject *object, LPCWSTR shorttype,
159 HMENU hMenu, UINT uPos, UINT idmin, UINT idmax, BOOL addConvert, UINT idConvert, HMENU *ret_submenu)
160 {
161 IEnumOLEVERB *enumverbs = NULL;
162 LPOLESTR usertype = NULL;
163 OLEVERB firstverb, verb;
164 WCHAR *objecttype;
165 WCHAR resstrW[32]; /* should be enough */
166 DWORD_PTR args[2];
167 BOOL singleverb;
168 HMENU submenu;
169 WCHAR *str;
170
171 TRACE("(%p, %s, %p, %d, %d, %d, %d, %d, %p)\n", object, debugstr_w(shorttype),
172 hMenu, uPos, idmin, idmax, addConvert, idConvert, ret_submenu);
173
174 if (ret_submenu)
175 *ret_submenu = NULL;
176
177 if (!hMenu || !ret_submenu)
178 return FALSE;
179
180 /* check if we can get verbs at all */
181 if (object)
182 IOleObject_EnumVerbs(object, &enumverbs);
183
184 LoadStringW(OLEDLG_hInstance, IDS_VERBMENU_OBJECT, resstrW, ARRAY_SIZE(resstrW));
185 /* no object, or object without enumeration support */
186 if (!object || !enumverbs) {
187 RemoveMenu(hMenu, uPos, MF_BYPOSITION);
188 InsertMenuW(hMenu, uPos, MF_BYPOSITION|MF_STRING|MF_GRAYED, idmin, resstrW);
189 return FALSE;
190 }
191
192 /* root entry string */
193 if (!shorttype && (IOleObject_GetUserType(object, USERCLASSTYPE_SHORT, &usertype) == S_OK))
194 objecttype = usertype;
195 else
196 objecttype = (WCHAR*)shorttype;
197
198 /* iterate through verbs */
199
200 /* find first suitable verb */
201 get_next_insertable_verb(enumverbs, idmin, idmax, &firstverb);
202 singleverb = get_next_insertable_verb(enumverbs, idmin, idmax, &verb) != S_OK;
203
204 if (singleverb && !addConvert) {
205 LoadStringW(OLEDLG_hInstance, IDS_VERBMENU_SINGLEVERB_OBJECT, resstrW, ARRAY_SIZE(resstrW));
206
207 args[0] = (DWORD_PTR)firstverb.lpszVerbName;
208 args[1] = (DWORD_PTR)objecttype;
209
210 FormatMessageW(FORMAT_MESSAGE_FROM_STRING|FORMAT_MESSAGE_ALLOCATE_BUFFER|FORMAT_MESSAGE_ARGUMENT_ARRAY,
211 resstrW, 0, 0, (WCHAR*)&str, 0, (__ms_va_list*)args);
212
213 RemoveMenu(hMenu, uPos, MF_BYPOSITION);
214 InsertMenuW(hMenu, uPos, MF_BYPOSITION|MF_STRING, idmin, str);
215 CoTaskMemFree(firstverb.lpszVerbName);
216 HeapFree(GetProcessHeap(), 0, str);
217 IEnumOLEVERB_Release(enumverbs);
218 CoTaskMemFree(usertype);
219 return TRUE;
220 }
221
222 submenu = CreatePopupMenu();
223 insert_verb_to_menu(submenu, idmin, &firstverb);
224 CoTaskMemFree(firstverb.lpszVerbName);
225
226 if (!singleverb) {
227 insert_verb_to_menu(submenu, idmin, &verb);
228 CoTaskMemFree(verb.lpszVerbName);
229 }
230
231 while (get_next_insertable_verb(enumverbs, idmin, idmax, &verb) == S_OK) {
232 insert_verb_to_menu(submenu, idmin, &verb);
233 CoTaskMemFree(verb.lpszVerbName);
234 }
235
236 /* convert verb is at the bottom of a popup, separated from verbs */
237 if (addConvert) {
238 LoadStringW(OLEDLG_hInstance, IDS_VERBMENU_CONVERT, resstrW, ARRAY_SIZE(resstrW));
239 InsertMenuW(submenu, ~0, MF_BYPOSITION|MF_SEPARATOR, 0, NULL);
240 InsertMenuW(submenu, ~0, MF_BYPOSITION|MF_STRING, idConvert, resstrW);
241 }
242
243 if (submenu)
244 *ret_submenu = submenu;
245
246 /* now submenu is ready, add root entry to original menu, attach submenu */
247 LoadStringW(OLEDLG_hInstance, IDS_VERBMENU_OBJECT_WITH_NAME, resstrW, ARRAY_SIZE(resstrW));
248
249 args[0] = (DWORD_PTR)objecttype;
250 FormatMessageW(FORMAT_MESSAGE_FROM_STRING|FORMAT_MESSAGE_ALLOCATE_BUFFER|FORMAT_MESSAGE_ARGUMENT_ARRAY,
251 resstrW, 0, 0, (WCHAR*)&str, 0, (__ms_va_list*)args);
252
253 InsertMenuW(hMenu, uPos, MF_BYPOSITION|MF_POPUP|MF_STRING, (UINT_PTR)submenu, str);
254 HeapFree(GetProcessHeap(), 0, str);
255 IEnumOLEVERB_Release(enumverbs);
256 CoTaskMemFree(usertype);
257 return TRUE;
258 }
259
260 /***********************************************************************
261 * OleUICanConvertOrActivateAs (OLEDLG.2)
262 */
263 BOOL WINAPI OleUICanConvertOrActivateAs(
264 REFCLSID rClsid, BOOL fIsLinkedObject, WORD wFormat)
265 {
266 FIXME("(%p, %d, %hd): stub\n",
267 rClsid, fIsLinkedObject, wFormat
268 );
269 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
270 return FALSE;
271 }
272
273 /***********************************************************************
274 * OleUIInsertObjectW (OLEDLG.20)
275 */
276 UINT WINAPI OleUIInsertObjectW(LPOLEUIINSERTOBJECTW lpOleUIInsertObject)
277 {
278 FIXME("(%p): stub\n", lpOleUIInsertObject);
279 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
280 return OLEUI_FALSE;
281 }
282
283 /***********************************************************************
284 * OleUIEditLinksA (OLEDLG.5)
285 */
286 UINT WINAPI OleUIEditLinksA(LPOLEUIEDITLINKSA lpOleUIEditLinks)
287 {
288 FIXME("(%p): stub\n", lpOleUIEditLinks);
289 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
290 return OLEUI_FALSE;
291 }
292
293 /***********************************************************************
294 * OleUIEditLinksW (OLEDLG.19)
295 */
296 UINT WINAPI OleUIEditLinksW(LPOLEUIEDITLINKSW lpOleUIEditLinks)
297 {
298 FIXME("(%p): stub\n", lpOleUIEditLinks);
299 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
300 return OLEUI_FALSE;
301 }
302
303 /***********************************************************************
304 * OleUIChangeIconA (OLEDLG.6)
305 */
306 UINT WINAPI OleUIChangeIconA(
307 LPOLEUICHANGEICONA lpOleUIChangeIcon)
308 {
309 FIXME("(%p): stub\n", lpOleUIChangeIcon);
310 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
311 return OLEUI_FALSE;
312 }
313
314 /***********************************************************************
315 * OleUIChangeIconW (OLEDLG.16)
316 */
317 UINT WINAPI OleUIChangeIconW(
318 LPOLEUICHANGEICONW lpOleUIChangeIcon)
319 {
320 FIXME("(%p): stub\n", lpOleUIChangeIcon);
321 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
322 return OLEUI_FALSE;
323 }
324
325 /***********************************************************************
326 * OleUIConvertA (OLEDLG.7)
327 */
328 UINT WINAPI OleUIConvertA(LPOLEUICONVERTA lpOleUIConvert)
329 {
330 FIXME("(%p): stub\n", lpOleUIConvert);
331 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
332 return OLEUI_FALSE;
333 }
334
335 /***********************************************************************
336 * OleUIConvertW (OLEDLG.18)
337 */
338 UINT WINAPI OleUIConvertW(LPOLEUICONVERTW lpOleUIConvert)
339 {
340 FIXME("(%p): stub\n", lpOleUIConvert);
341 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
342 return OLEUI_FALSE;
343 }
344
345 /***********************************************************************
346 * OleUIBusyA (OLEDLG.8)
347 */
348 UINT WINAPI OleUIBusyA(LPOLEUIBUSYA lpOleUIBusy)
349 {
350 FIXME("(%p): stub\n", lpOleUIBusy);
351 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
352 return OLEUI_FALSE;
353 }
354
355 /***********************************************************************
356 * OleUIBusyW (OLEDLG.15)
357 */
358 UINT WINAPI OleUIBusyW(LPOLEUIBUSYW lpOleUIBusy)
359 {
360 FIXME("(%p): stub\n", lpOleUIBusy);
361 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
362 return OLEUI_FALSE;
363 }
364
365 /***********************************************************************
366 * OleUIUpdateLinksA (OLEDLG.9)
367 */
368 BOOL WINAPI OleUIUpdateLinksA(
369 LPOLEUILINKCONTAINERA lpOleUILinkCntr,
370 HWND hwndParent, LPSTR lpszTitle, INT cLinks)
371 {
372 FIXME("(%p, %p, %s, %d): stub\n",
373 lpOleUILinkCntr, hwndParent, debugstr_a(lpszTitle), cLinks
374 );
375 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
376 return FALSE;
377 }
378
379 /***********************************************************************
380 * OleUIUpdateLinksW (OLEDLG.23)
381 */
382 BOOL WINAPI OleUIUpdateLinksW(
383 LPOLEUILINKCONTAINERW lpOleUILinkCntr,
384 HWND hwndParent, LPWSTR lpszTitle, INT cLinks)
385 {
386 FIXME("(%p, %p, %s, %d): stub\n",
387 lpOleUILinkCntr, hwndParent, debugstr_w(lpszTitle), cLinks
388 );
389 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
390 return FALSE;
391 }
392
393 /***********************************************************************
394 * OleUIPromptUserA (OLEDLG.10)
395 */
396 INT WINAPIV OleUIPromptUserA(
397 INT nTemplate, HWND hwndParent, ...)
398 {
399 FIXME("(%d, %p, ...): stub\n", nTemplate, hwndParent);
400 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
401 return OLEUI_FALSE;
402 }
403
404 /***********************************************************************
405 * OleUIPromptUserW (OLEDLG.13)
406 */
407 INT WINAPIV OleUIPromptUserW(
408 INT nTemplate, HWND hwndParent, ...)
409 {
410 FIXME("(%d, %p, ...): stub\n", nTemplate, hwndParent);
411 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
412 return OLEUI_FALSE;
413 }
414
415 /***********************************************************************
416 * OleUIObjectPropertiesA (OLEDLG.11)
417 */
418 UINT WINAPI OleUIObjectPropertiesA(
419 LPOLEUIOBJECTPROPSA lpOleUIObjectProps)
420 {
421 FIXME("(%p): stub\n", lpOleUIObjectProps);
422 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
423 return OLEUI_FALSE;
424 }
425
426 /***********************************************************************
427 * OleUIObjectPropertiesW (OLEDLG.21)
428 */
429 UINT WINAPI OleUIObjectPropertiesW(
430 LPOLEUIOBJECTPROPSW lpOleUIObjectProps)
431 {
432 FIXME("(%p): stub\n", lpOleUIObjectProps);
433 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
434 return OLEUI_FALSE;
435 }
436
437 /***********************************************************************
438 * OleUIChangeSourceA (OLEDLG.12)
439 */
440 UINT WINAPI OleUIChangeSourceA(
441 LPOLEUICHANGESOURCEA lpOleUIChangeSource)
442 {
443 FIXME("(%p): stub\n", lpOleUIChangeSource);
444 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
445 return OLEUI_FALSE;
446 }
447
448 /***********************************************************************
449 * OleUIChangeSourceW (OLEDLG.17)
450 */
451 UINT WINAPI OleUIChangeSourceW(
452 LPOLEUICHANGESOURCEW lpOleUIChangeSource)
453 {
454 FIXME("(%p): stub\n", lpOleUIChangeSource);
455 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
456 return OLEUI_FALSE;
457 }