2 * COMMDLG - File Open Dialogs Win95 look and feel
4 * Copyright 1999 Francois Boisvert
5 * Copyright 1999, 2000 Juergen Schmied
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 * FIXME: The whole concept of handling unicode is badly broken.
22 * many hook-messages expect a pointer to a
23 * OPENFILENAMEA or W structure. With the current architecture
24 * we would have to convert the beast at every call to a hook.
25 * we have to find a better solution but it would likely cause
26 * a complete rewrite after which we should handle the
27 * OPENFILENAME structure without any converting (jsch).
29 * FIXME: any hook gets a OPENFILENAMEA structure
31 * FIXME: CDN_FILEOK is wrong implemented, other CDN_ messages likely too
33 * FIXME: old style hook messages are not implemented (except FILEOKSTRING)
35 * FIXME: algorithm for selecting the initial directory is too simple
37 * FIXME: add to recent docs
39 * FIXME: flags not implemented: OFN_DONTADDTORECENT,
40 * OFN_ENABLEINCLUDENOTIFY, OFN_ENABLESIZING,
41 * OFN_NODEREFERENCELINKS, OFN_NOREADONLYRETURN,
42 * OFN_NOTESTFILECREATE, OFN_USEMONIKERS
44 * FIXME: lCustData for lpfnHook (WM_INITDIALOG)
50 #include "wine/port.h"
59 #define NONAMELESSUNION
60 #define NONAMELESSSTRUCT
72 #include "filedlg31.h"
76 #include "filedlgbrowser.h"
79 #include "wine/unicode.h"
80 #include "wine/debug.h"
82 WINE_DEFAULT_DEBUG_CHANNEL(commdlg
);
84 #define UNIMPLEMENTED_FLAGS \
85 (OFN_DONTADDTORECENT |\
86 OFN_ENABLEINCLUDENOTIFY | OFN_ENABLESIZING |\
87 OFN_NODEREFERENCELINKS | OFN_NOREADONLYRETURN |\
88 OFN_NOTESTFILECREATE /*| OFN_USEMONIKERS*/)
90 #define IsHooked(fodInfos) \
91 ((fodInfos->ofnInfos->Flags & OFN_ENABLEHOOK) && fodInfos->ofnInfos->lpfnHook)
92 /***********************************************************************
93 * Data structure and global variables
95 typedef struct SFolder
97 int m_iImageIndex
; /* Index of picture in image list */
99 int m_iIndent
; /* Indentation index */
100 LPITEMIDLIST pidlItem
; /* absolute pidl of the item */
102 } SFOLDER
,*LPSFOLDER
;
104 typedef struct tagLookInInfo
110 typedef struct tagFD32_PRIVATE
112 OPENFILENAMEA
*ofnA
; /* original structure if 32bits ansi dialog */
113 } FD32_PRIVATE
, *PFD32_PRIVATE
;
116 /***********************************************************************
117 * Defines and global variables
120 /* Draw item constant */
122 #define XTEXTOFFSET 3
127 /* SearchItem methods */
128 #define SEARCH_PIDL 1
130 #define ITEM_NOTFOUND -1
132 /* Undefined windows message sent by CreateViewObject*/
133 #define WM_GETISHELLBROWSER WM_USER+7
136 * Those macros exist in windowsx.h. However, you can't really use them since
137 * they rely on the UNICODE defines and can't be used inside Wine itself.
140 /* Combo box macros */
141 #define CBAddString(hwnd,str) \
142 SendMessageW(hwnd, CB_ADDSTRING, 0, (LPARAM)(str));
144 #define CBInsertString(hwnd,str,pos) \
145 SendMessageW(hwnd, CB_INSERTSTRING, (WPARAM)(pos), (LPARAM)(str));
147 #define CBDeleteString(hwnd,pos) \
148 SendMessageW(hwnd, CB_DELETESTRING, (WPARAM)(pos), 0);
150 #define CBSetItemDataPtr(hwnd,iItemId,dataPtr) \
151 SendMessageW(hwnd, CB_SETITEMDATA, (WPARAM)(iItemId), (LPARAM)(dataPtr));
153 #define CBGetItemDataPtr(hwnd,iItemId) \
154 SendMessageW(hwnd, CB_GETITEMDATA, (WPARAM)(iItemId), 0)
156 #define CBGetLBText(hwnd,iItemId,str) \
157 SendMessageW(hwnd, CB_GETLBTEXT, (WPARAM)(iItemId), (LPARAM)(str));
159 #define CBGetCurSel(hwnd) \
160 SendMessageW(hwnd, CB_GETCURSEL, 0, 0);
162 #define CBSetCurSel(hwnd,pos) \
163 SendMessageW(hwnd, CB_SETCURSEL, (WPARAM)(pos), 0);
165 #define CBGetCount(hwnd) \
166 SendMessageW(hwnd, CB_GETCOUNT, 0, 0);
167 #define CBShowDropDown(hwnd,show) \
168 SendMessageW(hwnd, CB_SHOWDROPDOWN, (WPARAM)(show), 0);
169 #define CBSetItemHeight(hwnd,index,height) \
170 SendMessageW(hwnd, CB_SETITEMHEIGHT, (WPARAM)(index), (LPARAM)(height));
172 #define CBSetExtendedUI(hwnd,flag) \
173 SendMessageW(hwnd, CB_SETEXTENDEDUI, (WPARAM)(flag), 0)
175 const char FileOpenDlgInfosStr
[] = "FileOpenDlgInfos"; /* windows property description string */
176 static const char LookInInfosStr
[] = "LookInInfos"; /* LOOKIN combo box property */
178 /***********************************************************************
182 /* Internal functions used by the dialog */
183 static LRESULT
FILEDLG95_ResizeControls(HWND hwnd
, WPARAM wParam
, LPARAM lParam
);
184 static LRESULT
FILEDLG95_FillControls(HWND hwnd
, WPARAM wParam
, LPARAM lParam
);
185 static LRESULT
FILEDLG95_OnWMCommand(HWND hwnd
, WPARAM wParam
, LPARAM lParam
);
186 static LRESULT
FILEDLG95_OnWMGetIShellBrowser(HWND hwnd
);
187 static BOOL
FILEDLG95_OnOpen(HWND hwnd
);
188 static LRESULT
FILEDLG95_InitControls(HWND hwnd
);
189 static void FILEDLG95_Clean(HWND hwnd
);
191 /* Functions used by the shell navigation */
192 static LRESULT
FILEDLG95_SHELL_Init(HWND hwnd
);
193 static BOOL
FILEDLG95_SHELL_UpFolder(HWND hwnd
);
194 static BOOL
FILEDLG95_SHELL_ExecuteCommand(HWND hwnd
, LPCSTR lpVerb
);
195 static void FILEDLG95_SHELL_Clean(HWND hwnd
);
196 static BOOL
FILEDLG95_SHELL_BrowseToDesktop(HWND hwnd
);
198 /* Functions used by the EDIT box */
199 static int FILEDLG95_FILENAME_GetFileNames (HWND hwnd
, LPWSTR
* lpstrFileList
, UINT
* sizeUsed
, char separator
);
201 /* Functions used by the filetype combo box */
202 static HRESULT
FILEDLG95_FILETYPE_Init(HWND hwnd
);
203 static BOOL
FILEDLG95_FILETYPE_OnCommand(HWND hwnd
, WORD wNotifyCode
);
204 static int FILEDLG95_FILETYPE_SearchExt(HWND hwnd
,LPCWSTR lpstrExt
);
205 static void FILEDLG95_FILETYPE_Clean(HWND hwnd
);
207 /* Functions used by the Look In combo box */
208 static void FILEDLG95_LOOKIN_Init(HWND hwndCombo
);
209 static LRESULT
FILEDLG95_LOOKIN_DrawItem(LPDRAWITEMSTRUCT pDIStruct
);
210 static BOOL
FILEDLG95_LOOKIN_OnCommand(HWND hwnd
, WORD wNotifyCode
);
211 static int FILEDLG95_LOOKIN_AddItem(HWND hwnd
,LPITEMIDLIST pidl
, int iInsertId
);
212 static int FILEDLG95_LOOKIN_SearchItem(HWND hwnd
,WPARAM searchArg
,int iSearchMethod
);
213 static int FILEDLG95_LOOKIN_InsertItemAfterParent(HWND hwnd
,LPITEMIDLIST pidl
);
214 static int FILEDLG95_LOOKIN_RemoveMostExpandedItem(HWND hwnd
);
215 int FILEDLG95_LOOKIN_SelectItem(HWND hwnd
,LPITEMIDLIST pidl
);
216 static void FILEDLG95_LOOKIN_Clean(HWND hwnd
);
218 /* Miscellaneous tool functions */
219 static HRESULT
GetName(LPSHELLFOLDER lpsf
, LPITEMIDLIST pidl
,DWORD dwFlags
,LPWSTR lpstrFileName
);
220 IShellFolder
* GetShellFolderFromPidl(LPITEMIDLIST pidlAbs
);
221 LPITEMIDLIST
GetParentPidl(LPITEMIDLIST pidl
);
222 static LPITEMIDLIST
GetPidlFromName(IShellFolder
*psf
,LPWSTR lpcstrFileName
);
224 /* Shell memory allocation */
225 static void *MemAlloc(UINT size
);
226 static void MemFree(void *mem
);
228 static INT_PTR CALLBACK
FileOpenDlgProc95(HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
);
229 static INT_PTR
FILEDLG95_HandleCustomDialogMessages(HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
);
230 static BOOL
FILEDLG95_OnOpenMultipleFiles(HWND hwnd
, LPWSTR lpstrFileList
, UINT nFileCount
, UINT sizeUsed
);
231 static BOOL
BrowseSelectedFolder(HWND hwnd
);
233 /***********************************************************************
236 * Creates an Open common dialog box that lets the user select
237 * the drive, directory, and the name of a file or set of files to open.
239 * IN : The FileOpenDlgInfos structure associated with the dialog
240 * OUT : TRUE on success
241 * FALSE on cancel, error, close or filename-does-not-fit-in-buffer.
243 static BOOL WINAPI
GetFileName95(FileOpenDlgInfos
*fodInfos
)
252 /* test for missing functionality */
253 if (fodInfos
->ofnInfos
->Flags
& UNIMPLEMENTED_FLAGS
)
255 FIXME("Flags 0x%08x not yet implemented\n",
256 fodInfos
->ofnInfos
->Flags
& UNIMPLEMENTED_FLAGS
);
259 /* Create the dialog from a template */
261 if(!(hRes
= FindResourceW(COMDLG32_hInstance
,MAKEINTRESOURCEW(NEWFILEOPENORD
),(LPCWSTR
)RT_DIALOG
)))
263 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE
);
266 if (!(hDlgTmpl
= LoadResource(COMDLG32_hInstance
, hRes
)) ||
267 !(template = LockResource( hDlgTmpl
)))
269 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE
);
273 /* old style hook messages */
274 if (IsHooked(fodInfos
))
276 fodInfos
->HookMsg
.fileokstring
= RegisterWindowMessageW(FILEOKSTRINGW
);
277 fodInfos
->HookMsg
.lbselchstring
= RegisterWindowMessageW(LBSELCHSTRINGW
);
278 fodInfos
->HookMsg
.helpmsgstring
= RegisterWindowMessageW(HELPMSGSTRINGW
);
279 fodInfos
->HookMsg
.sharevistring
= RegisterWindowMessageW(SHAREVISTRINGW
);
282 /* Some shell namespace extensions depend on COM being initialized. */
283 hr
= OleInitialize(NULL
);
285 if (fodInfos
->unicode
)
286 lRes
= DialogBoxIndirectParamW(COMDLG32_hInstance
,
288 fodInfos
->ofnInfos
->hwndOwner
,
292 lRes
= DialogBoxIndirectParamA(COMDLG32_hInstance
,
293 (LPCDLGTEMPLATEA
) template,
294 fodInfos
->ofnInfos
->hwndOwner
,
300 /* Unable to create the dialog */
307 /***********************************************************************
310 * Call GetFileName95 with this structure and clean the memory.
312 * IN : The OPENFILENAMEA initialisation structure passed to
313 * GetOpenFileNameA win api function (see filedlg.c)
315 BOOL WINAPI
GetFileDialog95A(LPOPENFILENAMEA ofn
,UINT iDlgType
)
318 FileOpenDlgInfos fodInfos
;
319 LPSTR lpstrSavDir
= NULL
;
321 LPWSTR defext
= NULL
;
322 LPWSTR filter
= NULL
;
323 LPWSTR customfilter
= NULL
;
325 /* Initialize CommDlgExtendedError() */
326 COMDLG32_SetCommDlgExtendedError(0);
328 /* Initialize FileOpenDlgInfos structure */
329 ZeroMemory(&fodInfos
, sizeof(FileOpenDlgInfos
));
331 /* Pass in the original ofn */
332 fodInfos
.ofnInfos
= (LPOPENFILENAMEW
)ofn
;
334 /* save current directory */
335 if (ofn
->Flags
& OFN_NOCHANGEDIR
)
337 lpstrSavDir
= MemAlloc(MAX_PATH
);
338 GetCurrentDirectoryA(MAX_PATH
, lpstrSavDir
);
341 fodInfos
.unicode
= FALSE
;
343 /* convert all the input strings to unicode */
344 if(ofn
->lpstrInitialDir
)
346 DWORD len
= MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrInitialDir
, -1, NULL
, 0 );
347 fodInfos
.initdir
= MemAlloc((len
+1)*sizeof(WCHAR
));
348 MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrInitialDir
, -1, fodInfos
.initdir
, len
);
351 fodInfos
.initdir
= NULL
;
355 fodInfos
.filename
= MemAlloc(ofn
->nMaxFile
*sizeof(WCHAR
));
356 MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrFile
, -1, fodInfos
.filename
, ofn
->nMaxFile
);
359 fodInfos
.filename
= NULL
;
363 DWORD len
= MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrDefExt
, -1, NULL
, 0 );
364 defext
= MemAlloc((len
+1)*sizeof(WCHAR
));
365 MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrDefExt
, -1, defext
, len
);
367 fodInfos
.defext
= defext
;
371 DWORD len
= MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrTitle
, -1, NULL
, 0 );
372 title
= MemAlloc((len
+1)*sizeof(WCHAR
));
373 MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrTitle
, -1, title
, len
);
375 fodInfos
.title
= title
;
377 if (ofn
->lpstrFilter
)
382 /* filter is a list... title\0ext\0......\0\0 */
383 s
= ofn
->lpstrFilter
;
384 while (*s
) s
= s
+strlen(s
)+1;
386 n
= s
- ofn
->lpstrFilter
;
387 len
= MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrFilter
, n
, NULL
, 0 );
388 filter
= MemAlloc(len
*sizeof(WCHAR
));
389 MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrFilter
, n
, filter
, len
);
391 fodInfos
.filter
= filter
;
393 /* convert lpstrCustomFilter */
394 if (ofn
->lpstrCustomFilter
)
399 /* customfilter contains a pair of strings... title\0ext\0 */
400 s
= ofn
->lpstrCustomFilter
;
401 if (*s
) s
= s
+strlen(s
)+1;
402 if (*s
) s
= s
+strlen(s
)+1;
403 n
= s
- ofn
->lpstrCustomFilter
;
404 len
= MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrCustomFilter
, n
, NULL
, 0 );
405 customfilter
= MemAlloc(len
*sizeof(WCHAR
));
406 MultiByteToWideChar( CP_ACP
, 0, ofn
->lpstrCustomFilter
, n
, customfilter
, len
);
408 fodInfos
.customfilter
= customfilter
;
410 /* Initialize the dialog property */
411 fodInfos
.DlgInfos
.dwDlgProp
= 0;
412 fodInfos
.DlgInfos
.hwndCustomDlg
= NULL
;
417 ret
= GetFileName95(&fodInfos
);
420 fodInfos
.DlgInfos
.dwDlgProp
|= FODPROP_SAVEDLG
;
421 ret
= GetFileName95(&fodInfos
);
429 SetCurrentDirectoryA(lpstrSavDir
);
430 MemFree(lpstrSavDir
);
436 MemFree(customfilter
);
437 MemFree(fodInfos
.initdir
);
438 MemFree(fodInfos
.filename
);
440 TRACE("selected file: %s\n",ofn
->lpstrFile
);
445 /***********************************************************************
448 * Copy the OPENFILENAMEW structure in a FileOpenDlgInfos structure.
449 * Call GetFileName95 with this structure and clean the memory.
452 BOOL WINAPI
GetFileDialog95W(LPOPENFILENAMEW ofn
,UINT iDlgType
)
455 FileOpenDlgInfos fodInfos
;
456 LPWSTR lpstrSavDir
= NULL
;
458 /* Initialize CommDlgExtendedError() */
459 COMDLG32_SetCommDlgExtendedError(0);
461 /* Initialize FileOpenDlgInfos structure */
462 ZeroMemory(&fodInfos
, sizeof(FileOpenDlgInfos
));
464 /* Pass in the original ofn */
465 fodInfos
.ofnInfos
= ofn
;
467 fodInfos
.title
= ofn
->lpstrTitle
;
468 fodInfos
.defext
= ofn
->lpstrDefExt
;
469 fodInfos
.filter
= ofn
->lpstrFilter
;
470 fodInfos
.customfilter
= ofn
->lpstrCustomFilter
;
472 /* convert string arguments, save others */
475 fodInfos
.filename
= MemAlloc(ofn
->nMaxFile
*sizeof(WCHAR
));
476 lstrcpynW(fodInfos
.filename
,ofn
->lpstrFile
,ofn
->nMaxFile
);
479 fodInfos
.filename
= NULL
;
481 if(ofn
->lpstrInitialDir
)
483 /* fodInfos.initdir = strdupW(ofn->lpstrInitialDir); */
484 DWORD len
= lstrlenW(ofn
->lpstrInitialDir
)+1;
485 fodInfos
.initdir
= MemAlloc(len
*sizeof(WCHAR
));
486 memcpy(fodInfos
.initdir
,ofn
->lpstrInitialDir
,len
*sizeof(WCHAR
));
489 fodInfos
.initdir
= NULL
;
491 /* save current directory */
492 if (ofn
->Flags
& OFN_NOCHANGEDIR
)
494 lpstrSavDir
= MemAlloc(MAX_PATH
*sizeof(WCHAR
));
495 GetCurrentDirectoryW(MAX_PATH
, lpstrSavDir
);
498 fodInfos
.unicode
= TRUE
;
503 ret
= GetFileName95(&fodInfos
);
506 fodInfos
.DlgInfos
.dwDlgProp
|= FODPROP_SAVEDLG
;
507 ret
= GetFileName95(&fodInfos
);
515 SetCurrentDirectoryW(lpstrSavDir
);
516 MemFree(lpstrSavDir
);
519 /* restore saved IN arguments and convert OUT arguments back */
520 MemFree(fodInfos
.filename
);
521 MemFree(fodInfos
.initdir
);
525 /******************************************************************************
526 * COMDLG32_GetDisplayNameOf [internal]
528 * Helper function to get the display name for a pidl.
530 static BOOL
COMDLG32_GetDisplayNameOf(LPCITEMIDLIST pidl
, LPWSTR pwszPath
) {
531 LPSHELLFOLDER psfDesktop
;
534 if (FAILED(SHGetDesktopFolder(&psfDesktop
)))
537 if (FAILED(IShellFolder_GetDisplayNameOf(psfDesktop
, pidl
, SHGDN_FORPARSING
, &strret
))) {
538 IShellFolder_Release(psfDesktop
);
542 IShellFolder_Release(psfDesktop
);
543 return SUCCEEDED(StrRetToBufW(&strret
, pidl
, pwszPath
, MAX_PATH
));
546 /***********************************************************************
547 * ArrangeCtrlPositions [internal]
549 * NOTE: Do not change anything here without a lot of testing.
551 static void ArrangeCtrlPositions(HWND hwndChildDlg
, HWND hwndParentDlg
, BOOL hide_help
)
553 HWND hwndChild
, hwndStc32
;
554 RECT rectParent
, rectChild
, rectStc32
;
555 INT help_fixup
= 0, child_height_fixup
= 0, child_width_fixup
= 0;
557 /* Take into account if open as read only checkbox and help button
562 RECT rectHelp
, rectCancel
;
563 GetWindowRect(GetDlgItem(hwndParentDlg
, pshHelp
), &rectHelp
);
564 GetWindowRect(GetDlgItem(hwndParentDlg
, IDCANCEL
), &rectCancel
);
565 /* subtract the height of the help button plus the space between
566 * the help button and the cancel button to the height of the dialog
568 help_fixup
= rectHelp
.bottom
- rectCancel
.bottom
;
572 There are two possibilities to add components to the default file dialog box.
574 By default, all the new components are added below the standard dialog box (the else case).
576 However, if there is a static text component with the stc32 id, a special case happens.
577 The x and y coordinates of stc32 indicate the top left corner where to place the standard file dialog box
578 in the window and the cx and cy indicate how to size the window.
579 Moreover, if the new component's coordinates are on the left of the stc32 , it is placed on the left
580 of the standard file dialog box. If they are above the stc32 component, it is placed above and so on....
584 GetClientRect(hwndParentDlg
, &rectParent
);
586 /* when arranging controls we have to use fixed parent size */
587 rectParent
.bottom
-= help_fixup
;
589 hwndStc32
= GetDlgItem(hwndChildDlg
, stc32
);
592 GetWindowRect(hwndStc32
, &rectStc32
);
593 MapWindowPoints(0, hwndChildDlg
, (LPPOINT
)&rectStc32
, 2);
595 /* set the size of the stc32 control according to the size of
596 * client area of the parent dialog
598 SetWindowPos(hwndStc32
, 0,
600 rectParent
.right
, rectParent
.bottom
,
601 SWP_NOMOVE
| SWP_NOZORDER
);
604 SetRectEmpty(&rectStc32
);
606 /* this part moves controls of the child dialog */
607 hwndChild
= GetWindow(hwndChildDlg
, GW_CHILD
);
610 if (hwndChild
!= hwndStc32
)
612 GetWindowRect(hwndChild
, &rectChild
);
613 MapWindowPoints(0, hwndChildDlg
, (LPPOINT
)&rectChild
, 2);
615 /* move only if stc32 exist */
616 if (hwndStc32
&& rectChild
.left
> rectStc32
.right
)
618 LONG old_left
= rectChild
.left
;
620 /* move to the right of visible controls of the parent dialog */
621 rectChild
.left
+= rectParent
.right
;
622 rectChild
.left
-= rectStc32
.right
;
624 child_width_fixup
= rectChild
.left
- old_left
;
626 /* move even if stc32 doesn't exist */
627 if (rectChild
.top
>= rectStc32
.bottom
)
629 LONG old_top
= rectChild
.top
;
631 /* move below visible controls of the parent dialog */
632 rectChild
.top
+= rectParent
.bottom
;
633 rectChild
.top
-= rectStc32
.bottom
- rectStc32
.top
;
635 child_height_fixup
= rectChild
.top
- old_top
;
638 SetWindowPos(hwndChild
, 0, rectChild
.left
, rectChild
.top
,
639 0, 0, SWP_NOSIZE
| SWP_NOZORDER
);
641 hwndChild
= GetWindow(hwndChild
, GW_HWNDNEXT
);
644 /* this part moves controls of the parent dialog */
645 hwndChild
= GetWindow(hwndParentDlg
, GW_CHILD
);
648 if (hwndChild
!= hwndChildDlg
)
650 GetWindowRect(hwndChild
, &rectChild
);
651 MapWindowPoints(0, hwndParentDlg
, (LPPOINT
)&rectChild
, 2);
653 /* left,top of stc32 marks the position of controls
654 * from the parent dialog
656 rectChild
.left
+= rectStc32
.left
;
657 rectChild
.top
+= rectStc32
.top
;
659 SetWindowPos(hwndChild
, 0, rectChild
.left
, rectChild
.top
,
660 0, 0, SWP_NOSIZE
| SWP_NOZORDER
);
662 hwndChild
= GetWindow(hwndChild
, GW_HWNDNEXT
);
665 /* calculate the size of the resulting dialog */
667 /* here we have to use original parent size */
668 GetClientRect(hwndParentDlg
, &rectParent
);
669 GetClientRect(hwndChildDlg
, &rectChild
);
673 rectChild
.right
+= child_width_fixup
;
674 rectChild
.bottom
+= child_height_fixup
;
676 if (rectParent
.right
> rectChild
.right
)
678 rectParent
.right
+= rectChild
.right
;
679 rectParent
.right
-= rectStc32
.right
- rectStc32
.left
;
683 rectParent
.right
= rectChild
.right
;
686 if (rectParent
.bottom
> rectChild
.bottom
)
688 rectParent
.bottom
+= rectChild
.bottom
;
689 rectParent
.bottom
-= rectStc32
.bottom
- rectStc32
.top
;
693 /* child dialog is higher, unconditionally set new dialog
694 * height to its size (help_fixup will be subtracted below)
696 rectParent
.bottom
= rectChild
.bottom
+ help_fixup
;
701 rectParent
.bottom
+= rectChild
.bottom
;
704 /* finally use fixed parent size */
705 rectParent
.bottom
-= help_fixup
;
707 /* set the size of the parent dialog */
708 AdjustWindowRectEx(&rectParent
, GetWindowLongW(hwndParentDlg
, GWL_STYLE
),
709 FALSE
, GetWindowLongW(hwndParentDlg
, GWL_EXSTYLE
));
710 SetWindowPos(hwndParentDlg
, 0,
712 rectParent
.right
- rectParent
.left
,
713 rectParent
.bottom
- rectParent
.top
,
714 SWP_NOMOVE
| SWP_NOZORDER
);
717 static INT_PTR CALLBACK
FileOpenDlgProcUserTemplate(HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
726 static HWND
CreateTemplateDialog(FileOpenDlgInfos
*fodInfos
, HWND hwnd
)
736 * If OFN_ENABLETEMPLATEHANDLE is specified, the OPENFILENAME
737 * structure's hInstance parameter is not a HINSTANCE, but
738 * instead a pointer to a template resource to use.
740 if (fodInfos
->ofnInfos
->Flags
& (OFN_ENABLETEMPLATE
| OFN_ENABLETEMPLATEHANDLE
))
743 if (fodInfos
->ofnInfos
->Flags
& OFN_ENABLETEMPLATEHANDLE
)
745 hinst
= COMDLG32_hInstance
;
746 if( !(template = LockResource( fodInfos
->ofnInfos
->hInstance
)))
748 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE
);
754 hinst
= fodInfos
->ofnInfos
->hInstance
;
755 if(fodInfos
->unicode
)
757 LPOPENFILENAMEW ofn
= fodInfos
->ofnInfos
;
758 hRes
= FindResourceW( hinst
, ofn
->lpTemplateName
, (LPWSTR
)RT_DIALOG
);
762 LPOPENFILENAMEA ofn
= (LPOPENFILENAMEA
)fodInfos
->ofnInfos
;
763 hRes
= FindResourceA( hinst
, ofn
->lpTemplateName
, (LPSTR
)RT_DIALOG
);
767 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE
);
770 if (!(hDlgTmpl
= LoadResource( hinst
, hRes
)) ||
771 !(template = LockResource( hDlgTmpl
)))
773 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE
);
777 if (fodInfos
->unicode
)
778 hChildDlg
= CreateDialogIndirectParamW(hinst
, template, hwnd
,
779 IsHooked(fodInfos
) ? (DLGPROC
)fodInfos
->ofnInfos
->lpfnHook
: FileOpenDlgProcUserTemplate
,
780 (LPARAM
)fodInfos
->ofnInfos
);
782 hChildDlg
= CreateDialogIndirectParamA(hinst
, template, hwnd
,
783 IsHooked(fodInfos
) ? (DLGPROC
)fodInfos
->ofnInfos
->lpfnHook
: FileOpenDlgProcUserTemplate
,
784 (LPARAM
)fodInfos
->ofnInfos
);
787 ShowWindow(hChildDlg
,SW_SHOW
);
791 else if( IsHooked(fodInfos
))
796 WORD menu
,class,title
;
798 GetClientRect(hwnd
,&rectHwnd
);
799 temp
.tmplate
.style
= WS_CHILD
| WS_CLIPSIBLINGS
| WS_VISIBLE
| DS_CONTROL
| DS_3DLOOK
;
800 temp
.tmplate
.dwExtendedStyle
= 0;
801 temp
.tmplate
.cdit
= 0;
806 temp
.menu
= temp
.class = temp
.title
= 0;
808 hChildDlg
= CreateDialogIndirectParamA(COMDLG32_hInstance
, &temp
.tmplate
,
809 hwnd
, (DLGPROC
)fodInfos
->ofnInfos
->lpfnHook
, (LPARAM
)fodInfos
->ofnInfos
);
816 /***********************************************************************
817 * SendCustomDlgNotificationMessage
819 * Send CustomDialogNotification (CDN_FIRST -- CDN_LAST) message to the custom template dialog
822 LRESULT
SendCustomDlgNotificationMessage(HWND hwndParentDlg
, UINT uCode
)
824 LRESULT hook_result
= 0;
826 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwndParentDlg
,FileOpenDlgInfosStr
);
828 TRACE("%p 0x%04x\n",hwndParentDlg
, uCode
);
830 if(!fodInfos
) return 0;
832 if(fodInfos
->DlgInfos
.hwndCustomDlg
)
834 TRACE("CALL NOTIFY for %x\n", uCode
);
835 if(fodInfos
->unicode
)
838 ofnNotify
.hdr
.hwndFrom
=hwndParentDlg
;
839 ofnNotify
.hdr
.idFrom
=0;
840 ofnNotify
.hdr
.code
= uCode
;
841 ofnNotify
.lpOFN
= fodInfos
->ofnInfos
;
842 ofnNotify
.pszFile
= NULL
;
843 hook_result
= SendMessageW(fodInfos
->DlgInfos
.hwndCustomDlg
,WM_NOTIFY
,0,(LPARAM
)&ofnNotify
);
848 ofnNotify
.hdr
.hwndFrom
=hwndParentDlg
;
849 ofnNotify
.hdr
.idFrom
=0;
850 ofnNotify
.hdr
.code
= uCode
;
851 ofnNotify
.lpOFN
= (LPOPENFILENAMEA
)fodInfos
->ofnInfos
;
852 ofnNotify
.pszFile
= NULL
;
853 hook_result
= SendMessageA(fodInfos
->DlgInfos
.hwndCustomDlg
,WM_NOTIFY
,0,(LPARAM
)&ofnNotify
);
855 TRACE("RET NOTIFY\n");
857 TRACE("Retval: 0x%08lx\n", hook_result
);
861 static INT_PTR
FILEDLG95_Handle_GetFilePath(HWND hwnd
, DWORD size
, LPVOID buffer
)
863 UINT sizeUsed
= 0, n
, total
;
864 LPWSTR lpstrFileList
= NULL
;
865 WCHAR lpstrCurrentDir
[MAX_PATH
];
866 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
868 TRACE("CDM_GETFILEPATH:\n");
870 if ( ! (fodInfos
->ofnInfos
->Flags
& OFN_EXPLORER
) )
873 /* get path and filenames */
874 COMDLG32_GetDisplayNameOf(fodInfos
->ShellInfos
.pidlAbsCurrent
, lpstrCurrentDir
);
875 n
= FILEDLG95_FILENAME_GetFileNames(hwnd
, &lpstrFileList
, &sizeUsed
, ' ');
877 TRACE("path >%s< filespec >%s< %d files\n",
878 debugstr_w(lpstrCurrentDir
),debugstr_w(lpstrFileList
),n
);
880 if( fodInfos
->unicode
)
882 LPWSTR bufW
= buffer
;
883 total
= lstrlenW(lpstrCurrentDir
) + 1 + sizeUsed
;
885 /* Prepend the current path */
886 n
= lstrlenW(lpstrCurrentDir
) + 1;
887 memcpy( bufW
, lpstrCurrentDir
, min(n
,size
) * sizeof(WCHAR
));
890 /* 'n' includes trailing \0 */
892 memcpy( &bufW
[n
], lpstrFileList
, (size
-n
)*sizeof(WCHAR
) );
894 TRACE("returned -> %s\n",debugstr_wn(bufW
, total
));
899 total
= WideCharToMultiByte(CP_ACP
, 0, lpstrCurrentDir
, -1,
900 NULL
, 0, NULL
, NULL
);
901 total
+= WideCharToMultiByte(CP_ACP
, 0, lpstrFileList
, sizeUsed
,
902 NULL
, 0, NULL
, NULL
);
904 /* Prepend the current path */
905 n
= WideCharToMultiByte(CP_ACP
, 0, lpstrCurrentDir
, -1,
906 bufA
, size
, NULL
, NULL
);
910 /* 'n' includes trailing \0 */
912 WideCharToMultiByte(CP_ACP
, 0, lpstrFileList
, sizeUsed
,
913 &bufA
[n
], size
-n
, NULL
, NULL
);
916 TRACE("returned -> %s\n",debugstr_an(bufA
, total
));
918 MemFree(lpstrFileList
);
923 static INT_PTR
FILEDLG95_Handle_GetFileSpec(HWND hwnd
, DWORD size
, LPVOID buffer
)
926 LPWSTR lpstrFileList
= NULL
;
927 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
929 TRACE("CDM_GETSPEC:\n");
931 FILEDLG95_FILENAME_GetFileNames(hwnd
, &lpstrFileList
, &sizeUsed
, ' ');
932 if( fodInfos
->unicode
)
934 LPWSTR bufW
= buffer
;
935 memcpy( bufW
, lpstrFileList
, sizeof(WCHAR
)*sizeUsed
);
940 sizeUsed
= WideCharToMultiByte( CP_ACP
, 0, lpstrFileList
, sizeUsed
,
941 NULL
, 0, NULL
, NULL
);
942 WideCharToMultiByte(CP_ACP
, 0, lpstrFileList
, sizeUsed
,
943 bufA
, size
, NULL
, NULL
);
945 MemFree(lpstrFileList
);
950 /***********************************************************************
951 * FILEDLG95_HandleCustomDialogMessages
953 * Handle Custom Dialog Messages (CDM_FIRST -- CDM_LAST) messages
955 static INT_PTR
FILEDLG95_HandleCustomDialogMessages(HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
957 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
958 WCHAR lpstrPath
[MAX_PATH
];
961 if(!fodInfos
) return FALSE
;
965 case CDM_GETFILEPATH
:
966 retval
= FILEDLG95_Handle_GetFilePath(hwnd
, (UINT
)wParam
, (LPVOID
)lParam
);
969 case CDM_GETFOLDERPATH
:
970 TRACE("CDM_GETFOLDERPATH:\n");
971 COMDLG32_GetDisplayNameOf(fodInfos
->ShellInfos
.pidlAbsCurrent
, lpstrPath
);
974 if (fodInfos
->unicode
)
975 lstrcpynW((LPWSTR
)lParam
, lpstrPath
, (int)wParam
);
977 WideCharToMultiByte(CP_ACP
, 0, lpstrPath
, -1,
978 (LPSTR
)lParam
, (int)wParam
, NULL
, NULL
);
980 retval
= lstrlenW(lpstrPath
);
984 retval
= FILEDLG95_Handle_GetFileSpec(hwnd
, (UINT
)wParam
, (LPSTR
)lParam
);
987 case CDM_SETCONTROLTEXT
:
988 TRACE("CDM_SETCONTROLTEXT:\n");
991 if( fodInfos
->unicode
)
992 SetDlgItemTextW( hwnd
, (UINT
) wParam
, (LPWSTR
) lParam
);
994 SetDlgItemTextA( hwnd
, (UINT
) wParam
, (LPSTR
) lParam
);
999 case CDM_HIDECONTROL
:
1000 /* MSDN states that it should fail for not OFN_EXPLORER case */
1001 if (fodInfos
->ofnInfos
->Flags
& OFN_EXPLORER
)
1003 HWND control
= GetDlgItem( hwnd
, wParam
);
1004 if (control
) ShowWindow( control
, SW_HIDE
);
1007 else retval
= FALSE
;
1011 if (uMsg
>= CDM_FIRST
&& uMsg
<= CDM_LAST
)
1012 FIXME("message CDM_FIRST+%04x not implemented\n", uMsg
- CDM_FIRST
);
1015 SetWindowLongPtrW(hwnd
, DWLP_MSGRESULT
, retval
);
1019 /***********************************************************************
1022 * File open dialog procedure
1024 INT_PTR CALLBACK
FileOpenDlgProc95(HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
1027 TRACE("0x%04x 0x%04x\n", hwnd
, uMsg
);
1034 FileOpenDlgInfos
* fodInfos
= (FileOpenDlgInfos
*)lParam
;
1036 /* Adds the FileOpenDlgInfos in the property list of the dialog
1037 so it will be easily accessible through a GetPropA(...) */
1038 SetPropA(hwnd
, FileOpenDlgInfosStr
, (HANDLE
) fodInfos
);
1040 FILEDLG95_InitControls(hwnd
);
1042 fodInfos
->DlgInfos
.hwndCustomDlg
=
1043 CreateTemplateDialog((FileOpenDlgInfos
*)lParam
, hwnd
);
1045 FILEDLG95_ResizeControls(hwnd
, wParam
, lParam
);
1046 FILEDLG95_FillControls(hwnd
, wParam
, lParam
);
1048 SendCustomDlgNotificationMessage(hwnd
,CDN_INITDONE
);
1049 SendCustomDlgNotificationMessage(hwnd
,CDN_FOLDERCHANGE
);
1050 SendCustomDlgNotificationMessage(hwnd
,CDN_SELCHANGE
);
1054 return FILEDLG95_OnWMCommand(hwnd
, wParam
, lParam
);
1057 switch(((LPDRAWITEMSTRUCT
)lParam
)->CtlID
)
1060 FILEDLG95_LOOKIN_DrawItem((LPDRAWITEMSTRUCT
) lParam
);
1066 case WM_GETISHELLBROWSER
:
1067 return FILEDLG95_OnWMGetIShellBrowser(hwnd
);
1070 RemovePropA(hwnd
, FileOpenDlgInfosStr
);
1075 LPNMHDR lpnmh
= (LPNMHDR
)lParam
;
1078 /* set up the button tooltips strings */
1079 if(TTN_GETDISPINFOA
== lpnmh
->code
)
1081 LPNMTTDISPINFOA lpdi
= (LPNMTTDISPINFOA
)lParam
;
1082 switch(lpnmh
->idFrom
)
1084 /* Up folder button */
1085 case FCIDM_TB_UPFOLDER
:
1086 stringId
= IDS_UPFOLDER
;
1088 /* New folder button */
1089 case FCIDM_TB_NEWFOLDER
:
1090 stringId
= IDS_NEWFOLDER
;
1092 /* List option button */
1093 case FCIDM_TB_SMALLICON
:
1094 stringId
= IDS_LISTVIEW
;
1096 /* Details option button */
1097 case FCIDM_TB_REPORTVIEW
:
1098 stringId
= IDS_REPORTVIEW
;
1100 /* Desktop button */
1101 case FCIDM_TB_DESKTOP
:
1102 stringId
= IDS_TODESKTOP
;
1107 lpdi
->hinst
= COMDLG32_hInstance
;
1108 lpdi
->lpszText
= MAKEINTRESOURCEA(stringId
);
1113 if(uMsg
>= CDM_FIRST
&& uMsg
<= CDM_LAST
)
1114 return FILEDLG95_HandleCustomDialogMessages(hwnd
, uMsg
, wParam
, lParam
);
1119 /***********************************************************************
1120 * FILEDLG95_InitControls
1122 * WM_INITDIALOG message handler (before hook notification)
1124 static LRESULT
FILEDLG95_InitControls(HWND hwnd
)
1126 int win2000plus
= 0;
1128 int handledPath
= FALSE
;
1129 OSVERSIONINFOW osVi
;
1130 static const WCHAR szwSlash
[] = { '\\', 0 };
1131 static const WCHAR szwStar
[] = { '*',0 };
1133 static const TBBUTTON tbb
[] =
1135 {0, 0, TBSTATE_ENABLED
, BTNS_SEP
, {0, 0}, 0, 0 },
1136 {VIEW_PARENTFOLDER
, FCIDM_TB_UPFOLDER
, TBSTATE_ENABLED
, BTNS_BUTTON
, {0, 0}, 0, 0 },
1137 {0, 0, TBSTATE_ENABLED
, BTNS_SEP
, {0, 0}, 0, 0 },
1138 {VIEW_NEWFOLDER
+1, FCIDM_TB_DESKTOP
, TBSTATE_ENABLED
, BTNS_BUTTON
, {0, 0}, 0, 0 },
1139 {0, 0, TBSTATE_ENABLED
, BTNS_SEP
, {0, 0}, 0, 0 },
1140 {VIEW_NEWFOLDER
, FCIDM_TB_NEWFOLDER
, TBSTATE_ENABLED
, BTNS_BUTTON
, {0, 0}, 0, 0 },
1141 {0, 0, TBSTATE_ENABLED
, BTNS_SEP
, {0, 0}, 0, 0 },
1142 {VIEW_LIST
, FCIDM_TB_SMALLICON
, TBSTATE_ENABLED
, BTNS_BUTTON
, {0, 0}, 0, 0 },
1143 {VIEW_DETAILS
, FCIDM_TB_REPORTVIEW
, TBSTATE_ENABLED
, BTNS_BUTTON
, {0, 0}, 0, 0 },
1148 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
1150 tba
[0].hInst
= HINST_COMMCTRL
;
1151 tba
[0].nID
= IDB_VIEW_SMALL_COLOR
;
1152 tba
[1].hInst
= COMDLG32_hInstance
;
1155 TRACE("%p\n", fodInfos
);
1157 /* Get windows version emulating */
1158 osVi
.dwOSVersionInfoSize
= sizeof(osVi
);
1159 GetVersionExW(&osVi
);
1160 if (osVi
.dwPlatformId
== VER_PLATFORM_WIN32_WINDOWS
) {
1161 win98plus
= ((osVi
.dwMajorVersion
> 4) || ((osVi
.dwMajorVersion
== 4) && (osVi
.dwMinorVersion
> 0)));
1162 } else if (osVi
.dwPlatformId
== VER_PLATFORM_WIN32_NT
) {
1163 win2000plus
= (osVi
.dwMajorVersion
> 4);
1164 if (win2000plus
) win98plus
= TRUE
;
1166 TRACE("Running on 2000+ %d, 98+ %d\n", win2000plus
, win98plus
);
1168 /* Get the hwnd of the controls */
1169 fodInfos
->DlgInfos
.hwndFileName
= GetDlgItem(hwnd
,IDC_FILENAME
);
1170 fodInfos
->DlgInfos
.hwndFileTypeCB
= GetDlgItem(hwnd
,IDC_FILETYPE
);
1171 fodInfos
->DlgInfos
.hwndLookInCB
= GetDlgItem(hwnd
,IDC_LOOKIN
);
1173 GetWindowRect( fodInfos
->DlgInfos
.hwndLookInCB
,&rectlook
);
1174 MapWindowPoints( 0, hwnd
,(LPPOINT
)&rectlook
,2);
1176 /* construct the toolbar */
1177 GetWindowRect(GetDlgItem(hwnd
,IDC_TOOLBARSTATIC
),&rectTB
);
1178 MapWindowPoints( 0, hwnd
,(LPPOINT
)&rectTB
,2);
1180 rectTB
.right
= rectlook
.right
+ rectTB
.right
- rectTB
.left
;
1181 rectTB
.bottom
= rectlook
.top
- 1 + rectTB
.bottom
- rectTB
.top
;
1182 rectTB
.left
= rectlook
.right
;
1183 rectTB
.top
= rectlook
.top
-1;
1185 if (fodInfos
->unicode
)
1186 fodInfos
->DlgInfos
.hwndTB
= CreateWindowExW(0, TOOLBARCLASSNAMEW
, NULL
,
1187 WS_CHILD
| WS_GROUP
| WS_VISIBLE
| WS_CLIPSIBLINGS
| TBSTYLE_TOOLTIPS
| CCS_NODIVIDER
| CCS_NORESIZE
,
1188 rectTB
.left
, rectTB
.top
,
1189 rectTB
.right
- rectTB
.left
, rectTB
.bottom
- rectTB
.top
,
1190 hwnd
, (HMENU
)IDC_TOOLBAR
, COMDLG32_hInstance
, NULL
);
1192 fodInfos
->DlgInfos
.hwndTB
= CreateWindowExA(0, TOOLBARCLASSNAMEA
, NULL
,
1193 WS_CHILD
| WS_GROUP
| WS_VISIBLE
| WS_CLIPSIBLINGS
| TBSTYLE_TOOLTIPS
| CCS_NODIVIDER
| CCS_NORESIZE
,
1194 rectTB
.left
, rectTB
.top
,
1195 rectTB
.right
- rectTB
.left
, rectTB
.bottom
- rectTB
.top
,
1196 hwnd
, (HMENU
)IDC_TOOLBAR
, COMDLG32_hInstance
, NULL
);
1198 SendMessageW(fodInfos
->DlgInfos
.hwndTB
, TB_BUTTONSTRUCTSIZE
, sizeof(TBBUTTON
), 0);
1200 /* FIXME: use TB_LOADIMAGES when implemented */
1201 /* SendMessageW(fodInfos->DlgInfos.hwndTB, TB_LOADIMAGES, IDB_VIEW_SMALL_COLOR, HINST_COMMCTRL);*/
1202 SendMessageW(fodInfos
->DlgInfos
.hwndTB
, TB_ADDBITMAP
, 12, (LPARAM
) &tba
[0]);
1203 SendMessageW(fodInfos
->DlgInfos
.hwndTB
, TB_ADDBITMAP
, 1, (LPARAM
) &tba
[1]);
1205 SendMessageW(fodInfos
->DlgInfos
.hwndTB
, TB_ADDBUTTONSW
, 9, (LPARAM
) &tbb
);
1206 SendMessageW(fodInfos
->DlgInfos
.hwndTB
, TB_AUTOSIZE
, 0, 0);
1208 /* Set the window text with the text specified in the OPENFILENAME structure */
1211 SetWindowTextW(hwnd
,fodInfos
->title
);
1213 else if (fodInfos
->DlgInfos
.dwDlgProp
& FODPROP_SAVEDLG
)
1216 LoadStringW(COMDLG32_hInstance
, IDS_SAVE
, buf
, sizeof(buf
)/sizeof(WCHAR
));
1217 SetWindowTextW(hwnd
, buf
);
1220 /* Initialise the file name edit control */
1221 handledPath
= FALSE
;
1222 TRACE("Before manipilation, file = %s, dir = %s\n", debugstr_w(fodInfos
->filename
), debugstr_w(fodInfos
->initdir
));
1224 if(fodInfos
->filename
)
1226 /* 1. If win2000 or higher and filename contains a path, use it
1227 in preference over the lpstrInitialDir */
1228 if (win2000plus
&& *fodInfos
->filename
&& strpbrkW(fodInfos
->filename
, szwSlash
)) {
1229 WCHAR tmpBuf
[MAX_PATH
];
1233 result
= GetFullPathNameW(fodInfos
->filename
, MAX_PATH
, tmpBuf
, &nameBit
);
1236 /* nameBit is always shorter than the original filename */
1237 lstrcpyW(fodInfos
->filename
,nameBit
);
1240 if (fodInfos
->initdir
== NULL
)
1241 MemFree(fodInfos
->initdir
);
1242 fodInfos
->initdir
= MemAlloc((lstrlenW(tmpBuf
) + 1)*sizeof(WCHAR
));
1243 lstrcpyW(fodInfos
->initdir
, tmpBuf
);
1245 TRACE("Value in Filename includes path, overriding InitialDir: %s, %s\n",
1246 debugstr_w(fodInfos
->filename
), debugstr_w(fodInfos
->initdir
));
1248 SetDlgItemTextW(hwnd
, IDC_FILENAME
, fodInfos
->filename
);
1251 SetDlgItemTextW(hwnd
, IDC_FILENAME
, fodInfos
->filename
);
1255 /* 2. (All platforms) If initdir is not null, then use it */
1256 if ((handledPath
== FALSE
) && (fodInfos
->initdir
!=NULL
) &&
1257 (*fodInfos
->initdir
!=0x00))
1259 /* Work out the proper path as supplied one might be relative */
1260 /* (Here because supplying '.' as dir browses to My Computer) */
1261 if (handledPath
==FALSE
) {
1262 WCHAR tmpBuf
[MAX_PATH
];
1263 WCHAR tmpBuf2
[MAX_PATH
];
1267 lstrcpyW(tmpBuf
, fodInfos
->initdir
);
1268 if( PathFileExistsW(tmpBuf
) ) {
1269 /* initdir does not have to be a directory. If a file is
1270 * specified, the dir part is taken */
1271 if( PathIsDirectoryW(tmpBuf
)) {
1272 if (tmpBuf
[lstrlenW(tmpBuf
)-1] != '\\') {
1273 lstrcatW(tmpBuf
, szwSlash
);
1275 lstrcatW(tmpBuf
, szwStar
);
1277 result
= GetFullPathNameW(tmpBuf
, MAX_PATH
, tmpBuf2
, &nameBit
);
1280 MemFree(fodInfos
->initdir
);
1281 fodInfos
->initdir
= MemAlloc((lstrlenW(tmpBuf2
) + 1)*sizeof(WCHAR
));
1282 lstrcpyW(fodInfos
->initdir
, tmpBuf2
);
1284 TRACE("Value in InitDir changed to %s\n", debugstr_w(fodInfos
->initdir
));
1287 else if (fodInfos
->initdir
)
1289 MemFree(fodInfos
->initdir
);
1290 fodInfos
->initdir
= NULL
;
1291 TRACE("Value in InitDir is not an existing path, changed to (nil)\n");
1296 if ((handledPath
== FALSE
) && ((fodInfos
->initdir
==NULL
) ||
1297 (*fodInfos
->initdir
==0x00)))
1299 /* 3. All except w2k+: if filename contains a path use it */
1300 if (!win2000plus
&& fodInfos
->filename
&&
1301 *fodInfos
->filename
&&
1302 strpbrkW(fodInfos
->filename
, szwSlash
)) {
1303 WCHAR tmpBuf
[MAX_PATH
];
1307 result
= GetFullPathNameW(fodInfos
->filename
, MAX_PATH
,
1312 /* nameBit is always shorter than the original filename */
1313 lstrcpyW(fodInfos
->filename
, nameBit
);
1316 len
= lstrlenW(tmpBuf
);
1317 MemFree(fodInfos
->initdir
);
1318 fodInfos
->initdir
= MemAlloc((len
+1)*sizeof(WCHAR
));
1319 lstrcpyW(fodInfos
->initdir
, tmpBuf
);
1322 TRACE("Value in Filename includes path, overriding initdir: %s, %s\n",
1323 debugstr_w(fodInfos
->filename
), debugstr_w(fodInfos
->initdir
));
1325 SetDlgItemTextW(hwnd
, IDC_FILENAME
, fodInfos
->filename
);
1328 /* 4. win98+ and win2000+ if any files of specified filter types in
1329 current directory, use it */
1330 if ( win98plus
&& handledPath
== FALSE
&&
1331 fodInfos
->filter
&& *fodInfos
->filter
) {
1333 BOOL searchMore
= TRUE
;
1334 LPCWSTR lpstrPos
= fodInfos
->filter
;
1335 WIN32_FIND_DATAW FindFileData
;
1340 /* filter is a list... title\0ext\0......\0\0 */
1342 /* Skip the title */
1343 if(! *lpstrPos
) break; /* end */
1344 lpstrPos
+= lstrlenW(lpstrPos
) + 1;
1346 /* See if any files exist in the current dir with this extension */
1347 if(! *lpstrPos
) break; /* end */
1349 hFind
= FindFirstFileW(lpstrPos
, &FindFileData
);
1351 if (hFind
== INVALID_HANDLE_VALUE
) {
1352 /* None found - continue search */
1353 lpstrPos
+= lstrlenW(lpstrPos
) + 1;
1358 MemFree(fodInfos
->initdir
);
1359 fodInfos
->initdir
= MemAlloc(MAX_PATH
*sizeof(WCHAR
));
1360 GetCurrentDirectoryW(MAX_PATH
, fodInfos
->initdir
);
1363 TRACE("No initial dir specified, but files of type %s found in current, so using it\n",
1364 debugstr_w(lpstrPos
));
1370 /* 5. Win2000+: FIXME: Next, Recently used? Not sure how windows does this */
1372 /* 6. Win98+ and 2000+: Use personal files dir, others use current dir */
1373 if (handledPath
== FALSE
&& (win2000plus
|| win98plus
)) {
1374 fodInfos
->initdir
= MemAlloc(MAX_PATH
*sizeof(WCHAR
));
1376 if(FAILED(COMDLG32_SHGetFolderPathW(hwnd
, CSIDL_PERSONAL
, 0, 0, fodInfos
->initdir
)))
1378 if(FAILED(COMDLG32_SHGetFolderPathW(hwnd
, CSIDL_DESKTOPDIRECTORY
|CSIDL_FLAG_CREATE
, 0, 0, fodInfos
->initdir
)))
1381 GetCurrentDirectoryW(MAX_PATH
, fodInfos
->initdir
);
1382 TRACE("No personal or desktop dir, using cwd as failsafe: %s\n", debugstr_w(fodInfos
->initdir
));
1384 TRACE("No personal dir, using desktop instead: %s\n", debugstr_w(fodInfos
->initdir
));
1387 TRACE("No initial dir specified, using personal files dir of %s\n", debugstr_w(fodInfos
->initdir
));
1390 } else if (handledPath
==FALSE
) {
1391 fodInfos
->initdir
= MemAlloc(MAX_PATH
*sizeof(WCHAR
));
1392 GetCurrentDirectoryW(MAX_PATH
, fodInfos
->initdir
);
1394 TRACE("No initial dir specified, using current dir of %s\n", debugstr_w(fodInfos
->initdir
));
1397 SetFocus(GetDlgItem(hwnd
, IDC_FILENAME
));
1398 TRACE("After manipulation, file = %s, dir = %s\n", debugstr_w(fodInfos
->filename
), debugstr_w(fodInfos
->initdir
));
1400 /* Must the open as read only check box be checked ?*/
1401 if(fodInfos
->ofnInfos
->Flags
& OFN_READONLY
)
1403 SendDlgItemMessageW(hwnd
,IDC_OPENREADONLY
,BM_SETCHECK
,TRUE
,0);
1406 /* Must the open as read only check box be hidden? */
1407 if(fodInfos
->ofnInfos
->Flags
& OFN_HIDEREADONLY
)
1409 ShowWindow(GetDlgItem(hwnd
,IDC_OPENREADONLY
),SW_HIDE
);
1410 EnableWindow(GetDlgItem(hwnd
, IDC_OPENREADONLY
), FALSE
);
1413 /* Must the help button be hidden? */
1414 if (!(fodInfos
->ofnInfos
->Flags
& OFN_SHOWHELP
))
1416 ShowWindow(GetDlgItem(hwnd
, pshHelp
), SW_HIDE
);
1417 EnableWindow(GetDlgItem(hwnd
, pshHelp
), FALSE
);
1420 /* change Open to Save */
1421 if (fodInfos
->DlgInfos
.dwDlgProp
& FODPROP_SAVEDLG
)
1424 LoadStringW(COMDLG32_hInstance
, IDS_SAVE_BUTTON
, buf
, sizeof(buf
)/sizeof(WCHAR
));
1425 SetDlgItemTextW(hwnd
, IDOK
, buf
);
1426 LoadStringW(COMDLG32_hInstance
, IDS_SAVE_IN
, buf
, sizeof(buf
)/sizeof(WCHAR
));
1427 SetDlgItemTextW(hwnd
, IDC_LOOKINSTATIC
, buf
);
1432 /***********************************************************************
1433 * FILEDLG95_ResizeControls
1435 * WM_INITDIALOG message handler (after hook notification)
1437 static LRESULT
FILEDLG95_ResizeControls(HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1439 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) lParam
;
1441 if (fodInfos
->DlgInfos
.hwndCustomDlg
)
1444 UINT flags
= SWP_NOACTIVATE
;
1446 ArrangeCtrlPositions(fodInfos
->DlgInfos
.hwndCustomDlg
, hwnd
,
1447 (fodInfos
->ofnInfos
->Flags
& (OFN_HIDEREADONLY
| OFN_SHOWHELP
)) == OFN_HIDEREADONLY
);
1449 /* resize the custom dialog to the parent size */
1450 if (fodInfos
->ofnInfos
->Flags
& (OFN_ENABLETEMPLATE
| OFN_ENABLETEMPLATEHANDLE
))
1451 GetClientRect(hwnd
, &rc
);
1454 /* our own fake template is zero sized and doesn't have children, so
1455 * there is no need to resize it. Picasa depends on it.
1457 flags
|= SWP_NOSIZE
;
1460 SetWindowPos(fodInfos
->DlgInfos
.hwndCustomDlg
, HWND_BOTTOM
,
1461 0, 0, rc
.right
, rc
.bottom
, flags
);
1465 /* Resize the height, if open as read only checkbox ad help button are
1466 * hidden and we are not using a custom template nor a customDialog
1468 if ( (fodInfos
->ofnInfos
->Flags
& OFN_HIDEREADONLY
) &&
1469 (!(fodInfos
->ofnInfos
->Flags
&
1470 (OFN_SHOWHELP
|OFN_ENABLETEMPLATE
|OFN_ENABLETEMPLATEHANDLE
))))
1472 RECT rectDlg
, rectHelp
, rectCancel
;
1473 GetWindowRect(hwnd
, &rectDlg
);
1474 GetWindowRect(GetDlgItem(hwnd
, pshHelp
), &rectHelp
);
1475 GetWindowRect(GetDlgItem(hwnd
, IDCANCEL
), &rectCancel
);
1476 /* subtract the height of the help button plus the space between the help
1477 * button and the cancel button to the height of the dialog
1479 SetWindowPos(hwnd
, 0, 0, 0, rectDlg
.right
-rectDlg
.left
,
1480 (rectDlg
.bottom
-rectDlg
.top
) - (rectHelp
.bottom
- rectCancel
.bottom
),
1481 SWP_NOACTIVATE
|SWP_NOMOVE
|SWP_NOZORDER
);
1487 /***********************************************************************
1488 * FILEDLG95_FillControls
1490 * WM_INITDIALOG message handler (after hook notification)
1492 static LRESULT
FILEDLG95_FillControls(HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1494 LPITEMIDLIST pidlItemId
= NULL
;
1496 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) lParam
;
1498 TRACE("dir=%s file=%s\n",
1499 debugstr_w(fodInfos
->initdir
), debugstr_w(fodInfos
->filename
));
1501 /* Get the initial directory pidl */
1503 if(!(pidlItemId
= GetPidlFromName(fodInfos
->Shell
.FOIShellFolder
,fodInfos
->initdir
)))
1505 WCHAR path
[MAX_PATH
];
1507 GetCurrentDirectoryW(MAX_PATH
,path
);
1508 pidlItemId
= GetPidlFromName(fodInfos
->Shell
.FOIShellFolder
, path
);
1511 /* Initialise shell objects */
1512 FILEDLG95_SHELL_Init(hwnd
);
1514 /* Initialize the Look In combo box */
1515 FILEDLG95_LOOKIN_Init(fodInfos
->DlgInfos
.hwndLookInCB
);
1517 /* Initialize the filter combo box */
1518 FILEDLG95_FILETYPE_Init(hwnd
);
1520 /* Browse to the initial directory */
1521 IShellBrowser_BrowseObject(fodInfos
->Shell
.FOIShellBrowser
,pidlItemId
, SBSP_ABSOLUTE
);
1523 /* Free pidlItem memory */
1524 COMDLG32_SHFree(pidlItemId
);
1528 /***********************************************************************
1531 * Regroups all the cleaning functions of the filedlg
1533 void FILEDLG95_Clean(HWND hwnd
)
1535 FILEDLG95_FILETYPE_Clean(hwnd
);
1536 FILEDLG95_LOOKIN_Clean(hwnd
);
1537 FILEDLG95_SHELL_Clean(hwnd
);
1539 /***********************************************************************
1540 * FILEDLG95_OnWMCommand
1542 * WM_COMMAND message handler
1544 static LRESULT
FILEDLG95_OnWMCommand(HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1546 WORD wNotifyCode
= HIWORD(wParam
); /* notification code */
1547 WORD wID
= LOWORD(wParam
); /* item, control, or accelerator identifier */
1548 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
1554 FILEDLG95_OnOpen(hwnd
);
1558 FILEDLG95_Clean(hwnd
);
1559 EndDialog(hwnd
, FALSE
);
1561 /* Filetype combo box */
1563 FILEDLG95_FILETYPE_OnCommand(hwnd
,wNotifyCode
);
1565 /* LookIn combo box */
1567 FILEDLG95_LOOKIN_OnCommand(hwnd
,wNotifyCode
);
1570 /* --- toolbar --- */
1571 /* Up folder button */
1572 case FCIDM_TB_UPFOLDER
:
1573 FILEDLG95_SHELL_UpFolder(hwnd
);
1575 /* New folder button */
1576 case FCIDM_TB_NEWFOLDER
:
1577 FILEDLG95_SHELL_ExecuteCommand(hwnd
,CMDSTR_NEWFOLDERA
);
1579 /* List option button */
1580 case FCIDM_TB_SMALLICON
:
1581 FILEDLG95_SHELL_ExecuteCommand(hwnd
,CMDSTR_VIEWLISTA
);
1583 /* Details option button */
1584 case FCIDM_TB_REPORTVIEW
:
1585 FILEDLG95_SHELL_ExecuteCommand(hwnd
,CMDSTR_VIEWDETAILSA
);
1587 /* Details option button */
1588 case FCIDM_TB_DESKTOP
:
1589 FILEDLG95_SHELL_BrowseToDesktop(hwnd
);
1596 /* Do not use the listview selection anymore */
1597 fodInfos
->DlgInfos
.dwDlgProp
&= ~FODPROP_USEVIEW
;
1601 /***********************************************************************
1602 * FILEDLG95_OnWMGetIShellBrowser
1604 * WM_GETISHELLBROWSER message handler
1606 static LRESULT
FILEDLG95_OnWMGetIShellBrowser(HWND hwnd
)
1609 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
1613 SetWindowLongPtrW(hwnd
,DWLP_MSGRESULT
,(LONG_PTR
)fodInfos
->Shell
.FOIShellBrowser
);
1619 /***********************************************************************
1620 * FILEDLG95_SendFileOK
1622 * Sends the CDN_FILEOK notification if required
1625 * TRUE if the dialog should close
1626 * FALSE if the dialog should not be closed
1628 static BOOL
FILEDLG95_SendFileOK( HWND hwnd
, FileOpenDlgInfos
*fodInfos
)
1630 /* ask the hook if we can close */
1631 if(IsHooked(fodInfos
))
1636 /* First send CDN_FILEOK as MSDN doc says */
1637 retval
= SendCustomDlgNotificationMessage(hwnd
,CDN_FILEOK
);
1638 if (GetWindowLongPtrW(fodInfos
->DlgInfos
.hwndCustomDlg
, DWLP_MSGRESULT
))
1640 TRACE("canceled\n");
1641 return (retval
== 0);
1644 /* fodInfos->ofnInfos points to an ASCII or UNICODE structure as appropriate */
1645 retval
= SendMessageW(fodInfos
->DlgInfos
.hwndCustomDlg
,
1646 fodInfos
->HookMsg
.fileokstring
, 0, (LPARAM
)fodInfos
->ofnInfos
);
1647 if (GetWindowLongPtrW(fodInfos
->DlgInfos
.hwndCustomDlg
, DWLP_MSGRESULT
))
1649 TRACE("canceled\n");
1650 return (retval
== 0);
1656 /***********************************************************************
1657 * FILEDLG95_OnOpenMultipleFiles
1659 * Handles the opening of multiple files.
1662 * check destination buffer size
1664 BOOL
FILEDLG95_OnOpenMultipleFiles(HWND hwnd
, LPWSTR lpstrFileList
, UINT nFileCount
, UINT sizeUsed
)
1666 WCHAR lpstrPathSpec
[MAX_PATH
] = {0};
1667 UINT nCount
, nSizePath
;
1668 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
1672 if(fodInfos
->unicode
)
1674 LPOPENFILENAMEW ofn
= fodInfos
->ofnInfos
;
1675 ofn
->lpstrFile
[0] = '\0';
1679 LPOPENFILENAMEA ofn
= (LPOPENFILENAMEA
) fodInfos
->ofnInfos
;
1680 ofn
->lpstrFile
[0] = '\0';
1683 COMDLG32_GetDisplayNameOf( fodInfos
->ShellInfos
.pidlAbsCurrent
, lpstrPathSpec
);
1685 if ( !(fodInfos
->ofnInfos
->Flags
& OFN_NOVALIDATE
) &&
1686 ( fodInfos
->ofnInfos
->Flags
& OFN_FILEMUSTEXIST
) &&
1687 ! ( fodInfos
->DlgInfos
.dwDlgProp
& FODPROP_SAVEDLG
) )
1689 LPWSTR lpstrTemp
= lpstrFileList
;
1691 for ( nCount
= 0; nCount
< nFileCount
; nCount
++ )
1695 pidl
= GetPidlFromName(fodInfos
->Shell
.FOIShellFolder
, lpstrTemp
);
1698 WCHAR lpstrNotFound
[100];
1699 WCHAR lpstrMsg
[100];
1701 static const WCHAR nl
[] = {'\n',0};
1703 LoadStringW(COMDLG32_hInstance
, IDS_FILENOTFOUND
, lpstrNotFound
, 100);
1704 LoadStringW(COMDLG32_hInstance
, IDS_VERIFYFILE
, lpstrMsg
, 100);
1706 lstrcpyW(tmp
, lpstrTemp
);
1708 lstrcatW(tmp
, lpstrNotFound
);
1710 lstrcatW(tmp
, lpstrMsg
);
1712 MessageBoxW(hwnd
, tmp
, fodInfos
->title
, MB_OK
| MB_ICONEXCLAMATION
);
1716 /* move to the next file in the list of files */
1717 lpstrTemp
+= lstrlenW(lpstrTemp
) + 1;
1718 COMDLG32_SHFree(pidl
);
1722 nSizePath
= lstrlenW(lpstrPathSpec
) + 1;
1723 if ( !(fodInfos
->ofnInfos
->Flags
& OFN_EXPLORER
) )
1725 /* For "oldstyle" dialog the components have to
1726 be separated by blanks (not '\0'!) and short
1727 filenames have to be used! */
1728 FIXME("Components have to be separated by blanks\n");
1730 if(fodInfos
->unicode
)
1732 LPOPENFILENAMEW ofn
= fodInfos
->ofnInfos
;
1733 lstrcpyW( ofn
->lpstrFile
, lpstrPathSpec
);
1734 memcpy( ofn
->lpstrFile
+ nSizePath
, lpstrFileList
, sizeUsed
*sizeof(WCHAR
) );
1738 LPOPENFILENAMEA ofn
= (LPOPENFILENAMEA
)fodInfos
->ofnInfos
;
1740 if (ofn
->lpstrFile
!= NULL
)
1742 nSizePath
= WideCharToMultiByte(CP_ACP
, 0, lpstrPathSpec
, -1,
1743 ofn
->lpstrFile
, ofn
->nMaxFile
, NULL
, NULL
);
1744 if (ofn
->nMaxFile
> nSizePath
)
1746 WideCharToMultiByte(CP_ACP
, 0, lpstrFileList
, sizeUsed
,
1747 ofn
->lpstrFile
+ nSizePath
,
1748 ofn
->nMaxFile
- nSizePath
, NULL
, NULL
);
1753 fodInfos
->ofnInfos
->nFileOffset
= nSizePath
;
1754 fodInfos
->ofnInfos
->nFileExtension
= 0;
1756 if ( !FILEDLG95_SendFileOK(hwnd
, fodInfos
) )
1759 /* clean and exit */
1760 FILEDLG95_Clean(hwnd
);
1761 return EndDialog(hwnd
,TRUE
);
1764 /***********************************************************************
1767 * Ok button WM_COMMAND message handler
1769 * If the function succeeds, the return value is nonzero.
1771 #define ONOPEN_BROWSE 1
1772 #define ONOPEN_OPEN 2
1773 #define ONOPEN_SEARCH 3
1774 static void FILEDLG95_OnOpenMessage(HWND hwnd
, int idCaption
, int idText
)
1776 WCHAR strMsgTitle
[MAX_PATH
];
1777 WCHAR strMsgText
[MAX_PATH
];
1779 LoadStringW(COMDLG32_hInstance
, idCaption
, strMsgTitle
, sizeof(strMsgTitle
)/sizeof(WCHAR
));
1781 strMsgTitle
[0] = '\0';
1782 LoadStringW(COMDLG32_hInstance
, idText
, strMsgText
, sizeof(strMsgText
)/sizeof(WCHAR
));
1783 MessageBoxW(hwnd
,strMsgText
, strMsgTitle
, MB_OK
| MB_ICONHAND
);
1786 BOOL
FILEDLG95_OnOpen(HWND hwnd
)
1788 LPWSTR lpstrFileList
;
1789 UINT nFileCount
= 0;
1792 WCHAR lpstrPathAndFile
[MAX_PATH
];
1793 WCHAR lpstrTemp
[MAX_PATH
];
1794 LPSHELLFOLDER lpsf
= NULL
;
1796 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
1798 TRACE("hwnd=%p\n", hwnd
);
1800 /* get the files from the edit control */
1801 nFileCount
= FILEDLG95_FILENAME_GetFileNames(hwnd
, &lpstrFileList
, &sizeUsed
, '\0');
1803 /* try if the user selected a folder in the shellview */
1806 BrowseSelectedFolder(hwnd
);
1812 ret
= FILEDLG95_OnOpenMultipleFiles(hwnd
, lpstrFileList
, nFileCount
, sizeUsed
);
1816 TRACE("count=%u len=%u file=%s\n", nFileCount
, sizeUsed
, debugstr_w(lpstrFileList
));
1819 Step 1: Build a complete path name from the current folder and
1820 the filename or path in the edit box.
1822 - the path in the edit box is a root path
1823 (with or without drive letter)
1824 - the edit box contains ".." (or a path with ".." in it)
1827 /* Get the current directory name */
1828 if (!COMDLG32_GetDisplayNameOf(fodInfos
->ShellInfos
.pidlAbsCurrent
, lpstrPathAndFile
))
1831 GetCurrentDirectoryW(MAX_PATH
, lpstrPathAndFile
);
1833 PathAddBackslashW(lpstrPathAndFile
);
1835 TRACE("current directory=%s\n", debugstr_w(lpstrPathAndFile
));
1837 /* if the user specified a fully qualified path use it */
1838 if(PathIsRelativeW(lpstrFileList
))
1840 lstrcatW(lpstrPathAndFile
, lpstrFileList
);
1844 /* does the path have a drive letter? */
1845 if (PathGetDriveNumberW(lpstrFileList
) == -1)
1846 lstrcpyW(lpstrPathAndFile
+2, lpstrFileList
);
1848 lstrcpyW(lpstrPathAndFile
, lpstrFileList
);
1851 /* resolve "." and ".." */
1852 PathCanonicalizeW(lpstrTemp
, lpstrPathAndFile
);
1853 lstrcpyW(lpstrPathAndFile
, lpstrTemp
);
1854 TRACE("canon=%s\n", debugstr_w(lpstrPathAndFile
));
1856 MemFree(lpstrFileList
);
1859 Step 2: here we have a cleaned up path
1861 We have to parse the path step by step to see if we have to browse
1862 to a folder if the path points to a directory or the last
1863 valid element is a directory.
1866 lpstrPathAndFile: cleaned up path
1870 (fodInfos
->ofnInfos
->Flags
& OFN_NOVALIDATE
) &&
1871 !(fodInfos
->ofnInfos
->Flags
& OFN_FILEMUSTEXIST
))
1872 nOpenAction
= ONOPEN_OPEN
;
1874 nOpenAction
= ONOPEN_BROWSE
;
1876 /* don't apply any checks with OFN_NOVALIDATE */
1878 LPWSTR lpszTemp
, lpszTemp1
;
1879 LPITEMIDLIST pidl
= NULL
;
1880 static const WCHAR szwInvalid
[] = { '/',':','<','>','|', 0};
1882 /* check for invalid chars */
1883 if((strpbrkW(lpstrPathAndFile
+3, szwInvalid
) != NULL
) && !(fodInfos
->ofnInfos
->Flags
& OFN_NOVALIDATE
))
1885 FILEDLG95_OnOpenMessage(hwnd
, IDS_INVALID_FILENAME_TITLE
, IDS_INVALID_FILENAME
);
1890 if (FAILED (SHGetDesktopFolder(&lpsf
))) return FALSE
;
1892 lpszTemp1
= lpszTemp
= lpstrPathAndFile
;
1895 LPSHELLFOLDER lpsfChild
;
1896 WCHAR lpwstrTemp
[MAX_PATH
];
1897 DWORD dwEaten
, dwAttributes
;
1900 lstrcpyW(lpwstrTemp
, lpszTemp
);
1901 p
= PathFindNextComponentW(lpwstrTemp
);
1903 if (!p
) break; /* end of path */
1906 lpszTemp
= lpszTemp
+ lstrlenW(lpwstrTemp
);
1908 /* There are no wildcards when OFN_NOVALIDATE is set */
1909 if(*lpszTemp
==0 && !(fodInfos
->ofnInfos
->Flags
& OFN_NOVALIDATE
))
1911 static const WCHAR wszWild
[] = { '*', '?', 0 };
1912 /* if the last element is a wildcard do a search */
1913 if(strpbrkW(lpszTemp1
, wszWild
) != NULL
)
1915 nOpenAction
= ONOPEN_SEARCH
;
1919 lpszTemp1
= lpszTemp
;
1921 TRACE("parse now=%s next=%s sf=%p\n",debugstr_w(lpwstrTemp
), debugstr_w(lpszTemp
), lpsf
);
1923 /* append a backslash to drive letters */
1924 if(lstrlenW(lpwstrTemp
)==2 && lpwstrTemp
[1] == ':' &&
1925 ((lpwstrTemp
[0] >= 'a' && lpwstrTemp
[0] <= 'z') ||
1926 (lpwstrTemp
[0] >= 'A' && lpwstrTemp
[0] <= 'Z')))
1928 PathAddBackslashW(lpwstrTemp
);
1931 dwAttributes
= SFGAO_FOLDER
;
1932 if(SUCCEEDED(IShellFolder_ParseDisplayName(lpsf
, hwnd
, NULL
, lpwstrTemp
, &dwEaten
, &pidl
, &dwAttributes
)))
1934 /* the path component is valid, we have a pidl of the next path component */
1935 TRACE("parse OK attr=0x%08x pidl=%p\n", dwAttributes
, pidl
);
1936 if(dwAttributes
& SFGAO_FOLDER
)
1938 if(FAILED(IShellFolder_BindToObject(lpsf
, pidl
, 0, &IID_IShellFolder
, (LPVOID
*)&lpsfChild
)))
1940 ERR("bind to failed\n"); /* should not fail */
1943 IShellFolder_Release(lpsf
);
1951 /* end dialog, return value */
1952 nOpenAction
= ONOPEN_OPEN
;
1955 COMDLG32_SHFree(pidl
);
1958 else if (!(fodInfos
->ofnInfos
->Flags
& OFN_NOVALIDATE
))
1960 if(*lpszTemp
|| /* points to trailing null for last path element */
1961 (lpwstrTemp
[strlenW(lpwstrTemp
)-1] == '\\')) /* or if last element ends in '\' */
1963 if(fodInfos
->ofnInfos
->Flags
& OFN_PATHMUSTEXIST
)
1965 FILEDLG95_OnOpenMessage(hwnd
, 0, IDS_PATHNOTEXISTING
);
1971 if( (fodInfos
->ofnInfos
->Flags
& OFN_FILEMUSTEXIST
) &&
1972 !( fodInfos
->DlgInfos
.dwDlgProp
& FODPROP_SAVEDLG
) )
1974 FILEDLG95_OnOpenMessage(hwnd
, 0, IDS_FILENOTEXISTING
);
1978 /* change to the current folder */
1979 nOpenAction
= ONOPEN_OPEN
;
1984 nOpenAction
= ONOPEN_OPEN
;
1988 if(pidl
) COMDLG32_SHFree(pidl
);
1992 Step 3: here we have a cleaned up and validated path
1995 lpsf: ShellFolder bound to the rightmost valid path component
1996 lpstrPathAndFile: cleaned up path
1997 nOpenAction: action to do
1999 TRACE("end validate sf=%p\n", lpsf
);
2003 case ONOPEN_SEARCH
: /* set the current filter to the file mask and refresh */
2004 TRACE("ONOPEN_SEARCH %s\n", debugstr_w(lpstrPathAndFile
));
2007 LPWSTR lpszTemp
= PathFindFileNameW(lpstrPathAndFile
);
2010 /* replace the current filter */
2011 MemFree((LPVOID
)fodInfos
->ShellInfos
.lpstrCurrentFilter
);
2012 len
= lstrlenW(lpszTemp
)+1;
2013 fodInfos
->ShellInfos
.lpstrCurrentFilter
= MemAlloc(len
* sizeof(WCHAR
));
2014 lstrcpyW( fodInfos
->ShellInfos
.lpstrCurrentFilter
, lpszTemp
);
2016 /* set the filter cb to the extension when possible */
2017 if(-1 < (iPos
= FILEDLG95_FILETYPE_SearchExt(fodInfos
->DlgInfos
.hwndFileTypeCB
, lpszTemp
)))
2018 CBSetCurSel(fodInfos
->DlgInfos
.hwndFileTypeCB
, iPos
);
2021 case ONOPEN_BROWSE
: /* browse to the highest folder we could bind to */
2022 TRACE("ONOPEN_BROWSE\n");
2024 IPersistFolder2
* ppf2
;
2025 if(SUCCEEDED(IShellFolder_QueryInterface( lpsf
, &IID_IPersistFolder2
, (LPVOID
*)&ppf2
)))
2027 LPITEMIDLIST pidlCurrent
;
2028 IPersistFolder2_GetCurFolder(ppf2
, &pidlCurrent
);
2029 IPersistFolder2_Release(ppf2
);
2030 if( ! COMDLG32_PIDL_ILIsEqual(pidlCurrent
, fodInfos
->ShellInfos
.pidlAbsCurrent
))
2032 if (SUCCEEDED(IShellBrowser_BrowseObject(fodInfos
->Shell
.FOIShellBrowser
, pidlCurrent
, SBSP_ABSOLUTE
)))
2034 SendCustomDlgNotificationMessage(hwnd
, CDN_FOLDERCHANGE
);
2037 else if( nOpenAction
== ONOPEN_SEARCH
)
2039 if (fodInfos
->Shell
.FOIShellView
)
2040 IShellView_Refresh(fodInfos
->Shell
.FOIShellView
);
2042 COMDLG32_SHFree(pidlCurrent
);
2043 SendMessageW(fodInfos
->DlgInfos
.hwndFileName
, EM_SETSEL
, 0, -1);
2048 case ONOPEN_OPEN
: /* fill in the return struct and close the dialog */
2049 TRACE("ONOPEN_OPEN %s\n", debugstr_w(lpstrPathAndFile
));
2053 /* update READONLY check box flag */
2054 if ((SendMessageW(GetDlgItem(hwnd
,IDC_OPENREADONLY
),BM_GETCHECK
,0,0) & 0x03) == BST_CHECKED
)
2055 fodInfos
->ofnInfos
->Flags
|= OFN_READONLY
;
2057 fodInfos
->ofnInfos
->Flags
&= ~OFN_READONLY
;
2059 /* Attach the file extension with file name*/
2060 ext
= PathFindExtensionW(lpstrPathAndFile
);
2063 /* if no extension is specified with file name, then */
2064 /* attach the extension from file filter or default one */
2066 WCHAR
*filterExt
= NULL
;
2067 LPWSTR lpstrFilter
= NULL
;
2068 static const WCHAR szwDot
[] = {'.',0};
2069 int PathLength
= lstrlenW(lpstrPathAndFile
);
2072 lstrcatW(lpstrPathAndFile
, szwDot
);
2074 /*Get the file extension from file type filter*/
2075 lpstrFilter
= (LPWSTR
) CBGetItemDataPtr(fodInfos
->DlgInfos
.hwndFileTypeCB
,
2076 fodInfos
->ofnInfos
->nFilterIndex
-1);
2078 if (lpstrFilter
!= (LPWSTR
)CB_ERR
) /* control is not empty */
2079 filterExt
= PathFindExtensionW(lpstrFilter
);
2081 if ( filterExt
&& *filterExt
) /* attach the file extension from file type filter*/
2082 lstrcatW(lpstrPathAndFile
, filterExt
+ 1);
2083 else if ( fodInfos
->defext
) /* attach the default file extension*/
2084 lstrcatW(lpstrPathAndFile
, fodInfos
->defext
);
2086 /* In Open dialog: if file does not exist try without extension */
2087 if (!(fodInfos
->DlgInfos
.dwDlgProp
& FODPROP_SAVEDLG
) && !PathFileExistsW(lpstrPathAndFile
))
2088 lpstrPathAndFile
[PathLength
] = '\0';
2091 if (fodInfos
->defext
) /* add default extension */
2093 /* Set/clear the output OFN_EXTENSIONDIFFERENT flag */
2096 if (!lstrcmpiW(fodInfos
->defext
, ext
))
2097 fodInfos
->ofnInfos
->Flags
&= ~OFN_EXTENSIONDIFFERENT
;
2099 fodInfos
->ofnInfos
->Flags
|= OFN_EXTENSIONDIFFERENT
;
2102 /* In Save dialog: check if the file already exists */
2103 if (fodInfos
->DlgInfos
.dwDlgProp
& FODPROP_SAVEDLG
2104 && fodInfos
->ofnInfos
->Flags
& OFN_OVERWRITEPROMPT
2105 && PathFileExistsW(lpstrPathAndFile
))
2107 WCHAR lpstrOverwrite
[100];
2110 LoadStringW(COMDLG32_hInstance
, IDS_OVERWRITEFILE
, lpstrOverwrite
, 100);
2111 answer
= MessageBoxW(hwnd
, lpstrOverwrite
, fodInfos
->title
,
2112 MB_YESNO
| MB_ICONEXCLAMATION
);
2120 /* In Open dialog: check if it should be created if it doesn't exist */
2121 if (!(fodInfos
->DlgInfos
.dwDlgProp
& FODPROP_SAVEDLG
)
2122 && fodInfos
->ofnInfos
->Flags
& OFN_CREATEPROMPT
2123 && !PathFileExistsW(lpstrPathAndFile
))
2125 WCHAR lpstrCreate
[100];
2128 LoadStringW(COMDLG32_hInstance
, IDS_CREATEFILE
, lpstrCreate
, 100);
2129 answer
= MessageBoxW(hwnd
, lpstrCreate
, fodInfos
->title
,
2130 MB_YESNO
| MB_ICONEXCLAMATION
);
2138 /* Check that the size of the file does not exceed buffer size.
2139 (Allow for extra \0 if OFN_MULTISELECT is set.) */
2140 if(lstrlenW(lpstrPathAndFile
) < fodInfos
->ofnInfos
->nMaxFile
-
2141 ((fodInfos
->ofnInfos
->Flags
& OFN_ALLOWMULTISELECT
) ? 1 : 0))
2144 /* fill destination buffer */
2145 if (fodInfos
->ofnInfos
->lpstrFile
)
2147 if(fodInfos
->unicode
)
2149 LPOPENFILENAMEW ofn
= fodInfos
->ofnInfos
;
2151 lstrcpynW(ofn
->lpstrFile
, lpstrPathAndFile
, ofn
->nMaxFile
);
2152 if (ofn
->Flags
& OFN_ALLOWMULTISELECT
)
2153 ofn
->lpstrFile
[lstrlenW(ofn
->lpstrFile
) + 1] = '\0';
2157 LPOPENFILENAMEA ofn
= (LPOPENFILENAMEA
)fodInfos
->ofnInfos
;
2159 WideCharToMultiByte(CP_ACP
, 0, lpstrPathAndFile
, -1,
2160 ofn
->lpstrFile
, ofn
->nMaxFile
, NULL
, NULL
);
2161 if (ofn
->Flags
& OFN_ALLOWMULTISELECT
)
2162 ofn
->lpstrFile
[lstrlenA(ofn
->lpstrFile
) + 1] = '\0';
2166 if(fodInfos
->unicode
)
2170 /* set filename offset */
2171 lpszTemp
= PathFindFileNameW(lpstrPathAndFile
);
2172 fodInfos
->ofnInfos
->nFileOffset
= (lpszTemp
- lpstrPathAndFile
);
2174 /* set extension offset */
2175 lpszTemp
= PathFindExtensionW(lpstrPathAndFile
);
2176 fodInfos
->ofnInfos
->nFileExtension
= (*lpszTemp
) ? (lpszTemp
- lpstrPathAndFile
) + 1 : 0;
2181 LPOPENFILENAMEA ofn
= (LPOPENFILENAMEA
)fodInfos
->ofnInfos
;
2183 /* set filename offset */
2184 lpszTemp
= PathFindFileNameA(ofn
->lpstrFile
);
2185 fodInfos
->ofnInfos
->nFileOffset
= (lpszTemp
- ofn
->lpstrFile
);
2187 /* set extension offset */
2188 lpszTemp
= PathFindExtensionA(ofn
->lpstrFile
);
2189 fodInfos
->ofnInfos
->nFileExtension
= (*lpszTemp
) ? (lpszTemp
- ofn
->lpstrFile
) + 1 : 0;
2192 /* set the lpstrFileTitle */
2193 if(fodInfos
->ofnInfos
->lpstrFileTitle
)
2195 LPWSTR lpstrFileTitle
= PathFindFileNameW(lpstrPathAndFile
);
2196 if(fodInfos
->unicode
)
2198 LPOPENFILENAMEW ofn
= fodInfos
->ofnInfos
;
2199 lstrcpynW(ofn
->lpstrFileTitle
, lpstrFileTitle
, ofn
->nMaxFileTitle
);
2203 LPOPENFILENAMEA ofn
= (LPOPENFILENAMEA
)fodInfos
->ofnInfos
;
2204 WideCharToMultiByte(CP_ACP
, 0, lpstrFileTitle
, -1,
2205 ofn
->lpstrFileTitle
, ofn
->nMaxFileTitle
, NULL
, NULL
);
2209 /* copy currently selected filter to lpstrCustomFilter */
2210 if (fodInfos
->ofnInfos
->lpstrCustomFilter
)
2212 LPOPENFILENAMEA ofn
= (LPOPENFILENAMEA
)fodInfos
->ofnInfos
;
2213 int len
= WideCharToMultiByte(CP_ACP
, 0, fodInfos
->ShellInfos
.lpstrCurrentFilter
, -1,
2214 NULL
, 0, NULL
, NULL
);
2215 if (len
+ strlen(ofn
->lpstrCustomFilter
) + 1 <= ofn
->nMaxCustFilter
)
2217 LPSTR s
= ofn
->lpstrCustomFilter
;
2218 s
+= strlen(ofn
->lpstrCustomFilter
)+1;
2219 WideCharToMultiByte(CP_ACP
, 0, fodInfos
->ShellInfos
.lpstrCurrentFilter
, -1,
2220 s
, len
, NULL
, NULL
);
2225 if ( !FILEDLG95_SendFileOK(hwnd
, fodInfos
) )
2229 FILEDLG95_Clean(hwnd
);
2230 ret
= EndDialog(hwnd
, TRUE
);
2236 size
= lstrlenW(lpstrPathAndFile
) + 1;
2237 if (fodInfos
->ofnInfos
->Flags
& OFN_ALLOWMULTISELECT
)
2239 /* return needed size in first two bytes of lpstrFile */
2240 *(WORD
*)fodInfos
->ofnInfos
->lpstrFile
= size
;
2241 FILEDLG95_Clean(hwnd
);
2242 ret
= EndDialog(hwnd
, FALSE
);
2243 COMDLG32_SetCommDlgExtendedError(FNERR_BUFFERTOOSMALL
);
2251 if(lpsf
) IShellFolder_Release(lpsf
);
2255 /***********************************************************************
2256 * FILEDLG95_SHELL_Init
2258 * Initialisation of the shell objects
2260 static LRESULT
FILEDLG95_SHELL_Init(HWND hwnd
)
2262 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
2267 * Initialisation of the FileOpenDialogInfos structure
2273 fodInfos
->ShellInfos
.hwndOwner
= hwnd
;
2275 /* Disable multi-select if flag not set */
2276 if (!(fodInfos
->ofnInfos
->Flags
& OFN_ALLOWMULTISELECT
))
2278 fodInfos
->ShellInfos
.folderSettings
.fFlags
|= FWF_SINGLESEL
;
2280 fodInfos
->ShellInfos
.folderSettings
.fFlags
|= FWF_AUTOARRANGE
| FWF_ALIGNLEFT
;
2281 fodInfos
->ShellInfos
.folderSettings
.ViewMode
= FVM_LIST
;
2283 /* Construct the IShellBrowser interface */
2284 fodInfos
->Shell
.FOIShellBrowser
= IShellBrowserImpl_Construct(hwnd
);
2289 /***********************************************************************
2290 * FILEDLG95_SHELL_ExecuteCommand
2292 * Change the folder option and refresh the view
2293 * If the function succeeds, the return value is nonzero.
2295 static BOOL
FILEDLG95_SHELL_ExecuteCommand(HWND hwnd
, LPCSTR lpVerb
)
2297 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
2300 TRACE("(%p,%p)\n", hwnd
, lpVerb
);
2302 if(SUCCEEDED(IShellView_GetItemObject(fodInfos
->Shell
.FOIShellView
,
2307 CMINVOKECOMMANDINFO ci
;
2308 ZeroMemory(&ci
, sizeof(CMINVOKECOMMANDINFO
));
2309 ci
.cbSize
= sizeof(CMINVOKECOMMANDINFO
);
2313 IContextMenu_InvokeCommand(pcm
, &ci
);
2314 IContextMenu_Release(pcm
);
2320 /***********************************************************************
2321 * FILEDLG95_SHELL_UpFolder
2323 * Browse to the specified object
2324 * If the function succeeds, the return value is nonzero.
2326 static BOOL
FILEDLG95_SHELL_UpFolder(HWND hwnd
)
2328 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
2332 if(SUCCEEDED(IShellBrowser_BrowseObject(fodInfos
->Shell
.FOIShellBrowser
,
2336 SendCustomDlgNotificationMessage(hwnd
, CDN_FOLDERCHANGE
);
2342 /***********************************************************************
2343 * FILEDLG95_SHELL_BrowseToDesktop
2345 * Browse to the Desktop
2346 * If the function succeeds, the return value is nonzero.
2348 static BOOL
FILEDLG95_SHELL_BrowseToDesktop(HWND hwnd
)
2350 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
2356 SHGetSpecialFolderLocation(0,CSIDL_DESKTOP
,&pidl
);
2357 hres
= IShellBrowser_BrowseObject(fodInfos
->Shell
.FOIShellBrowser
, pidl
, SBSP_ABSOLUTE
);
2358 SendCustomDlgNotificationMessage(hwnd
, CDN_FOLDERCHANGE
);
2359 COMDLG32_SHFree(pidl
);
2360 return SUCCEEDED(hres
);
2362 /***********************************************************************
2363 * FILEDLG95_SHELL_Clean
2365 * Cleans the memory used by shell objects
2367 static void FILEDLG95_SHELL_Clean(HWND hwnd
)
2369 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
2373 COMDLG32_SHFree(fodInfos
->ShellInfos
.pidlAbsCurrent
);
2375 /* clean Shell interfaces */
2376 if (fodInfos
->Shell
.FOIShellView
)
2378 IShellView_DestroyViewWindow(fodInfos
->Shell
.FOIShellView
);
2379 IShellView_Release(fodInfos
->Shell
.FOIShellView
);
2381 IShellFolder_Release(fodInfos
->Shell
.FOIShellFolder
);
2382 IShellBrowser_Release(fodInfos
->Shell
.FOIShellBrowser
);
2383 if (fodInfos
->Shell
.FOIDataObject
)
2384 IDataObject_Release(fodInfos
->Shell
.FOIDataObject
);
2387 /***********************************************************************
2388 * FILEDLG95_FILETYPE_Init
2390 * Initialisation of the file type combo box
2392 static HRESULT
FILEDLG95_FILETYPE_Init(HWND hwnd
)
2394 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
2395 int nFilters
= 0; /* number of filters */
2400 if(fodInfos
->customfilter
)
2402 /* customfilter has one entry... title\0ext\0
2403 * Set first entry of combo box item with customfilter
2406 LPCWSTR lpstrPos
= fodInfos
->customfilter
;
2409 lpstrPos
+= lstrlenW(fodInfos
->customfilter
) + 1;
2411 /* Copy the extensions */
2412 if (! *lpstrPos
) return E_FAIL
; /* malformed filter */
2413 if (!(lpstrExt
= MemAlloc((lstrlenW(lpstrPos
)+1)*sizeof(WCHAR
)))) return E_FAIL
;
2414 lstrcpyW(lpstrExt
,lpstrPos
);
2416 /* Add the item at the end of the combo */
2417 CBAddString(fodInfos
->DlgInfos
.hwndFileTypeCB
, fodInfos
->customfilter
);
2418 CBSetItemDataPtr(fodInfos
->DlgInfos
.hwndFileTypeCB
, nFilters
, lpstrExt
);
2421 if(fodInfos
->filter
)
2423 LPCWSTR lpstrPos
= fodInfos
->filter
;
2427 /* filter is a list... title\0ext\0......\0\0
2428 * Set the combo item text to the title and the item data
2431 LPCWSTR lpstrDisplay
;
2435 if(! *lpstrPos
) break; /* end */
2436 lpstrDisplay
= lpstrPos
;
2437 lpstrPos
+= lstrlenW(lpstrPos
) + 1;
2439 CBAddString(fodInfos
->DlgInfos
.hwndFileTypeCB
, lpstrDisplay
);
2443 /* Copy the extensions */
2444 if (!(lpstrExt
= MemAlloc((lstrlenW(lpstrPos
)+1)*sizeof(WCHAR
)))) return E_FAIL
;
2445 lstrcpyW(lpstrExt
,lpstrPos
);
2446 lpstrPos
+= lstrlenW(lpstrPos
) + 1;
2448 /* Add the item at the end of the combo */
2449 CBSetItemDataPtr(fodInfos
->DlgInfos
.hwndFileTypeCB
, nFilters
-1, lpstrExt
);
2451 /* malformed filters are added anyway... */
2452 if (!*lpstrExt
) break;
2457 * Set the current filter to the one specified
2458 * in the initialisation structure
2460 if (fodInfos
->filter
|| fodInfos
->customfilter
)
2464 /* Check to make sure our index isn't out of bounds. */
2465 if ( fodInfos
->ofnInfos
->nFilterIndex
>
2466 nFilters
- (fodInfos
->customfilter
== NULL
? 0 : 1) )
2467 fodInfos
->ofnInfos
->nFilterIndex
= (fodInfos
->customfilter
== NULL
? 1 : 0);
2469 /* set default filter index */
2470 if(fodInfos
->ofnInfos
->nFilterIndex
== 0 && fodInfos
->customfilter
== NULL
)
2471 fodInfos
->ofnInfos
->nFilterIndex
= 1;
2473 /* calculate index of Combo Box item */
2474 nFilterIndexCB
= fodInfos
->ofnInfos
->nFilterIndex
;
2475 if (fodInfos
->customfilter
== NULL
)
2478 /* Set the current index selection. */
2479 CBSetCurSel(fodInfos
->DlgInfos
.hwndFileTypeCB
, nFilterIndexCB
);
2481 /* Get the corresponding text string from the combo box. */
2482 lpstrFilter
= (LPWSTR
) CBGetItemDataPtr(fodInfos
->DlgInfos
.hwndFileTypeCB
,
2485 if ((INT_PTR
)lpstrFilter
== CB_ERR
) /* control is empty */
2491 CharLowerW(lpstrFilter
); /* lowercase */
2492 len
= lstrlenW(lpstrFilter
)+1;
2493 fodInfos
->ShellInfos
.lpstrCurrentFilter
= MemAlloc( len
* sizeof(WCHAR
) );
2494 lstrcpyW(fodInfos
->ShellInfos
.lpstrCurrentFilter
,lpstrFilter
);
2497 fodInfos
->ofnInfos
->nFilterIndex
= 0;
2501 /***********************************************************************
2502 * FILEDLG95_FILETYPE_OnCommand
2504 * WM_COMMAND of the file type combo box
2505 * If the function succeeds, the return value is nonzero.
2507 static BOOL
FILEDLG95_FILETYPE_OnCommand(HWND hwnd
, WORD wNotifyCode
)
2509 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
2517 /* Get the current item of the filetype combo box */
2518 int iItem
= CBGetCurSel(fodInfos
->DlgInfos
.hwndFileTypeCB
);
2520 /* set the current filter index */
2521 fodInfos
->ofnInfos
->nFilterIndex
= iItem
+
2522 (fodInfos
->customfilter
== NULL
? 1 : 0);
2524 /* Set the current filter with the current selection */
2525 MemFree((LPVOID
)fodInfos
->ShellInfos
.lpstrCurrentFilter
);
2527 lpstrFilter
= (LPWSTR
) CBGetItemDataPtr(fodInfos
->DlgInfos
.hwndFileTypeCB
,
2529 if((INT_PTR
)lpstrFilter
!= CB_ERR
)
2532 CharLowerW(lpstrFilter
); /* lowercase */
2533 len
= lstrlenW(lpstrFilter
)+1;
2534 fodInfos
->ShellInfos
.lpstrCurrentFilter
= MemAlloc( len
* sizeof(WCHAR
) );
2535 lstrcpyW(fodInfos
->ShellInfos
.lpstrCurrentFilter
,lpstrFilter
);
2536 SendCustomDlgNotificationMessage(hwnd
,CDN_TYPECHANGE
);
2539 /* Refresh the actual view to display the included items*/
2540 if (fodInfos
->Shell
.FOIShellView
)
2541 IShellView_Refresh(fodInfos
->Shell
.FOIShellView
);
2546 /***********************************************************************
2547 * FILEDLG95_FILETYPE_SearchExt
2549 * searches for an extension in the filetype box
2551 static int FILEDLG95_FILETYPE_SearchExt(HWND hwnd
,LPCWSTR lpstrExt
)
2553 int i
, iCount
= CBGetCount(hwnd
);
2555 TRACE("%s\n", debugstr_w(lpstrExt
));
2557 if(iCount
!= CB_ERR
)
2559 for(i
=0;i
<iCount
;i
++)
2561 if(!lstrcmpiW(lpstrExt
,(LPWSTR
)CBGetItemDataPtr(hwnd
,i
)))
2568 /***********************************************************************
2569 * FILEDLG95_FILETYPE_Clean
2571 * Clean the memory used by the filetype combo box
2573 static void FILEDLG95_FILETYPE_Clean(HWND hwnd
)
2575 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
2577 int iCount
= CBGetCount(fodInfos
->DlgInfos
.hwndFileTypeCB
);
2581 /* Delete each string of the combo and their associated data */
2582 if(iCount
!= CB_ERR
)
2584 for(iPos
= iCount
-1;iPos
>=0;iPos
--)
2586 MemFree((LPSTR
) CBGetItemDataPtr(fodInfos
->DlgInfos
.hwndFileTypeCB
,iPos
));
2587 CBDeleteString(fodInfos
->DlgInfos
.hwndFileTypeCB
,iPos
);
2590 /* Current filter */
2591 MemFree(fodInfos
->ShellInfos
.lpstrCurrentFilter
);
2595 /***********************************************************************
2596 * FILEDLG95_LOOKIN_Init
2598 * Initialisation of the look in combo box
2601 /* Small helper function, to determine if the unixfs shell extension is rooted
2602 * at the desktop. Copied from dlls/shell32/shfldr_unixfs.c.
2604 static inline BOOL
FILEDLG95_unixfs_is_rooted_at_desktop(void) {
2606 static const WCHAR wszRootedAtDesktop
[] = { 'S','o','f','t','w','a','r','e','\\',
2607 'M','i','c','r','o','s','o','f','t','\\','W','i','n','d','o','w','s','\\',
2608 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
2609 'E','x','p','l','o','r','e','r','\\','D','e','s','k','t','o','p','\\',
2610 'N','a','m','e','S','p','a','c','e','\\','{','9','D','2','0','A','A','E','8',
2611 '-','0','6','2','5','-','4','4','B','0','-','9','C','A','7','-',
2612 '7','1','8','8','9','C','2','2','5','4','D','9','}',0 };
2614 if (RegOpenKeyExW(HKEY_LOCAL_MACHINE
, wszRootedAtDesktop
, 0, KEY_READ
, &hKey
) != ERROR_SUCCESS
)
2621 static void FILEDLG95_LOOKIN_Init(HWND hwndCombo
)
2623 IShellFolder
*psfRoot
, *psfDrives
;
2624 IEnumIDList
*lpeRoot
, *lpeDrives
;
2625 LPITEMIDLIST pidlDrives
, pidlTmp
, pidlTmp1
, pidlAbsTmp
;
2627 LookInInfos
*liInfos
= MemAlloc(sizeof(LookInInfos
));
2631 liInfos
->iMaxIndentation
= 0;
2633 SetPropA(hwndCombo
, LookInInfosStr
, (HANDLE
) liInfos
);
2635 /* set item height for both text field and listbox */
2636 CBSetItemHeight(hwndCombo
,-1,GetSystemMetrics(SM_CYSMICON
));
2637 CBSetItemHeight(hwndCombo
,0,GetSystemMetrics(SM_CYSMICON
));
2639 /* Turn on the extended UI for the combo box like Windows does */
2640 CBSetExtendedUI(hwndCombo
, TRUE
);
2642 /* Initialise data of Desktop folder */
2643 SHGetSpecialFolderLocation(0,CSIDL_DESKTOP
,&pidlTmp
);
2644 FILEDLG95_LOOKIN_AddItem(hwndCombo
, pidlTmp
,LISTEND
);
2645 COMDLG32_SHFree(pidlTmp
);
2647 SHGetSpecialFolderLocation(0,CSIDL_DRIVES
,&pidlDrives
);
2649 SHGetDesktopFolder(&psfRoot
);
2653 /* enumerate the contents of the desktop */
2654 if(SUCCEEDED(IShellFolder_EnumObjects(psfRoot
, hwndCombo
, SHCONTF_FOLDERS
, &lpeRoot
)))
2656 while (S_OK
== IEnumIDList_Next(lpeRoot
, 1, &pidlTmp
, NULL
))
2658 FILEDLG95_LOOKIN_AddItem(hwndCombo
, pidlTmp
,LISTEND
);
2660 /* If the unixfs extension is rooted, we don't expand the drives by default */
2661 if (!FILEDLG95_unixfs_is_rooted_at_desktop())
2663 /* special handling for CSIDL_DRIVES */
2664 if (COMDLG32_PIDL_ILIsEqual(pidlTmp
, pidlDrives
))
2666 if(SUCCEEDED(IShellFolder_BindToObject(psfRoot
, pidlTmp
, NULL
, &IID_IShellFolder
, (LPVOID
*)&psfDrives
)))
2668 /* enumerate the drives */
2669 if(SUCCEEDED(IShellFolder_EnumObjects(psfDrives
, hwndCombo
,SHCONTF_FOLDERS
, &lpeDrives
)))
2671 while (S_OK
== IEnumIDList_Next(lpeDrives
, 1, &pidlTmp1
, NULL
))
2673 pidlAbsTmp
= COMDLG32_PIDL_ILCombine(pidlTmp
, pidlTmp1
);
2674 FILEDLG95_LOOKIN_AddItem(hwndCombo
, pidlAbsTmp
,LISTEND
);
2675 COMDLG32_SHFree(pidlAbsTmp
);
2676 COMDLG32_SHFree(pidlTmp1
);
2678 IEnumIDList_Release(lpeDrives
);
2680 IShellFolder_Release(psfDrives
);
2685 COMDLG32_SHFree(pidlTmp
);
2687 IEnumIDList_Release(lpeRoot
);
2689 IShellFolder_Release(psfRoot
);
2692 COMDLG32_SHFree(pidlDrives
);
2695 /***********************************************************************
2696 * FILEDLG95_LOOKIN_DrawItem
2698 * WM_DRAWITEM message handler
2700 static LRESULT
FILEDLG95_LOOKIN_DrawItem(LPDRAWITEMSTRUCT pDIStruct
)
2702 COLORREF crWin
= GetSysColor(COLOR_WINDOW
);
2703 COLORREF crHighLight
= GetSysColor(COLOR_HIGHLIGHT
);
2704 COLORREF crText
= GetSysColor(COLOR_WINDOWTEXT
);
2708 HIMAGELIST ilItemImage
;
2711 LPSFOLDER tmpFolder
;
2714 LookInInfos
*liInfos
= (LookInInfos
*)GetPropA(pDIStruct
->hwndItem
,LookInInfosStr
);
2718 if(pDIStruct
->itemID
== -1)
2721 if(!(tmpFolder
= (LPSFOLDER
) CBGetItemDataPtr(pDIStruct
->hwndItem
,
2722 pDIStruct
->itemID
)))
2726 if(pDIStruct
->itemID
== liInfos
->uSelectedItem
)
2728 ilItemImage
= (HIMAGELIST
) SHGetFileInfoW ((LPCWSTR
) tmpFolder
->pidlItem
,
2732 SHGFI_PIDL
| SHGFI_SMALLICON
|
2733 SHGFI_OPENICON
| SHGFI_SYSICONINDEX
|
2734 SHGFI_DISPLAYNAME
);
2738 ilItemImage
= (HIMAGELIST
) SHGetFileInfoW ((LPCWSTR
) tmpFolder
->pidlItem
,
2742 SHGFI_PIDL
| SHGFI_SMALLICON
|
2743 SHGFI_SYSICONINDEX
|
2747 /* Is this item selected ? */
2748 if(pDIStruct
->itemState
& ODS_SELECTED
)
2750 SetTextColor(pDIStruct
->hDC
,(0x00FFFFFF & ~(crText
)));
2751 SetBkColor(pDIStruct
->hDC
,crHighLight
);
2752 FillRect(pDIStruct
->hDC
,&pDIStruct
->rcItem
,GetSysColorBrush(COLOR_HIGHLIGHT
));
2756 SetTextColor(pDIStruct
->hDC
,crText
);
2757 SetBkColor(pDIStruct
->hDC
,crWin
);
2758 FillRect(pDIStruct
->hDC
,&pDIStruct
->rcItem
,GetSysColorBrush(COLOR_WINDOW
));
2761 /* Do not indent item if drawing in the edit of the combo */
2762 if(pDIStruct
->itemState
& ODS_COMBOBOXEDIT
)
2765 ilItemImage
= (HIMAGELIST
) SHGetFileInfoW ((LPCWSTR
) tmpFolder
->pidlItem
,
2769 SHGFI_PIDL
| SHGFI_SMALLICON
| SHGFI_OPENICON
2770 | SHGFI_SYSICONINDEX
| SHGFI_DISPLAYNAME
);
2775 iIndentation
= tmpFolder
->m_iIndent
;
2777 /* Draw text and icon */
2779 /* Initialise the icon display area */
2780 rectIcon
.left
= pDIStruct
->rcItem
.left
+ ICONWIDTH
/2 * iIndentation
;
2781 rectIcon
.top
= pDIStruct
->rcItem
.top
;
2782 rectIcon
.right
= rectIcon
.left
+ ICONWIDTH
;
2783 rectIcon
.bottom
= pDIStruct
->rcItem
.bottom
;
2785 /* Initialise the text display area */
2786 GetTextMetricsW(pDIStruct
->hDC
, &tm
);
2787 rectText
.left
= rectIcon
.right
;
2789 (pDIStruct
->rcItem
.top
+ pDIStruct
->rcItem
.bottom
- tm
.tmHeight
) / 2;
2790 rectText
.right
= pDIStruct
->rcItem
.right
+ XTEXTOFFSET
;
2792 (pDIStruct
->rcItem
.top
+ pDIStruct
->rcItem
.bottom
+ tm
.tmHeight
) / 2;
2794 /* Draw the icon from the image list */
2795 ImageList_Draw(ilItemImage
,
2802 /* Draw the associated text */
2803 if(sfi
.szDisplayName
)
2804 TextOutW(pDIStruct
->hDC
,rectText
.left
,rectText
.top
,sfi
.szDisplayName
,lstrlenW(sfi
.szDisplayName
));
2810 /***********************************************************************
2811 * FILEDLG95_LOOKIN_OnCommand
2813 * LookIn combo box WM_COMMAND message handler
2814 * If the function succeeds, the return value is nonzero.
2816 static BOOL
FILEDLG95_LOOKIN_OnCommand(HWND hwnd
, WORD wNotifyCode
)
2818 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
2820 TRACE("%p\n", fodInfos
);
2826 LPSFOLDER tmpFolder
;
2829 iItem
= CBGetCurSel(fodInfos
->DlgInfos
.hwndLookInCB
);
2831 if(!(tmpFolder
= (LPSFOLDER
) CBGetItemDataPtr(fodInfos
->DlgInfos
.hwndLookInCB
,
2836 if(SUCCEEDED(IShellBrowser_BrowseObject(fodInfos
->Shell
.FOIShellBrowser
,
2837 tmpFolder
->pidlItem
,
2840 SendCustomDlgNotificationMessage(hwnd
, CDN_FOLDERCHANGE
);
2850 /***********************************************************************
2851 * FILEDLG95_LOOKIN_AddItem
2853 * Adds an absolute pidl item to the lookin combo box
2854 * returns the index of the inserted item
2856 static int FILEDLG95_LOOKIN_AddItem(HWND hwnd
,LPITEMIDLIST pidl
, int iInsertId
)
2858 LPITEMIDLIST pidlNext
;
2861 LookInInfos
*liInfos
;
2863 TRACE("%08x\n", iInsertId
);
2868 if(!(liInfos
= (LookInInfos
*)GetPropA(hwnd
,LookInInfosStr
)))
2871 tmpFolder
= MemAlloc(sizeof(SFOLDER
));
2872 tmpFolder
->m_iIndent
= 0;
2874 /* Calculate the indentation of the item in the lookin*/
2876 while( (pidlNext
=COMDLG32_PIDL_ILGetNext(pidlNext
)) )
2878 tmpFolder
->m_iIndent
++;
2881 tmpFolder
->pidlItem
= COMDLG32_PIDL_ILClone(pidl
);
2883 if(tmpFolder
->m_iIndent
> liInfos
->iMaxIndentation
)
2884 liInfos
->iMaxIndentation
= tmpFolder
->m_iIndent
;
2886 sfi
.dwAttributes
= SFGAO_FILESYSANCESTOR
| SFGAO_FILESYSTEM
;
2887 SHGetFileInfoW((LPCWSTR
)pidl
,
2891 SHGFI_DISPLAYNAME
| SHGFI_SYSICONINDEX
2892 | SHGFI_PIDL
| SHGFI_SMALLICON
| SHGFI_ATTRIBUTES
| SHGFI_ATTR_SPECIFIED
);
2894 TRACE("-- Add %s attr=%08x\n", debugstr_w(sfi
.szDisplayName
), sfi
.dwAttributes
);
2896 if((sfi
.dwAttributes
& SFGAO_FILESYSANCESTOR
) || (sfi
.dwAttributes
& SFGAO_FILESYSTEM
))
2900 TRACE("-- Add %s at %u\n", debugstr_w(sfi
.szDisplayName
), tmpFolder
->m_iIndent
);
2902 /* Add the item at the end of the list */
2905 iItemID
= CBAddString(hwnd
,sfi
.szDisplayName
);
2907 /* Insert the item at the iInsertId position*/
2910 iItemID
= CBInsertString(hwnd
,sfi
.szDisplayName
,iInsertId
);
2913 CBSetItemDataPtr(hwnd
,iItemID
,tmpFolder
);
2917 COMDLG32_SHFree( tmpFolder
->pidlItem
);
2918 MemFree( tmpFolder
);
2923 /***********************************************************************
2924 * FILEDLG95_LOOKIN_InsertItemAfterParent
2926 * Insert an item below its parent
2928 static int FILEDLG95_LOOKIN_InsertItemAfterParent(HWND hwnd
,LPITEMIDLIST pidl
)
2931 LPITEMIDLIST pidlParent
= GetParentPidl(pidl
);
2936 iParentPos
= FILEDLG95_LOOKIN_SearchItem(hwnd
,(WPARAM
)pidlParent
,SEARCH_PIDL
);
2940 iParentPos
= FILEDLG95_LOOKIN_InsertItemAfterParent(hwnd
,pidlParent
);
2943 /* Free pidlParent memory */
2944 COMDLG32_SHFree((LPVOID
)pidlParent
);
2946 return FILEDLG95_LOOKIN_AddItem(hwnd
,pidl
,iParentPos
+ 1);
2949 /***********************************************************************
2950 * FILEDLG95_LOOKIN_SelectItem
2952 * Adds an absolute pidl item to the lookin combo box
2953 * returns the index of the inserted item
2955 int FILEDLG95_LOOKIN_SelectItem(HWND hwnd
,LPITEMIDLIST pidl
)
2958 LookInInfos
*liInfos
;
2962 iItemPos
= FILEDLG95_LOOKIN_SearchItem(hwnd
,(WPARAM
)pidl
,SEARCH_PIDL
);
2964 liInfos
= (LookInInfos
*)GetPropA(hwnd
,LookInInfosStr
);
2968 while(FILEDLG95_LOOKIN_RemoveMostExpandedItem(hwnd
) > -1);
2969 iItemPos
= FILEDLG95_LOOKIN_InsertItemAfterParent(hwnd
,pidl
);
2974 SFOLDER
*tmpFolder
= (LPSFOLDER
) CBGetItemDataPtr(hwnd
,iItemPos
);
2975 while(liInfos
->iMaxIndentation
> tmpFolder
->m_iIndent
)
2979 if(-1 == (iRemovedItem
= FILEDLG95_LOOKIN_RemoveMostExpandedItem(hwnd
)))
2981 if(iRemovedItem
< iItemPos
)
2986 CBSetCurSel(hwnd
,iItemPos
);
2987 liInfos
->uSelectedItem
= iItemPos
;
2993 /***********************************************************************
2994 * FILEDLG95_LOOKIN_RemoveMostExpandedItem
2996 * Remove the item with an expansion level over iExpansionLevel
2998 static int FILEDLG95_LOOKIN_RemoveMostExpandedItem(HWND hwnd
)
3002 LookInInfos
*liInfos
= (LookInInfos
*)GetPropA(hwnd
,LookInInfosStr
);
3006 if(liInfos
->iMaxIndentation
<= 2)
3009 if((iItemPos
= FILEDLG95_LOOKIN_SearchItem(hwnd
,(WPARAM
)liInfos
->iMaxIndentation
,SEARCH_EXP
)) >=0)
3011 SFOLDER
*tmpFolder
= (LPSFOLDER
) CBGetItemDataPtr(hwnd
,iItemPos
);
3012 COMDLG32_SHFree(tmpFolder
->pidlItem
);
3014 CBDeleteString(hwnd
,iItemPos
);
3015 liInfos
->iMaxIndentation
--;
3023 /***********************************************************************
3024 * FILEDLG95_LOOKIN_SearchItem
3026 * Search for pidl in the lookin combo box
3027 * returns the index of the found item
3029 static int FILEDLG95_LOOKIN_SearchItem(HWND hwnd
,WPARAM searchArg
,int iSearchMethod
)
3032 int iCount
= CBGetCount(hwnd
);
3034 TRACE("0x%08lx 0x%x\n",searchArg
, iSearchMethod
);
3036 if (iCount
!= CB_ERR
)
3040 LPSFOLDER tmpFolder
= (LPSFOLDER
) CBGetItemDataPtr(hwnd
,i
);
3042 if(iSearchMethod
== SEARCH_PIDL
&& COMDLG32_PIDL_ILIsEqual((LPITEMIDLIST
)searchArg
,tmpFolder
->pidlItem
))
3044 if(iSearchMethod
== SEARCH_EXP
&& tmpFolder
->m_iIndent
== (int)searchArg
)
3052 /***********************************************************************
3053 * FILEDLG95_LOOKIN_Clean
3055 * Clean the memory used by the lookin combo box
3057 static void FILEDLG95_LOOKIN_Clean(HWND hwnd
)
3059 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
3061 int iCount
= CBGetCount(fodInfos
->DlgInfos
.hwndLookInCB
);
3065 /* Delete each string of the combo and their associated data */
3066 if (iCount
!= CB_ERR
)
3068 for(iPos
= iCount
-1;iPos
>=0;iPos
--)
3070 SFOLDER
*tmpFolder
= (LPSFOLDER
) CBGetItemDataPtr(fodInfos
->DlgInfos
.hwndLookInCB
,iPos
);
3071 COMDLG32_SHFree(tmpFolder
->pidlItem
);
3073 CBDeleteString(fodInfos
->DlgInfos
.hwndLookInCB
,iPos
);
3077 /* LookInInfos structure */
3078 RemovePropA(fodInfos
->DlgInfos
.hwndLookInCB
,LookInInfosStr
);
3081 /***********************************************************************
3082 * FILEDLG95_FILENAME_FillFromSelection
3084 * fills the edit box from the cached DataObject
3086 void FILEDLG95_FILENAME_FillFromSelection (HWND hwnd
)
3088 FileOpenDlgInfos
*fodInfos
;
3090 UINT nFiles
= 0, nFileToOpen
, nFileSelected
, nLength
= 0;
3091 WCHAR lpstrTemp
[MAX_PATH
];
3092 LPWSTR lpstrAllFile
, lpstrCurrFile
;
3095 fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
3097 /* Count how many files we have */
3098 nFileSelected
= GetNumSelected( fodInfos
->Shell
.FOIDataObject
);
3100 /* calculate the string length, count files */
3101 if (nFileSelected
>= 1)
3103 nLength
+= 3; /* first and last quotes, trailing \0 */
3104 for ( nFileToOpen
= 0; nFileToOpen
< nFileSelected
; nFileToOpen
++ )
3106 pidl
= GetPidlFromDataObject( fodInfos
->Shell
.FOIDataObject
, nFileToOpen
+1 );
3110 /* get the total length of the selected file names */
3111 lpstrTemp
[0] = '\0';
3112 GetName( fodInfos
->Shell
.FOIShellFolder
, pidl
, SHGDN_INFOLDER
|SHGDN_FORPARSING
, lpstrTemp
);
3114 if ( ! IsPidlFolder(fodInfos
->Shell
.FOIShellFolder
, pidl
) ) /* Ignore folders */
3116 nLength
+= lstrlenW( lpstrTemp
) + 3;
3119 COMDLG32_SHFree( pidl
);
3124 /* allocate the buffer */
3125 if (nFiles
<= 1) nLength
= MAX_PATH
;
3126 lpstrAllFile
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, nLength
* sizeof(WCHAR
));
3128 /* Generate the string for the edit control */
3131 lpstrCurrFile
= lpstrAllFile
;
3132 for ( nFileToOpen
= 0; nFileToOpen
< nFileSelected
; nFileToOpen
++ )
3134 pidl
= GetPidlFromDataObject( fodInfos
->Shell
.FOIDataObject
, nFileToOpen
+1 );
3138 /* get the file name */
3139 lpstrTemp
[0] = '\0';
3140 GetName( fodInfos
->Shell
.FOIShellFolder
, pidl
, SHGDN_INFOLDER
|SHGDN_FORPARSING
, lpstrTemp
);
3142 if (! IsPidlFolder(fodInfos
->Shell
.FOIShellFolder
, pidl
)) /* Ignore folders */
3146 *lpstrCurrFile
++ = '\"';
3147 lstrcpyW( lpstrCurrFile
, lpstrTemp
);
3148 lpstrCurrFile
+= lstrlenW( lpstrTemp
);
3149 *lpstrCurrFile
++ = '\"';
3150 *lpstrCurrFile
++ = ' ';
3155 lstrcpyW( lpstrAllFile
, lpstrTemp
);
3158 COMDLG32_SHFree( (LPVOID
) pidl
);
3161 SetWindowTextW( fodInfos
->DlgInfos
.hwndFileName
, lpstrAllFile
);
3163 /* Select the file name like Windows does */
3164 SendMessageW(fodInfos
->DlgInfos
.hwndFileName
, EM_SETSEL
, 0, (LPARAM
)-1);
3166 HeapFree(GetProcessHeap(),0, lpstrAllFile
);
3170 /* copied from shell32 to avoid linking to it
3171 * Although shell32 is already linked the behaviour of exported StrRetToStrN
3172 * is dependent on whether emulated OS is unicode or not.
3174 static HRESULT
COMDLG32_StrRetToStrNW (LPWSTR dest
, DWORD len
, LPSTRRET src
, LPITEMIDLIST pidl
)
3179 lstrcpynW(dest
, src
->u
.pOleStr
, len
);
3180 COMDLG32_SHFree(src
->u
.pOleStr
);
3184 if (!MultiByteToWideChar( CP_ACP
, 0, src
->u
.cStr
, -1, dest
, len
) && len
)
3189 if (!MultiByteToWideChar( CP_ACP
, 0, ((LPCSTR
)&pidl
->mkid
)+src
->u
.uOffset
, -1, dest
, len
) && len
)
3194 FIXME("unknown type %x!\n", src
->uType
);
3195 if (len
) *dest
= '\0';
3201 /***********************************************************************
3202 * FILEDLG95_FILENAME_GetFileNames
3204 * Copies the filenames to a delimited string list.
3205 * The delimiter is specified by the parameter 'separator',
3206 * usually either a space or a nul
3208 static int FILEDLG95_FILENAME_GetFileNames (HWND hwnd
, LPWSTR
* lpstrFileList
, UINT
* sizeUsed
, char separator
)
3210 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
3211 UINT nStrCharCount
= 0; /* index in src buffer */
3212 UINT nFileIndex
= 0; /* index in dest buffer */
3213 UINT nFileCount
= 0; /* number of files */
3214 UINT nStrLen
= 0; /* length of string in edit control */
3215 LPWSTR lpstrEdit
; /* buffer for string from edit control */
3219 /* get the filenames from the edit control */
3220 nStrLen
= SendMessageW(fodInfos
->DlgInfos
.hwndFileName
, WM_GETTEXTLENGTH
, 0, 0);
3221 lpstrEdit
= MemAlloc( (nStrLen
+1)*sizeof(WCHAR
) );
3222 GetDlgItemTextW(hwnd
, IDC_FILENAME
, lpstrEdit
, nStrLen
+1);
3224 TRACE("nStrLen=%u str=%s\n", nStrLen
, debugstr_w(lpstrEdit
));
3226 /* we might get single filename without any '"',
3227 * so we need nStrLen + terminating \0 + end-of-list \0 */
3228 *lpstrFileList
= MemAlloc( (nStrLen
+2)*sizeof(WCHAR
) );
3231 /* build delimited file list from filenames */
3232 while ( nStrCharCount
<= nStrLen
)
3234 if ( lpstrEdit
[nStrCharCount
]=='"' )
3237 while ((lpstrEdit
[nStrCharCount
]!='"') && (nStrCharCount
<= nStrLen
))
3239 (*lpstrFileList
)[nFileIndex
++] = lpstrEdit
[nStrCharCount
];
3243 (*lpstrFileList
)[nFileIndex
++] = separator
;
3250 /* single, unquoted string */
3251 if ((nStrLen
> 0) && (*sizeUsed
== 0) )
3253 lstrcpyW(*lpstrFileList
, lpstrEdit
);
3254 nFileIndex
= lstrlenW(lpstrEdit
) + 1;
3255 (*sizeUsed
) = nFileIndex
;
3260 (*lpstrFileList
)[nFileIndex
] = '\0';
3267 #define SETDefFormatEtc(fe,cf,med) \
3269 (fe).cfFormat = cf;\
3270 (fe).dwAspect = DVASPECT_CONTENT; \
3277 * DATAOBJECT Helper functions
3280 /***********************************************************************
3281 * COMCTL32_ReleaseStgMedium
3283 * like ReleaseStgMedium from ole32
3285 static void COMCTL32_ReleaseStgMedium (STGMEDIUM medium
)
3287 if(medium
.pUnkForRelease
)
3289 IUnknown_Release(medium
.pUnkForRelease
);
3293 GlobalUnlock(medium
.u
.hGlobal
);
3294 GlobalFree(medium
.u
.hGlobal
);
3298 /***********************************************************************
3299 * GetPidlFromDataObject
3301 * Return pidl(s) by number from the cached DataObject
3303 * nPidlIndex=0 gets the fully qualified root path
3305 LPITEMIDLIST
GetPidlFromDataObject ( IDataObject
*doSelected
, UINT nPidlIndex
)
3309 FORMATETC formatetc
;
3310 LPITEMIDLIST pidl
= NULL
;
3312 TRACE("sv=%p index=%u\n", doSelected
, nPidlIndex
);
3317 /* Set the FORMATETC structure*/
3318 SETDefFormatEtc(formatetc
, RegisterClipboardFormatA(CFSTR_SHELLIDLIST
), TYMED_HGLOBAL
);
3320 /* Get the pidls from IDataObject */
3321 if(SUCCEEDED(IDataObject_GetData(doSelected
,&formatetc
,&medium
)))
3323 LPIDA cida
= GlobalLock(medium
.u
.hGlobal
);
3324 if(nPidlIndex
<= cida
->cidl
)
3326 pidl
= COMDLG32_PIDL_ILClone((LPITEMIDLIST
)(&((LPBYTE
)cida
)[cida
->aoffset
[nPidlIndex
]]));
3328 COMCTL32_ReleaseStgMedium(medium
);
3333 /***********************************************************************
3336 * Return the number of selected items in the DataObject.
3339 UINT
GetNumSelected( IDataObject
*doSelected
)
3343 FORMATETC formatetc
;
3345 TRACE("sv=%p\n", doSelected
);
3347 if (!doSelected
) return 0;
3349 /* Set the FORMATETC structure*/
3350 SETDefFormatEtc(formatetc
, RegisterClipboardFormatA(CFSTR_SHELLIDLIST
), TYMED_HGLOBAL
);
3352 /* Get the pidls from IDataObject */
3353 if(SUCCEEDED(IDataObject_GetData(doSelected
,&formatetc
,&medium
)))
3355 LPIDA cida
= GlobalLock(medium
.u
.hGlobal
);
3356 retVal
= cida
->cidl
;
3357 COMCTL32_ReleaseStgMedium(medium
);
3367 /***********************************************************************
3370 * Get the pidl's display name (relative to folder) and
3371 * put it in lpstrFileName.
3373 * Return NOERROR on success,
3377 static HRESULT
GetName(LPSHELLFOLDER lpsf
, LPITEMIDLIST pidl
,DWORD dwFlags
,LPWSTR lpstrFileName
)
3382 TRACE("sf=%p pidl=%p\n", lpsf
, pidl
);
3386 SHGetDesktopFolder(&lpsf
);
3387 hRes
= GetName(lpsf
,pidl
,dwFlags
,lpstrFileName
);
3388 IShellFolder_Release(lpsf
);
3392 /* Get the display name of the pidl relative to the folder */
3393 if (SUCCEEDED(hRes
= IShellFolder_GetDisplayNameOf(lpsf
, pidl
, dwFlags
, &str
)))
3395 return COMDLG32_StrRetToStrNW(lpstrFileName
, MAX_PATH
, &str
, pidl
);
3400 /***********************************************************************
3401 * GetShellFolderFromPidl
3403 * pidlRel is the item pidl relative
3404 * Return the IShellFolder of the absolute pidl
3406 IShellFolder
*GetShellFolderFromPidl(LPITEMIDLIST pidlAbs
)
3408 IShellFolder
*psf
= NULL
,*psfParent
;
3410 TRACE("%p\n", pidlAbs
);
3412 if(SUCCEEDED(SHGetDesktopFolder(&psfParent
)))
3415 if(pidlAbs
&& pidlAbs
->mkid
.cb
)
3417 if(SUCCEEDED(IShellFolder_BindToObject(psfParent
, pidlAbs
, NULL
, &IID_IShellFolder
, (LPVOID
*)&psf
)))
3419 IShellFolder_Release(psfParent
);
3423 /* return the desktop */
3429 /***********************************************************************
3432 * Return the LPITEMIDLIST to the parent of the pidl in the list
3434 LPITEMIDLIST
GetParentPidl(LPITEMIDLIST pidl
)
3436 LPITEMIDLIST pidlParent
;
3438 TRACE("%p\n", pidl
);
3440 pidlParent
= COMDLG32_PIDL_ILClone(pidl
);
3441 COMDLG32_PIDL_ILRemoveLastID(pidlParent
);
3446 /***********************************************************************
3449 * returns the pidl of the file name relative to folder
3450 * NULL if an error occurred
3452 static LPITEMIDLIST
GetPidlFromName(IShellFolder
*lpsf
,LPWSTR lpcstrFileName
)
3454 LPITEMIDLIST pidl
= NULL
;
3457 TRACE("sf=%p file=%s\n", lpsf
, debugstr_w(lpcstrFileName
));
3459 if(!lpcstrFileName
) return NULL
;
3460 if(!*lpcstrFileName
) return NULL
;
3464 if (SUCCEEDED(SHGetDesktopFolder(&lpsf
))) {
3465 IShellFolder_ParseDisplayName(lpsf
, 0, NULL
, lpcstrFileName
, &ulEaten
, &pidl
, NULL
);
3466 IShellFolder_Release(lpsf
);
3471 IShellFolder_ParseDisplayName(lpsf
, 0, NULL
, lpcstrFileName
, &ulEaten
, &pidl
, NULL
);
3478 BOOL
IsPidlFolder (LPSHELLFOLDER psf
, LPCITEMIDLIST pidl
)
3480 ULONG uAttr
= SFGAO_FOLDER
| SFGAO_HASSUBFOLDER
;
3483 TRACE("%p, %p\n", psf
, pidl
);
3485 ret
= IShellFolder_GetAttributesOf( psf
, 1, &pidl
, &uAttr
);
3487 TRACE("-- 0x%08x 0x%08x\n", uAttr
, ret
);
3488 /* see documentation shell 4.1*/
3489 return uAttr
& (SFGAO_FOLDER
| SFGAO_HASSUBFOLDER
);
3492 /***********************************************************************
3493 * BrowseSelectedFolder
3495 static BOOL
BrowseSelectedFolder(HWND hwnd
)
3497 BOOL bBrowseSelFolder
= FALSE
;
3498 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwnd
,FileOpenDlgInfosStr
);
3502 if (GetNumSelected(fodInfos
->Shell
.FOIDataObject
) == 1)
3504 LPITEMIDLIST pidlSelection
;
3506 /* get the file selected */
3507 pidlSelection
= GetPidlFromDataObject( fodInfos
->Shell
.FOIDataObject
, 1);
3508 if (IsPidlFolder (fodInfos
->Shell
.FOIShellFolder
, pidlSelection
))
3510 if ( FAILED( IShellBrowser_BrowseObject( fodInfos
->Shell
.FOIShellBrowser
,
3511 pidlSelection
, SBSP_RELATIVE
) ) )
3513 static const WCHAR notexist
[] = {'P','a','t','h',' ','d','o','e','s',
3514 ' ','n','o','t',' ','e','x','i','s','t',0};
3515 MessageBoxW( hwnd
, notexist
, fodInfos
->title
, MB_OK
| MB_ICONEXCLAMATION
);
3517 bBrowseSelFolder
= TRUE
;
3518 SendCustomDlgNotificationMessage(hwnd
,CDN_FOLDERCHANGE
);
3520 COMDLG32_SHFree( pidlSelection
);
3523 return bBrowseSelFolder
;
3527 * Memory allocation methods */
3528 static void *MemAlloc(UINT size
)
3530 return HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,size
);
3533 static void MemFree(void *mem
)
3535 HeapFree(GetProcessHeap(),0,mem
);
3539 * Old-style (win3.1) dialogs */
3541 /***********************************************************************
3542 * FD32_GetTemplate [internal]
3544 * Get a template (or FALSE if failure) when 16 bits dialogs are used
3545 * by a 32 bits application
3548 static BOOL
FD32_GetTemplate(PFD31_DATA lfs
)
3550 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
3551 PFD32_PRIVATE priv
= (PFD32_PRIVATE
) lfs
->private1632
;
3554 if (ofnW
->Flags
& OFN_ENABLETEMPLATEHANDLE
)
3556 if (!(lfs
->template = LockResource( ofnW
->hInstance
)))
3558 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE
);
3562 else if (ofnW
->Flags
& OFN_ENABLETEMPLATE
)
3566 hResInfo
= FindResourceA(priv
->ofnA
->hInstance
,
3567 priv
->ofnA
->lpTemplateName
,
3570 hResInfo
= FindResourceW(ofnW
->hInstance
,
3571 ofnW
->lpTemplateName
,
3575 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE
);
3578 if (!(hDlgTmpl
= LoadResource(ofnW
->hInstance
,
3580 !(lfs
->template = LockResource(hDlgTmpl
)))
3582 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE
);
3585 } else { /* get it from internal Wine resource */
3587 if (!(hResInfo
= FindResourceA(COMDLG32_hInstance
,
3588 lfs
->open
? "OPEN_FILE":"SAVE_FILE", (LPSTR
)RT_DIALOG
)))
3590 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE
);
3593 if (!(hDlgTmpl
= LoadResource(COMDLG32_hInstance
, hResInfo
)) ||
3594 !(lfs
->template = LockResource( hDlgTmpl
)))
3596 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE
);
3604 /************************************************************************
3605 * FD32_Init [internal]
3606 * called from the common 16/32 code to initialize 32 bit data
3608 static BOOL CALLBACK
FD32_Init(LPARAM lParam
, PFD31_DATA lfs
, DWORD data
)
3610 BOOL IsUnicode
= (BOOL
) data
;
3613 priv
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(FD32_PRIVATE
));
3614 lfs
->private1632
= priv
;
3615 if (NULL
== lfs
->private1632
) return FALSE
;
3618 lfs
->ofnW
= (LPOPENFILENAMEW
) lParam
;
3619 if (lfs
->ofnW
->Flags
& OFN_ENABLEHOOK
)
3620 if (lfs
->ofnW
->lpfnHook
)
3625 priv
->ofnA
= (LPOPENFILENAMEA
) lParam
;
3626 if (priv
->ofnA
->Flags
& OFN_ENABLEHOOK
)
3627 if (priv
->ofnA
->lpfnHook
)
3629 lfs
->ofnW
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(*lfs
->ofnW
));
3630 FD31_MapOfnStructA(priv
->ofnA
, lfs
->ofnW
, lfs
->open
);
3633 if (! FD32_GetTemplate(lfs
)) return FALSE
;
3638 /***********************************************************************
3639 * FD32_CallWindowProc [internal]
3641 * called from the common 16/32 code to call the appropriate hook
3643 static BOOL CALLBACK
FD32_CallWindowProc(const FD31_DATA
*lfs
, UINT wMsg
, WPARAM wParam
,
3647 PFD32_PRIVATE priv
= (PFD32_PRIVATE
) lfs
->private1632
;
3651 TRACE("Call hookA %p (%p, %04x, %08lx, %08lx)\n",
3652 priv
->ofnA
->lpfnHook
, lfs
->hwnd
, wMsg
, wParam
, lParam
);
3653 ret
= priv
->ofnA
->lpfnHook(lfs
->hwnd
, wMsg
, wParam
, lParam
);
3654 TRACE("ret hookA %p (%p, %04x, %08lx, %08lx)\n",
3655 priv
->ofnA
->lpfnHook
, lfs
->hwnd
, wMsg
, wParam
, lParam
);
3659 TRACE("Call hookW %p (%p, %04x, %08lx, %08lx)\n",
3660 lfs
->ofnW
->lpfnHook
, lfs
->hwnd
, wMsg
, wParam
, lParam
);
3661 ret
= lfs
->ofnW
->lpfnHook(lfs
->hwnd
, wMsg
, wParam
, lParam
);
3662 TRACE("Ret hookW %p (%p, %04x, %08lx, %08lx)\n",
3663 lfs
->ofnW
->lpfnHook
, lfs
->hwnd
, wMsg
, wParam
, lParam
);
3667 /***********************************************************************
3668 * FD32_UpdateResult [internal]
3669 * update the real client structures if any
3671 static void CALLBACK
FD32_UpdateResult(const FD31_DATA
*lfs
)
3673 PFD32_PRIVATE priv
= (PFD32_PRIVATE
) lfs
->private1632
;
3674 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
3679 if (ofnW
->nMaxFile
&&
3680 !WideCharToMultiByte( CP_ACP
, 0, ofnW
->lpstrFile
, -1,
3681 priv
->ofnA
->lpstrFile
, ofnW
->nMaxFile
, NULL
, NULL
))
3682 priv
->ofnA
->lpstrFile
[ofnW
->nMaxFile
-1] = 0;
3684 /* offsets are not guaranteed to be the same in WCHAR to MULTIBYTE conversion */
3685 /* set filename offset */
3686 lpszTemp
= PathFindFileNameA(priv
->ofnA
->lpstrFile
);
3687 priv
->ofnA
->nFileOffset
= (lpszTemp
- priv
->ofnA
->lpstrFile
);
3689 /* set extension offset */
3690 lpszTemp
= PathFindExtensionA(priv
->ofnA
->lpstrFile
);
3691 priv
->ofnA
->nFileExtension
= (*lpszTemp
) ? (lpszTemp
- priv
->ofnA
->lpstrFile
) + 1 : 0;
3695 /***********************************************************************
3696 * FD32_UpdateFileTitle [internal]
3697 * update the real client structures if any
3699 static void CALLBACK
FD32_UpdateFileTitle(const FD31_DATA
*lfs
)
3701 PFD32_PRIVATE priv
= (PFD32_PRIVATE
) lfs
->private1632
;
3702 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
3706 if (!WideCharToMultiByte( CP_ACP
, 0, ofnW
->lpstrFileTitle
, -1,
3707 priv
->ofnA
->lpstrFileTitle
, ofnW
->nMaxFileTitle
, NULL
, NULL
))
3708 priv
->ofnA
->lpstrFileTitle
[ofnW
->nMaxFileTitle
-1] = 0;
3713 /***********************************************************************
3714 * FD32_SendLbGetCurSel [internal]
3715 * retrieve selected listbox item
3717 static LRESULT CALLBACK
FD32_SendLbGetCurSel(const FD31_DATA
*lfs
)
3719 return SendDlgItemMessageW(lfs
->hwnd
, lst1
, LB_GETCURSEL
, 0, 0);
3723 /************************************************************************
3724 * FD32_Destroy [internal]
3725 * called from the common 16/32 code to cleanup 32 bit data
3727 static void CALLBACK
FD32_Destroy(const FD31_DATA
*lfs
)
3729 PFD32_PRIVATE priv
= (PFD32_PRIVATE
) lfs
->private1632
;
3731 /* if ofnW has been allocated, have to free everything in it */
3732 if (NULL
!= priv
&& NULL
!= priv
->ofnA
)
3734 FD31_FreeOfnW(lfs
->ofnW
);
3735 HeapFree(GetProcessHeap(), 0, lfs
->ofnW
);
3739 static void FD32_SetupCallbacks(PFD31_CALLBACKS callbacks
)
3741 callbacks
->Init
= FD32_Init
;
3742 callbacks
->CWP
= FD32_CallWindowProc
;
3743 callbacks
->UpdateResult
= FD32_UpdateResult
;
3744 callbacks
->UpdateFileTitle
= FD32_UpdateFileTitle
;
3745 callbacks
->SendLbGetCurSel
= FD32_SendLbGetCurSel
;
3746 callbacks
->Destroy
= FD32_Destroy
;
3749 /***********************************************************************
3750 * FD32_WMMeasureItem [internal]
3752 static LONG
FD32_WMMeasureItem(HWND hWnd
, WPARAM wParam
, LPARAM lParam
)
3754 LPMEASUREITEMSTRUCT lpmeasure
;
3756 lpmeasure
= (LPMEASUREITEMSTRUCT
)lParam
;
3757 lpmeasure
->itemHeight
= FD31_GetFldrHeight();
3762 /***********************************************************************
3763 * FileOpenDlgProc [internal]
3764 * Used for open and save, in fact.
3766 static INT_PTR CALLBACK
FD32_FileOpenDlgProc(HWND hWnd
, UINT wMsg
,
3767 WPARAM wParam
, LPARAM lParam
)
3769 PFD31_DATA lfs
= (PFD31_DATA
)GetPropA(hWnd
,FD31_OFN_PROP
);
3771 TRACE("msg=%x wparam=%lx lParam=%lx\n", wMsg
, wParam
, lParam
);
3772 if ((wMsg
!= WM_INITDIALOG
) && lfs
&& lfs
->hook
)
3775 lRet
= (INT_PTR
)FD31_CallWindowProc(lfs
, wMsg
, wParam
, lParam
);
3777 return lRet
; /* else continue message processing */
3782 return FD31_WMInitDialog(hWnd
, wParam
, lParam
);
3784 case WM_MEASUREITEM
:
3785 return FD32_WMMeasureItem(hWnd
, wParam
, lParam
);
3788 return FD31_WMDrawItem(hWnd
, wParam
, lParam
, !lfs
->open
, (DRAWITEMSTRUCT
*)lParam
);
3791 return FD31_WMCommand(hWnd
, lParam
, HIWORD(wParam
), LOWORD(wParam
), lfs
);
3794 SetBkColor((HDC16
)wParam
, 0x00C0C0C0);
3795 switch (HIWORD(lParam
))
3798 SetTextColor((HDC16
)wParam
, 0x00000000);
3800 case CTLCOLOR_STATIC
:
3801 SetTextColor((HDC16
)wParam
, 0x00000000);
3811 /***********************************************************************
3812 * GetFileName31A [internal]
3814 * Creates a win31 style dialog box for the user to select a file to open/save.
3816 static BOOL
GetFileName31A(LPOPENFILENAMEA lpofn
, /* address of structure with data*/
3817 UINT dlgType
/* type dialogue : open/save */
3823 FD31_CALLBACKS callbacks
;
3825 if (!lpofn
|| !FD31_Init()) return FALSE
;
3827 TRACE("ofn flags %08x\n", lpofn
->Flags
);
3828 FD32_SetupCallbacks(&callbacks
);
3829 lfs
= FD31_AllocPrivate((LPARAM
) lpofn
, dlgType
, &callbacks
, (DWORD
) FALSE
);
3832 hInst
= (HINSTANCE
)GetWindowLongPtrW( lpofn
->hwndOwner
, GWLP_HINSTANCE
);
3833 bRet
= DialogBoxIndirectParamA( hInst
, lfs
->template, lpofn
->hwndOwner
,
3834 FD32_FileOpenDlgProc
, (LPARAM
)lfs
);
3835 FD31_DestroyPrivate(lfs
);
3838 TRACE("return lpstrFile='%s' !\n", lpofn
->lpstrFile
);
3842 /***********************************************************************
3843 * GetFileName31W [internal]
3845 * Creates a win31 style dialog box for the user to select a file to open/save
3847 static BOOL
GetFileName31W(LPOPENFILENAMEW lpofn
, /* address of structure with data*/
3848 UINT dlgType
/* type dialogue : open/save */
3854 FD31_CALLBACKS callbacks
;
3856 if (!lpofn
|| !FD31_Init()) return FALSE
;
3858 FD32_SetupCallbacks(&callbacks
);
3859 lfs
= FD31_AllocPrivate((LPARAM
) lpofn
, dlgType
, &callbacks
, (DWORD
) TRUE
);
3862 hInst
= (HINSTANCE
)GetWindowLongPtrW( lpofn
->hwndOwner
, GWLP_HINSTANCE
);
3863 bRet
= DialogBoxIndirectParamW( hInst
, lfs
->template, lpofn
->hwndOwner
,
3864 FD32_FileOpenDlgProc
, (LPARAM
)lfs
);
3865 FD31_DestroyPrivate(lfs
);
3868 TRACE("file %s, file offset %d, ext offset %d\n",
3869 debugstr_w(lpofn
->lpstrFile
), lpofn
->nFileOffset
, lpofn
->nFileExtension
);
3873 /* ------------------ APIs ---------------------- */
3875 /***********************************************************************
3876 * GetOpenFileNameA (COMDLG32.@)
3878 * Creates a dialog box for the user to select a file to open.
3881 * TRUE on success: user enters a valid file
3882 * FALSE on cancel, error, close or filename-does-not-fit-in-buffer.
3885 BOOL WINAPI
GetOpenFileNameA(
3886 LPOPENFILENAMEA ofn
) /* [in/out] address of init structure */
3888 BOOL win16look
= FALSE
;
3890 TRACE("flags %08x\n", ofn
->Flags
);
3892 /* OFN_FILEMUSTEXIST implies OFN_PATHMUSTEXIST */
3893 if (ofn
->Flags
& OFN_FILEMUSTEXIST
)
3894 ofn
->Flags
|= OFN_PATHMUSTEXIST
;
3896 if (ofn
->Flags
& (OFN_ALLOWMULTISELECT
|OFN_ENABLEHOOK
|OFN_ENABLETEMPLATE
))
3897 win16look
= (ofn
->Flags
& OFN_EXPLORER
) ? FALSE
: TRUE
;
3900 return GetFileName31A(ofn
, OPEN_DIALOG
);
3902 return GetFileDialog95A(ofn
, OPEN_DIALOG
);
3905 /***********************************************************************
3906 * GetOpenFileNameW (COMDLG32.@)
3908 * Creates a dialog box for the user to select a file to open.
3911 * TRUE on success: user enters a valid file
3912 * FALSE on cancel, error, close or filename-does-not-fit-in-buffer.
3915 BOOL WINAPI
GetOpenFileNameW(
3916 LPOPENFILENAMEW ofn
) /* [in/out] address of init structure */
3918 BOOL win16look
= FALSE
;
3920 TRACE("flags %08x\n", ofn
->Flags
);
3922 /* OFN_FILEMUSTEXIST implies OFN_PATHMUSTEXIST */
3923 if (ofn
->Flags
& OFN_FILEMUSTEXIST
)
3924 ofn
->Flags
|= OFN_PATHMUSTEXIST
;
3926 if (ofn
->Flags
& (OFN_ALLOWMULTISELECT
|OFN_ENABLEHOOK
|OFN_ENABLETEMPLATE
))
3927 win16look
= (ofn
->Flags
& OFN_EXPLORER
) ? FALSE
: TRUE
;
3930 return GetFileName31W(ofn
, OPEN_DIALOG
);
3932 return GetFileDialog95W(ofn
, OPEN_DIALOG
);
3936 /***********************************************************************
3937 * GetSaveFileNameA (COMDLG32.@)
3939 * Creates a dialog box for the user to select a file to save.
3942 * TRUE on success: user enters a valid file
3943 * FALSE on cancel, error, close or filename-does-not-fit-in-buffer.
3946 BOOL WINAPI
GetSaveFileNameA(
3947 LPOPENFILENAMEA ofn
) /* [in/out] address of init structure */
3949 BOOL win16look
= FALSE
;
3951 if (ofn
->Flags
& (OFN_ALLOWMULTISELECT
|OFN_ENABLEHOOK
|OFN_ENABLETEMPLATE
))
3952 win16look
= (ofn
->Flags
& OFN_EXPLORER
) ? FALSE
: TRUE
;
3955 return GetFileName31A(ofn
, SAVE_DIALOG
);
3957 return GetFileDialog95A(ofn
, SAVE_DIALOG
);
3960 /***********************************************************************
3961 * GetSaveFileNameW (COMDLG32.@)
3963 * Creates a dialog box for the user to select a file to save.
3966 * TRUE on success: user enters a valid file
3967 * FALSE on cancel, error, close or filename-does-not-fit-in-buffer.
3970 BOOL WINAPI
GetSaveFileNameW(
3971 LPOPENFILENAMEW ofn
) /* [in/out] address of init structure */
3973 BOOL win16look
= FALSE
;
3975 if (ofn
->Flags
& (OFN_ALLOWMULTISELECT
|OFN_ENABLEHOOK
|OFN_ENABLETEMPLATE
))
3976 win16look
= (ofn
->Flags
& OFN_EXPLORER
) ? FALSE
: TRUE
;
3979 return GetFileName31W(ofn
, SAVE_DIALOG
);
3981 return GetFileDialog95W(ofn
, SAVE_DIALOG
);
3984 /***********************************************************************
3985 * GetFileTitleA (COMDLG32.@)
3987 * See GetFileTitleW.
3989 short WINAPI
GetFileTitleA(LPCSTR lpFile
, LPSTR lpTitle
, WORD cbBuf
)
3992 UNICODE_STRING strWFile
;
3995 RtlCreateUnicodeStringFromAsciiz(&strWFile
, lpFile
);
3996 lpWTitle
= RtlAllocateHeap( GetProcessHeap(), 0, cbBuf
*sizeof(WCHAR
));
3997 ret
= GetFileTitleW(strWFile
.Buffer
, lpWTitle
, cbBuf
);
3998 if (!ret
) WideCharToMultiByte( CP_ACP
, 0, lpWTitle
, -1, lpTitle
, cbBuf
, NULL
, NULL
);
3999 RtlFreeUnicodeString( &strWFile
);
4000 RtlFreeHeap( GetProcessHeap(), 0, lpWTitle
);
4005 /***********************************************************************
4006 * GetFileTitleW (COMDLG32.@)
4008 * Get the name of a file.
4011 * lpFile [I] name and location of file
4012 * lpTitle [O] returned file name
4013 * cbBuf [I] buffer size of lpTitle
4017 * Failure: negative number.
4019 short WINAPI
GetFileTitleW(LPCWSTR lpFile
, LPWSTR lpTitle
, WORD cbBuf
)
4022 static const WCHAR brkpoint
[] = {'*','[',']',0};
4023 TRACE("(%p %p %d);\n", lpFile
, lpTitle
, cbBuf
);
4025 if(lpFile
== NULL
|| lpTitle
== NULL
)
4028 len
= lstrlenW(lpFile
);
4033 if(strpbrkW(lpFile
, brkpoint
))
4038 if(lpFile
[len
] == '/' || lpFile
[len
] == '\\' || lpFile
[len
] == ':')
4041 for(i
= len
; i
>= 0; i
--)
4043 if (lpFile
[i
] == '/' || lpFile
[i
] == '\\' || lpFile
[i
] == ':')
4053 TRACE("---> %s\n", debugstr_w(&lpFile
[i
]));
4055 len
= lstrlenW(lpFile
+i
)+1;
4059 lstrcpyW(lpTitle
, &lpFile
[i
]);