git.oblomov.eu Git - wine/blob - dlls/oledlg/insobjdlg.c

   1 /*
   2  *      OLEDLG library
   3  *
   4  *      Copyright 2003  Ulrich Czekalla for CodeWeavers
   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 #include <stdarg.h>
  22 #include <stdio.h>
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winreg.h"
  27 #include "winternl.h"
  28 #include "winerror.h"
  29 #include "wingdi.h"
  30 #include "winuser.h"
  31 #include "wine/debug.h"
  32 #include "wine/unicode.h"
  33
  34 #include "oledlg.h"
  35 #include "resource.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(oledlg);
  38
  39 typedef struct
  40 {
  41     HWND hwndSelf;
  42     BOOL bObjListInit; /* Object list has been initialized */
  43     LPOLEUIINSERTOBJECTA lpOleUIInsertObject;
  44
  45     HWND hwndObjTypeLBL;
  46     HWND hwndObjTypeLB;
  47     HWND hwndFileLBL;
  48     HWND hwndFileTB;
  49     HWND hwndCreateCtrlCB;
  50     HWND hwndCreateNewCB;
  51     HWND hwndCreateFromFileCB;
  52     HWND hwndDisplayIconCB;
  53     HWND hwndAddCtrlBTN;
  54     HWND hwndBrowseBTN;
  55     HWND hwndResultDesc;
  56
  57 } InsertObjectDlgInfo;
  58
  59 static INT_PTR CALLBACK UIInsertObjectDlgProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
  60 static LRESULT UIINSOBJDLG_OnWMCommand(HWND hwnd, WPARAM wParam, LPARAM lParam);
  61 static void UIINSERTOBJECTDLG_InitDialog(InsertObjectDlgInfo* pdlgInfo);
  62 static void UIINSERTOBJECTDLG_SelectCreateCtrl(InsertObjectDlgInfo* pdlgInfo);
  63 static void UIINSERTOBJECTDLG_SelectCreateFromFile(InsertObjectDlgInfo* pdlgInfo);
  64 static void UIINSERTOBJECTDLG_SelectCreateNew(InsertObjectDlgInfo* pdlgInfo);
  65 static BOOL UIINSERTOBJECTDLG_PopulateObjectTypes(InsertObjectDlgInfo* pdlgInfo);
  66 static void UIINSERTOBJECTDLG_FreeObjectTypes(InsertObjectDlgInfo* pdlgInfo);
  67 static void UIINSERTOBJECTDLG_SelChange(InsertObjectDlgInfo* pdlgInfo);
  68 static BOOL UIINSERTOBJECTDLG_OnOpen(InsertObjectDlgInfo* pdlgInfo);
  69 static void UIINSERTOBJECTDLG_BrowseFile(InsertObjectDlgInfo* pdlgInfo);
  70 static void UIINSERTOBJECTDLG_AddControl(InsertObjectDlgInfo* pdlgInfo);
  71
  72 typedef HRESULT (*DLLREGISTER)          (void);
  73
  74 extern HINSTANCE OLEDLG_hInstance;
  75 static const char OleUIInsertObjectInfoStr[] = "OleUIInsertObjectInfoStr";
  76
  77 /***********************************************************************
  78  *           OleUIInsertObjectA (OLEDLG.3)
  79  */
  80 UINT WINAPI OleUIInsertObjectA(LPOLEUIINSERTOBJECTA lpOleUIInsertObject)
  81 {
  82   LRESULT lRes;
  83   LPCVOID template;
  84   HRSRC hRes;
  85   InsertObjectDlgInfo dlgInfo;
  86   HANDLE hDlgTmpl = 0;
  87
  88   if (lpOleUIInsertObject->lpszTemplate || lpOleUIInsertObject->hResource)
  89      FIXME("Customized template not supported\n");
  90
  91   /* Create the dialog from a template */
  92   if(!(hRes = FindResourceA(OLEDLG_hInstance,MAKEINTRESOURCEA(UIINSERTOBJECT),
  93       (LPSTR)RT_DIALOG)))
  94   {
  95       return OLEUI_ERR_FINDTEMPLATEFAILURE;
  96   }
  97
  98   if (!(hDlgTmpl = LoadResource(OLEDLG_hInstance, hRes )) ||
  99       !(template = LockResource( hDlgTmpl )))
 100   {
 101       return OLEUI_ERR_LOADTEMPLATEFAILURE;
 102   }
 103
 104   /* Initialize InsertObjectDlgInfo structure */
 105   dlgInfo.lpOleUIInsertObject = lpOleUIInsertObject;
 106   dlgInfo.bObjListInit = FALSE;
 107
 108   lRes = DialogBoxIndirectParamA(OLEDLG_hInstance, (const DLGTEMPLATE*) template,
 109       lpOleUIInsertObject->hWndOwner, UIInsertObjectDlgProc,
 110       (LPARAM) &dlgInfo);
 111
 112     /* Unable to create the dialog */
 113     if( lRes == -1)
 114         return OLEUI_ERR_DIALOGFAILURE;
 115
 116     return lRes;
 117 }
 118
 119
 120 /***********************************************************************
 121  *          UIInsertObjectDlgProc
 122  *
 123  * OLE UI Insert Object dialog procedure
 124  */
 125 INT_PTR CALLBACK UIInsertObjectDlgProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
 126 {
 127   InsertObjectDlgInfo* pdlgInfo = GetPropA(hwnd,OleUIInsertObjectInfoStr);
 128
 129   switch(uMsg)
 130   {
 131     case WM_INITDIALOG:
 132     {
 133         InsertObjectDlgInfo* pdlgInfo = (InsertObjectDlgInfo*)lParam;
 134
 135         pdlgInfo->hwndSelf = hwnd;
 136
 137         SetPropA(hwnd, OleUIInsertObjectInfoStr, pdlgInfo);
 138
 139         UIINSERTOBJECTDLG_InitDialog(pdlgInfo);
 140
 141         return 0;
 142     }
 143
 144     case WM_COMMAND:
 145       return UIINSOBJDLG_OnWMCommand(hwnd, wParam, lParam);
 146
 147     case WM_DESTROY:
 148       if (pdlgInfo)
 149           UIINSERTOBJECTDLG_FreeObjectTypes(pdlgInfo);
 150       RemovePropA(hwnd, OleUIInsertObjectInfoStr);
 151       return FALSE;
 152
 153     default :
 154       return FALSE;
 155   }
 156 }
 157
 158
 159 /***********************************************************************
 160  *      UIINSOBJDLG_OnWMCommand
 161  *
 162  * WM_COMMAND message handler
 163  */
 164 static LRESULT UIINSOBJDLG_OnWMCommand(HWND hwnd, WPARAM wParam, LPARAM lParam)
 165 {
 166   WORD wNotifyCode = HIWORD(wParam);
 167   WORD wID = LOWORD(wParam);
 168   InsertObjectDlgInfo* pdlgInfo = GetPropA(hwnd,OleUIInsertObjectInfoStr);
 169
 170   switch(wID)
 171   {
 172     case IDOK:
 173       EndDialog(hwnd, UIINSERTOBJECTDLG_OnOpen(pdlgInfo));
 174       break;
 175
 176     case IDCANCEL:
 177       EndDialog(hwnd, FALSE);
 178       break;
 179
 180     case IDC_CREATECONTROL:
 181       UIINSERTOBJECTDLG_SelectCreateCtrl(pdlgInfo);
 182       break;
 183
 184     case IDC_CREATENEW:
 185       UIINSERTOBJECTDLG_SelectCreateNew(pdlgInfo);
 186       break;
 187
 188     case IDC_CREATEFROMFILE:
 189       UIINSERTOBJECTDLG_SelectCreateFromFile(pdlgInfo);
 190       break;
 191
 192     case IDC_BROWSE:
 193       UIINSERTOBJECTDLG_BrowseFile(pdlgInfo);
 194       break;
 195
 196     case IDC_ADDCONTROL:
 197       UIINSERTOBJECTDLG_AddControl(pdlgInfo);
 198       break;
 199
 200     case IDC_OBJTYPELIST:
 201       if (wNotifyCode == LBN_SELCHANGE)
 202         UIINSERTOBJECTDLG_SelChange(pdlgInfo);
 203       break;
 204   }
 205   return 0;
 206 }
 207
 208
 209 /***********************************************************************
 210  *      UIINSERTOBJECTDLG_InitDialog
 211  *
 212  * Initialize dialog display
 213  */
 214 static void UIINSERTOBJECTDLG_InitDialog(InsertObjectDlgInfo* pdlgInfo)
 215 {
 216   /* Initialize InsertObjectDlgInfo data structure */
 217   pdlgInfo->hwndObjTypeLB = GetDlgItem(pdlgInfo->hwndSelf, IDC_OBJTYPELIST);
 218   pdlgInfo->hwndObjTypeLBL = GetDlgItem(pdlgInfo->hwndSelf, IDC_OBJTYPELBL);
 219   pdlgInfo->hwndFileLBL = GetDlgItem(pdlgInfo->hwndSelf, IDC_FILELBL);
 220   pdlgInfo->hwndFileTB = GetDlgItem(pdlgInfo->hwndSelf, IDC_FILE);
 221   pdlgInfo->hwndCreateCtrlCB = GetDlgItem(pdlgInfo->hwndSelf, IDC_CREATECONTROL);
 222   pdlgInfo->hwndCreateNewCB = GetDlgItem(pdlgInfo->hwndSelf, IDC_CREATENEW);
 223   pdlgInfo->hwndCreateFromFileCB = GetDlgItem(pdlgInfo->hwndSelf, IDC_CREATEFROMFILE);
 224   pdlgInfo->hwndDisplayIconCB = GetDlgItem(pdlgInfo->hwndSelf, IDC_ASICON);
 225   pdlgInfo->hwndAddCtrlBTN = GetDlgItem(pdlgInfo->hwndSelf, IDC_ADDCONTROL);
 226   pdlgInfo->hwndBrowseBTN = GetDlgItem(pdlgInfo->hwndSelf, IDC_BROWSE);
 227   pdlgInfo->hwndResultDesc = GetDlgItem(pdlgInfo->hwndSelf, IDC_RESULTDESC);
 228
 229   /* Setup dialog controls based on flags */
 230   if (pdlgInfo->lpOleUIInsertObject->lpszCaption)
 231      SetWindowTextA(pdlgInfo->hwndSelf, pdlgInfo->lpOleUIInsertObject->lpszCaption);
 232
 233   ShowWindow(pdlgInfo->hwndCreateCtrlCB, (pdlgInfo->lpOleUIInsertObject->dwFlags &
 234     IOF_SHOWINSERTCONTROL) ? SW_SHOW : SW_HIDE);
 235   ShowWindow(pdlgInfo->hwndDisplayIconCB, (pdlgInfo->lpOleUIInsertObject->dwFlags &
 236     IOF_CHECKDISPLAYASICON) ? SW_SHOW : SW_HIDE);
 237   EnableWindow(pdlgInfo->hwndDisplayIconCB, !(pdlgInfo->lpOleUIInsertObject->dwFlags &
 238     IOF_DISABLEDISPLAYASICON));
 239
 240   if (pdlgInfo->lpOleUIInsertObject->dwFlags & IOF_SELECTCREATECONTROL)
 241     UIINSERTOBJECTDLG_SelectCreateCtrl(pdlgInfo);
 242   else if (pdlgInfo->lpOleUIInsertObject->dwFlags & IOF_SELECTCREATEFROMFILE)
 243     UIINSERTOBJECTDLG_SelectCreateFromFile(pdlgInfo);
 244   else /* (pdlgInfo->lpOleUIInsertObject->dwFlags & IOF_SELECTCREATENEW) */
 245     UIINSERTOBJECTDLG_SelectCreateNew(pdlgInfo);
 246 }
 247
 248
 249 /***********************************************************************
 250  *      UIINSERTOBJECTDLG_SelectCreateCtrl
 251  *
 252  * Select Create Control Radio Button
 253  */
 254 static void UIINSERTOBJECTDLG_SelectCreateCtrl(InsertObjectDlgInfo* pdlgInfo)
 255 {
 256   ShowWindow(pdlgInfo->hwndDisplayIconCB, SW_HIDE);
 257   ShowWindow(pdlgInfo->hwndFileLBL, SW_HIDE);
 258   ShowWindow(pdlgInfo->hwndFileTB, SW_HIDE);
 259   ShowWindow(pdlgInfo->hwndBrowseBTN, SW_HIDE);
 260
 261   ShowWindow(pdlgInfo->hwndObjTypeLBL, SW_SHOW);
 262   ShowWindow(pdlgInfo->hwndObjTypeLB, SW_SHOW);
 263   ShowWindow(pdlgInfo->hwndAddCtrlBTN, SW_SHOW);
 264
 265   SendMessageA(pdlgInfo->hwndCreateCtrlCB, BM_SETCHECK, BST_CHECKED, 0);
 266
 267   /* Populate object type listbox */
 268   if (!pdlgInfo->bObjListInit)
 269      UIINSERTOBJECTDLG_PopulateObjectTypes(pdlgInfo);
 270 }
 271
 272
 273 /***********************************************************************
 274  *      UIINSERTOBJECTDLG_SelectCreateNew
 275  *
 276  * Select Create New Radio Button
 277  */
 278 static void UIINSERTOBJECTDLG_SelectCreateNew(InsertObjectDlgInfo* pdlgInfo)
 279 {
 280   ShowWindow(pdlgInfo->hwndFileLBL, SW_HIDE);
 281   ShowWindow(pdlgInfo->hwndFileTB, SW_HIDE);
 282   ShowWindow(pdlgInfo->hwndAddCtrlBTN, SW_HIDE);
 283   ShowWindow(pdlgInfo->hwndBrowseBTN, SW_HIDE);
 284
 285   if (pdlgInfo->lpOleUIInsertObject->dwFlags & IOF_CHECKDISPLAYASICON)
 286     ShowWindow(pdlgInfo->hwndDisplayIconCB, SW_SHOW);
 287
 288   ShowWindow(pdlgInfo->hwndObjTypeLBL, SW_SHOW);
 289   ShowWindow(pdlgInfo->hwndObjTypeLB, SW_SHOW);
 290
 291   SendMessageA(pdlgInfo->hwndCreateNewCB, BM_SETCHECK, BST_CHECKED, 0);
 292
 293   if (!pdlgInfo->bObjListInit)
 294      UIINSERTOBJECTDLG_PopulateObjectTypes(pdlgInfo);
 295
 296   UIINSERTOBJECTDLG_SelChange(pdlgInfo);
 297 }
 298
 299
 300 /***********************************************************************
 301  *      UIINSERTOBJECTDLG_SelectCreateFromFile
 302  *
 303  * Select Create From File Radio Button
 304  */
 305 static void UIINSERTOBJECTDLG_SelectCreateFromFile(InsertObjectDlgInfo* pdlgInfo)
 306 {
 307   WCHAR resstr[MAX_PATH];
 308
 309   ShowWindow(pdlgInfo->hwndAddCtrlBTN, SW_HIDE);
 310   ShowWindow(pdlgInfo->hwndObjTypeLBL, SW_HIDE);
 311   ShowWindow(pdlgInfo->hwndObjTypeLB, SW_HIDE);
 312
 313   if (pdlgInfo->lpOleUIInsertObject->dwFlags & IOF_CHECKDISPLAYASICON)
 314     ShowWindow(pdlgInfo->hwndDisplayIconCB, SW_SHOW);
 315
 316   ShowWindow(pdlgInfo->hwndFileLBL, SW_SHOW);
 317   ShowWindow(pdlgInfo->hwndFileTB, SW_SHOW);
 318   ShowWindow(pdlgInfo->hwndBrowseBTN, SW_SHOW);
 319
 320   SendMessageW(pdlgInfo->hwndCreateFromFileCB, BM_SETCHECK, BST_CHECKED, 0);
 321
 322   if (LoadStringW(OLEDLG_hInstance, IDS_RESULTFILEOBJDESC, resstr, MAX_PATH))
 323      SendMessageW(pdlgInfo->hwndResultDesc, WM_SETTEXT, 0, (LPARAM)resstr);
 324 }
 325
 326
 327 /***********************************************************************
 328  *      UIINSERTOBJECTDLG_PopulateObjectTypes
 329  *
 330  * Populate Object Type listbox
 331  */
 332 static BOOL UIINSERTOBJECTDLG_PopulateObjectTypes(InsertObjectDlgInfo* pdlgInfo)
 333 {
 334   static const WCHAR szClsid[] = {'C','L','S','I','D',0};
 335   static const WCHAR szInsertable[] = {'I','n','s','e','r','t','a','b','l','e',0};
 336   static const WCHAR szNotInsertable[] = {'N','o','t','I','n','s','e','r','t','a','b','l','e',0};
 337   DWORD i;
 338   LONG len;
 339   HKEY hkclsids;
 340   HKEY hkey;
 341   CLSID clsid;
 342   LSTATUS ret;
 343   WCHAR keydesc[MAX_PATH];
 344   WCHAR keyname[MAX_PATH];
 345   WCHAR szclsid[128];
 346   DWORD index = 0;
 347
 348   UIINSERTOBJECTDLG_FreeObjectTypes(pdlgInfo);
 349
 350   RegOpenKeyExW(HKEY_CLASSES_ROOT, szClsid, 0, KEY_READ, &hkclsids);
 351
 352   while (ERROR_SUCCESS == (ret = RegEnumKeyW(hkclsids, index, szclsid, sizeof(szclsid)/sizeof(szclsid[0]))))
 353   {
 354     index++;
 355
 356     RegOpenKeyExW(hkclsids, szclsid, 0, KEY_READ, &hkey);
 357
 358     len = sizeof(keyname);
 359     if (ERROR_SUCCESS != RegQueryValueW(hkey, szInsertable, keyname, &len))
 360         continue;
 361
 362     len = sizeof(keyname);
 363     if (ERROR_SUCCESS == RegQueryValueW(hkey, szNotInsertable, keyname, &len))
 364         continue;
 365
 366     CLSIDFromString(szclsid, &clsid);
 367
 368     for (i = 0; i < pdlgInfo->lpOleUIInsertObject->cClsidExclude; i++)
 369       if (IsEqualGUID(&pdlgInfo->lpOleUIInsertObject->lpClsidExclude[i], &clsid))
 370         break;
 371
 372     if (i < pdlgInfo->lpOleUIInsertObject->cClsidExclude)
 373       continue;
 374
 375     len = sizeof(keydesc);
 376     if (ERROR_SUCCESS == RegQueryValueW(hkey, NULL, keydesc, &len))
 377     {
 378        CLSID* lpclsid = HeapAlloc(GetProcessHeap(), 0, sizeof(CLSID));
 379        *lpclsid = clsid;
 380
 381        len = SendMessageW(pdlgInfo->hwndObjTypeLB, LB_ADDSTRING, 0, (LPARAM)keydesc);
 382        SendMessageW(pdlgInfo->hwndObjTypeLB, LB_SETITEMDATA, len, (LPARAM)lpclsid);
 383     }
 384   }
 385
 386   pdlgInfo->bObjListInit = (ret == ERROR_NO_MORE_ITEMS);
 387
 388   return pdlgInfo->bObjListInit;
 389 }
 390
 391
 392 /***********************************************************************
 393  *      UIINSERTOBJECTDLG_FreeObjectTypes
 394  *
 395  * Free Object Types listbox
 396  */
 397 static void UIINSERTOBJECTDLG_FreeObjectTypes(InsertObjectDlgInfo* pdlgInfo)
 398 {
 399   UINT i, count;
 400
 401   count = SendMessageA(pdlgInfo->hwndObjTypeLB, LB_GETCOUNT, 0, 0);
 402
 403   for (i = 0; i < count; i++)
 404   {
 405       CLSID* lpclsid = (CLSID*) SendMessageA(pdlgInfo->hwndObjTypeLB,
 406          LB_GETITEMDATA, i, 0);
 407       HeapFree(GetProcessHeap(), 0, lpclsid);
 408   }
 409 }
 410
 411
 412 /***********************************************************************
 413  *      UIINSERTOBJECTDLG_SelChange
 414  *
 415  * Handle object type selection change
 416  */
 417 static void UIINSERTOBJECTDLG_SelChange(InsertObjectDlgInfo* pdlgInfo)
 418 {
 419   INT index;
 420   WCHAR objname[MAX_PATH];
 421   WCHAR objdesc[MAX_PATH];
 422   WCHAR resstr[MAX_PATH];
 423
 424   TRACE("\n");
 425
 426   if (LoadStringW(OLEDLG_hInstance, IDS_RESULTOBJDESC, resstr, MAX_PATH) &&
 427      ((index = SendMessageW(pdlgInfo->hwndObjTypeLB, LB_GETCURSEL, 0, 0)) >= 0) &&
 428      SendMessageW(pdlgInfo->hwndObjTypeLB, LB_GETTEXT, index, (LPARAM)objname))
 429        wsprintfW(objdesc, resstr, objname);
 430   else
 431     objdesc[0] = 0;
 432
 433   SendMessageW(pdlgInfo->hwndResultDesc, WM_SETTEXT, 0, (LPARAM)objdesc);
 434 }
 435
 436
 437 /***********************************************************************
 438  *      UIINSERTOBJECTDLG_SelChange
 439  *
 440  * Handle OK Button
 441  */
 442 static BOOL UIINSERTOBJECTDLG_OnOpen(InsertObjectDlgInfo* pdlgInfo)
 443 {
 444   BOOL bret = FALSE;
 445
 446   if (BST_CHECKED == SendMessageA(pdlgInfo->hwndCreateCtrlCB, BM_GETCHECK, 0, 0) ||
 447       BST_CHECKED == SendMessageA(pdlgInfo->hwndCreateNewCB, BM_GETCHECK, 0, 0))
 448   {
 449     INT index = SendMessageA(pdlgInfo->hwndObjTypeLB, LB_GETCURSEL, 0, 0);
 450
 451     if (index >= 0)
 452     {
 453        CLSID* clsid = (CLSID*) SendMessageA(pdlgInfo->hwndObjTypeLB,
 454           LB_GETITEMDATA, index, 0);
 455        pdlgInfo->lpOleUIInsertObject->clsid = *clsid;
 456
 457        if (pdlgInfo->lpOleUIInsertObject->dwFlags & IOF_CREATENEWOBJECT)
 458        {
 459           pdlgInfo->lpOleUIInsertObject->sc= OleCreate(
 460              &pdlgInfo->lpOleUIInsertObject->clsid,
 461              &pdlgInfo->lpOleUIInsertObject->iid,
 462              pdlgInfo->lpOleUIInsertObject->oleRender,
 463              pdlgInfo->lpOleUIInsertObject->lpFormatEtc,
 464              pdlgInfo->lpOleUIInsertObject->lpIOleClientSite,
 465              pdlgInfo->lpOleUIInsertObject->lpIStorage,
 466              pdlgInfo->lpOleUIInsertObject->ppvObj);
 467        }
 468
 469        bret = TRUE;
 470     }
 471   }
 472   else if (BST_CHECKED == SendMessageA(pdlgInfo->hwndCreateFromFileCB, BM_GETCHECK, 0, 0))
 473   {
 474     if (pdlgInfo->lpOleUIInsertObject->lpszFile)
 475     {
 476       HRESULT hres;
 477       WCHAR wcsFile[MAX_PATH];
 478
 479       if (SendMessageW(pdlgInfo->hwndFileTB, WM_GETTEXT, MAX_PATH, (LPARAM)wcsFile))
 480           WideCharToMultiByte(CP_ACP, 0, wcsFile, -1,
 481               pdlgInfo->lpOleUIInsertObject->lpszFile, pdlgInfo->lpOleUIInsertObject->cchFile, NULL, NULL);
 482
 483       if (ERROR_SUCCESS == (hres = GetClassFile(wcsFile, &pdlgInfo->lpOleUIInsertObject->clsid)))
 484       {
 485          if (pdlgInfo->lpOleUIInsertObject->dwFlags & IOF_CREATEFILEOBJECT)
 486          {
 487            hres = OleCreateFromFile(
 488              &pdlgInfo->lpOleUIInsertObject->clsid,
 489              wcsFile,
 490              &pdlgInfo->lpOleUIInsertObject->iid,
 491              pdlgInfo->lpOleUIInsertObject->oleRender,
 492              pdlgInfo->lpOleUIInsertObject->lpFormatEtc,
 493              pdlgInfo->lpOleUIInsertObject->lpIOleClientSite,
 494              pdlgInfo->lpOleUIInsertObject->lpIStorage,
 495              pdlgInfo->lpOleUIInsertObject->ppvObj);
 496          }
 497
 498          bret = TRUE;
 499       }
 500       pdlgInfo->lpOleUIInsertObject->sc = hres;
 501     }
 502   }
 503
 504   return bret;
 505 }
 506
 507
 508 /***********************************************************************
 509  *      UIINSERTOBJECTDLG_BrowseFile
 510  *
 511  * Browse for the file
 512  */
 513 static void UIINSERTOBJECTDLG_BrowseFile(InsertObjectDlgInfo* pdlgInfo)
 514 {
 515    OPENFILENAMEA fn;
 516    char fname[MAX_PATH];
 517    char title[32];
 518
 519    fn.lStructSize = sizeof(OPENFILENAMEA);
 520    fn.hwndOwner = pdlgInfo->hwndSelf;
 521    fn.hInstance = 0;
 522    fn.lpstrFilter = "All Files\0*.*\0\0";
 523    fn.lpstrCustomFilter = NULL;
 524    fn.nMaxCustFilter = 0;
 525    fn.nFilterIndex = 0;
 526
 527    SendMessageA(pdlgInfo->hwndFileTB, WM_GETTEXT, MAX_PATH, (LPARAM)fname);
 528    fn.lpstrFile = fname;
 529    fn.nMaxFile = MAX_PATH;
 530
 531    fn.lpstrFileTitle = NULL;
 532    fn.nMaxFileTitle = 0;
 533    fn.lpstrInitialDir = NULL;
 534
 535    LoadStringA(OLEDLG_hInstance, IDS_BROWSE, title, 32);
 536    fn.lpstrTitle = title;
 537
 538    fn.Flags = OFN_EXPLORER | OFN_FILEMUSTEXIST |
 539       OFN_HIDEREADONLY | OFN_LONGNAMES;
 540    fn.nFileOffset = 0;
 541    fn.nFileExtension = 0;
 542    fn.lpstrDefExt = NULL;
 543    fn.lCustData = 0;
 544    fn.lpfnHook = NULL;
 545    fn.lpTemplateName = NULL;
 546
 547    if (GetOpenFileNameA(&fn))
 548       SendMessageA(pdlgInfo->hwndFileTB, WM_SETTEXT, 0, (LPARAM)fn.lpstrFile);
 549 }
 550
 551
 552 /***********************************************************************
 553  *      UIINSERTOBJECTDLG_AddControl
 554  *
 555  * Add control to Object Type
 556  */
 557 static void UIINSERTOBJECTDLG_AddControl(InsertObjectDlgInfo* pdlgInfo)
 558 {
 559    OPENFILENAMEA fn;
 560    char fname[MAX_PATH];
 561    char title[32];
 562
 563    fn.lStructSize = sizeof(OPENFILENAMEA);
 564    fn.hwndOwner = pdlgInfo->hwndSelf;
 565    fn.hInstance = 0;
 566    fn.lpstrFilter = "OLE Controls\0*.ocx\0Libraries\0*.dll\0All Files\0*.*\0\0";
 567    fn.lpstrCustomFilter = NULL;
 568    fn.nMaxCustFilter = 0;
 569    fn.nFilterIndex = 0;
 570
 571    fname[0] = 0;
 572    fn.lpstrFile = fname;
 573    fn.nMaxFile = MAX_PATH;
 574
 575    fn.lpstrFileTitle = NULL;
 576    fn.nMaxFileTitle = 0;
 577    fn.lpstrInitialDir = NULL;
 578
 579    LoadStringA(OLEDLG_hInstance, IDS_BROWSE, title, 32);
 580    fn.lpstrTitle = title;
 581
 582    fn.Flags = OFN_EXPLORER | OFN_FILEMUSTEXIST |
 583       OFN_HIDEREADONLY | OFN_LONGNAMES;
 584    fn.nFileOffset = 0;
 585    fn.nFileExtension = 0;
 586    fn.lpstrDefExt = NULL;
 587    fn.lCustData = 0;
 588    fn.lpfnHook = NULL;
 589    fn.lpTemplateName = NULL;
 590
 591    if (GetOpenFileNameA(&fn))
 592    {
 593       HMODULE hMod;
 594       BOOL bValid = FALSE;
 595
 596       hMod = LoadLibraryA(fn.lpstrFile);
 597
 598       if (hMod)
 599       {
 600           DLLREGISTER regproc;
 601
 602           regproc = (DLLREGISTER) GetProcAddress(hMod, "DllRegisterServer");
 603           if (regproc)
 604           {
 605              if (S_OK == regproc())
 606              {
 607                 UIINSERTOBJECTDLG_PopulateObjectTypes(pdlgInfo);
 608                 bValid = TRUE;
 609              }
 610           }
 611
 612           FreeLibrary(hMod);
 613       }
 614
 615       if (!bValid)
 616       {
 617           WCHAR title[32];
 618           WCHAR msg[256];
 619
 620           LoadStringW(OLEDLG_hInstance, IDS_NOTOLEMODCAPTION, title, 32);
 621           LoadStringW(OLEDLG_hInstance, IDS_NOTOLEMOD, msg, 256);
 622
 623           MessageBoxW(pdlgInfo->hwndSelf, msg, title, MB_ICONEXCLAMATION);
 624       }
 625    }
 626 }