2 * COMMDLG - File Dialogs
4 * Copyright 1994 Martin Ayotte
5 * Copyright 1996 Albrecht Kleine
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
31 #include "wine/unicode.h"
32 #include "wine/debug.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(commdlg
);
42 #include "filedlg31.h"
45 #define BUFFILEALLOC 512 * sizeof(WCHAR)
47 static const WCHAR FILE_star
[] = {'*','.','*', 0};
48 static const WCHAR FILE_bslash
[] = {'\\', 0};
49 static const WCHAR FILE_specc
[] = {'%','c',':', 0};
50 static const int fldrHeight
= 16;
51 static const int fldrWidth
= 20;
53 static HICON hFolder
= 0;
54 static HICON hFolder2
= 0;
55 static HICON hFloppy
= 0;
56 static HICON hHDisk
= 0;
57 static HICON hCDRom
= 0;
58 static HICON hNet
= 0;
60 /***********************************************************************
61 * FD31_Init [internal]
65 static BOOL initialized
= 0;
68 hFolder
= LoadImageA( COMDLG32_hInstance
, "FOLDER", IMAGE_ICON
, 16, 16, LR_SHARED
);
69 hFolder2
= LoadImageA( COMDLG32_hInstance
, "FOLDER2", IMAGE_ICON
, 16, 16, LR_SHARED
);
70 hFloppy
= LoadImageA( COMDLG32_hInstance
, "FLOPPY", IMAGE_ICON
, 16, 16, LR_SHARED
);
71 hHDisk
= LoadImageA( COMDLG32_hInstance
, "HDISK", IMAGE_ICON
, 16, 16, LR_SHARED
);
72 hCDRom
= LoadImageA( COMDLG32_hInstance
, "CDROM", IMAGE_ICON
, 16, 16, LR_SHARED
);
73 hNet
= LoadImageA( COMDLG32_hInstance
, "NETWORK", IMAGE_ICON
, 16, 16, LR_SHARED
);
74 if (hFolder
== 0 || hFolder2
== 0 || hFloppy
== 0 ||
75 hHDisk
== 0 || hCDRom
== 0 || hNet
== 0)
77 ERR("Error loading icons !\n");
85 /***********************************************************************
86 * FD31_StripEditControl [internal]
87 * Strip pathnames off the contents of the edit control.
89 static void FD31_StripEditControl(HWND hwnd
)
91 WCHAR temp
[BUFFILE
], *cp
;
93 GetDlgItemTextW( hwnd
, edt1
, temp
, sizeof(temp
)/sizeof(WCHAR
));
94 cp
= strrchrW(temp
, '\\');
98 cp
= strrchrW(temp
, ':');
102 /* FIXME: shouldn't we do something with the result here? ;-) */
105 /***********************************************************************
106 * FD31_CallWindowProc [internal]
108 * Call the appropriate hook
110 BOOL
FD31_CallWindowProc(PFD31_DATA lfs
, UINT wMsg
, WPARAM wParam
,
113 return lfs
->callbacks
->CWP(lfs
, wMsg
, wParam
, lParam
);
116 /***********************************************************************
117 * FD31_ScanDir [internal]
119 static BOOL
FD31_ScanDir(HWND hWnd
, LPWSTR newPath
)
121 WCHAR buffer
[BUFFILE
];
124 HCURSOR hCursorWait
, oldCursor
;
126 TRACE("Trying to change to %s\n", debugstr_w(newPath
));
127 if ( newPath
[0] && !SetCurrentDirectoryW( newPath
))
129 lstrcpynW(buffer
, newPath
, sizeof(buffer
)/sizeof(WCHAR
));
131 /* get the list of spec files */
132 GetDlgItemTextW(hWnd
, edt1
, buffer
, sizeof(buffer
)/sizeof(WCHAR
));
134 hCursorWait
= LoadCursorA(0, (LPSTR
)IDC_WAIT
);
135 oldCursor
= SetCursor(hCursorWait
);
138 if ((hdlg
= GetDlgItem(hWnd
, lst1
)) != 0) {
139 WCHAR
* scptr
; /* ptr on semi-colon */
140 WCHAR
* filter
= buffer
;
142 TRACE("Using filter %s\n", debugstr_w(filter
));
143 SendMessageW(hdlg
, LB_RESETCONTENT
, 0, 0);
145 scptr
= strchrW(filter
, ';');
146 if (scptr
) *scptr
= 0;
147 while (*filter
== ' ') filter
++;
148 TRACE("Using file spec %s\n", debugstr_w(filter
));
149 if (SendMessageW(hdlg
, LB_DIR
, 0, (LPARAM
)filter
) == LB_ERR
)
151 if (scptr
) *scptr
= ';';
152 filter
= (scptr
) ? (scptr
+ 1) : 0;
156 /* list of directories */
157 strcpyW(buffer
, FILE_star
);
159 if ((hdlgDir
= GetDlgItem(hWnd
, lst2
)) != 0) {
160 lRet
= DlgDirListW(hWnd
, buffer
, lst2
, stc1
, DDL_EXCLUSIVE
| DDL_DIRECTORY
);
162 SetCursor(oldCursor
);
166 /***********************************************************************
167 * FD31_GetFileType [internal]
170 static LPCWSTR
FD31_GetFileType(LPCWSTR cfptr
, LPCWSTR fptr
, const WORD index
)
175 for ( ;(n
= lstrlenW(cfptr
)) != 0; i
++)
180 cfptr
+= lstrlenW(cfptr
) + 1;
183 for ( ;(n
= lstrlenW(fptr
)) != 0; i
++)
188 fptr
+= lstrlenW(fptr
) + 1;
190 return FILE_star
; /* FIXME */
193 /***********************************************************************
194 * FD31_WMDrawItem [internal]
196 LONG
FD31_WMDrawItem(HWND hWnd
, WPARAM wParam
, LPARAM lParam
,
197 int savedlg
, LPDRAWITEMSTRUCT lpdis
)
201 COLORREF oldText
= 0, oldBk
= 0;
203 if (lpdis
->CtlType
== ODT_LISTBOX
&& lpdis
->CtlID
== lst1
)
205 if (!(str
= HeapAlloc(GetProcessHeap(), 0, BUFFILEALLOC
))) return FALSE
;
206 SendMessageW(lpdis
->hwndItem
, LB_GETTEXT
, lpdis
->itemID
,
209 if ((lpdis
->itemState
& ODS_SELECTED
) && !savedlg
)
211 oldBk
= SetBkColor( lpdis
->hDC
, GetSysColor( COLOR_HIGHLIGHT
) );
212 oldText
= SetTextColor( lpdis
->hDC
, GetSysColor(COLOR_HIGHLIGHTTEXT
));
215 SetTextColor(lpdis
->hDC
,GetSysColor(COLOR_GRAYTEXT
) );
217 ExtTextOutW(lpdis
->hDC
, lpdis
->rcItem
.left
+ 1,
218 lpdis
->rcItem
.top
+ 1, ETO_OPAQUE
| ETO_CLIPPED
,
219 &(lpdis
->rcItem
), str
, lstrlenW(str
), NULL
);
221 if (lpdis
->itemState
& ODS_SELECTED
)
222 DrawFocusRect( lpdis
->hDC
, &(lpdis
->rcItem
) );
224 if ((lpdis
->itemState
& ODS_SELECTED
) && !savedlg
)
226 SetBkColor( lpdis
->hDC
, oldBk
);
227 SetTextColor( lpdis
->hDC
, oldText
);
229 HeapFree(GetProcessHeap(), 0, str
);
233 if (lpdis
->CtlType
== ODT_LISTBOX
&& lpdis
->CtlID
== lst2
)
235 if (!(str
= HeapAlloc(GetProcessHeap(), 0, BUFFILEALLOC
)))
237 SendMessageW(lpdis
->hwndItem
, LB_GETTEXT
, lpdis
->itemID
,
240 if (lpdis
->itemState
& ODS_SELECTED
)
242 oldBk
= SetBkColor( lpdis
->hDC
, GetSysColor( COLOR_HIGHLIGHT
) );
243 oldText
= SetTextColor( lpdis
->hDC
, GetSysColor(COLOR_HIGHLIGHTTEXT
));
245 ExtTextOutW(lpdis
->hDC
, lpdis
->rcItem
.left
+ fldrWidth
,
246 lpdis
->rcItem
.top
+ 1, ETO_OPAQUE
| ETO_CLIPPED
,
247 &(lpdis
->rcItem
), str
, lstrlenW(str
), NULL
);
249 if (lpdis
->itemState
& ODS_SELECTED
)
250 DrawFocusRect( lpdis
->hDC
, &(lpdis
->rcItem
) );
252 if (lpdis
->itemState
& ODS_SELECTED
)
254 SetBkColor( lpdis
->hDC
, oldBk
);
255 SetTextColor( lpdis
->hDC
, oldText
);
257 DrawIcon(lpdis
->hDC
, lpdis
->rcItem
.left
, lpdis
->rcItem
.top
, hFolder
);
258 HeapFree(GetProcessHeap(), 0, str
);
261 if (lpdis
->CtlType
== ODT_COMBOBOX
&& lpdis
->CtlID
== cmb2
)
264 if (!(str
= HeapAlloc(GetProcessHeap(), 0, BUFFILEALLOC
)))
266 SendMessageW(lpdis
->hwndItem
, CB_GETLBTEXT
, lpdis
->itemID
,
268 root
[0] += str
[2] - 'a';
269 switch(GetDriveTypeA(root
))
271 case DRIVE_REMOVABLE
: hIcon
= hFloppy
; break;
272 case DRIVE_CDROM
: hIcon
= hCDRom
; break;
273 case DRIVE_REMOTE
: hIcon
= hNet
; break;
275 default: hIcon
= hHDisk
; break;
277 if (lpdis
->itemState
& ODS_SELECTED
)
279 oldBk
= SetBkColor( lpdis
->hDC
, GetSysColor( COLOR_HIGHLIGHT
) );
280 oldText
= SetTextColor( lpdis
->hDC
, GetSysColor(COLOR_HIGHLIGHTTEXT
));
282 ExtTextOutW(lpdis
->hDC
, lpdis
->rcItem
.left
+ fldrWidth
,
283 lpdis
->rcItem
.top
+ 1, ETO_OPAQUE
| ETO_CLIPPED
,
284 &(lpdis
->rcItem
), str
, lstrlenW(str
), NULL
);
286 if (lpdis
->itemState
& ODS_SELECTED
)
288 SetBkColor( lpdis
->hDC
, oldBk
);
289 SetTextColor( lpdis
->hDC
, oldText
);
291 DrawIcon(lpdis
->hDC
, lpdis
->rcItem
.left
, lpdis
->rcItem
.top
, hIcon
);
292 HeapFree(GetProcessHeap(), 0, str
);
298 /***********************************************************************
299 * FD31_UpdateResult [internal]
300 * update the displayed file name (with path)
302 static void FD31_UpdateResult(PFD31_DATA lfs
, WCHAR
*tmpstr
)
305 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
306 WCHAR tmpstr2
[BUFFILE
];
309 TRACE("%s\n", debugstr_w(tmpstr
));
310 if(ofnW
->Flags
& OFN_NOVALIDATE
)
313 GetCurrentDirectoryW(BUFFILE
, tmpstr2
);
314 lenstr2
= strlenW(tmpstr2
);
316 tmpstr2
[lenstr2
++]='\\';
317 lstrcpynW(tmpstr2
+lenstr2
, tmpstr
, BUFFILE
-lenstr2
);
319 lstrcpynW(ofnW
->lpstrFile
, tmpstr2
, ofnW
->nMaxFile
);
321 /* set filename offset */
322 p
= PathFindFileNameW(ofnW
->lpstrFile
);
323 ofnW
->nFileOffset
= (p
- ofnW
->lpstrFile
);
325 /* set extension offset */
326 p
= PathFindExtensionW(ofnW
->lpstrFile
);
327 ofnW
->nFileExtension
= (*p
) ? (p
- ofnW
->lpstrFile
) + 1 : 0;
329 TRACE("file %s, file offset %d, ext offset %d\n",
330 debugstr_w(ofnW
->lpstrFile
), ofnW
->nFileOffset
, ofnW
->nFileExtension
);
332 /* update the real client structures if any */
333 lfs
->callbacks
->UpdateResult(lfs
);
336 /***********************************************************************
337 * FD31_UpdateFileTitle [internal]
338 * update the displayed file name (without path)
340 static void FD31_UpdateFileTitle(PFD31_DATA lfs
)
343 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
344 if (ofnW
->lpstrFileTitle
!= NULL
)
346 lRet
= SendDlgItemMessageW(lfs
->hwnd
, lst1
, LB_GETCURSEL
, 0, 0);
347 SendDlgItemMessageW(lfs
->hwnd
, lst1
, LB_GETTEXT
, lRet
,
348 (LPARAM
)ofnW
->lpstrFileTitle
);
349 lfs
->callbacks
->UpdateFileTitle(lfs
);
353 /***********************************************************************
354 * FD31_DirListDblClick [internal]
356 static LRESULT
FD31_DirListDblClick( PFD31_DATA lfs
)
359 HWND hWnd
= lfs
->hwnd
;
361 WCHAR tmpstr
[BUFFILE
];
363 /* get the raw string (with brackets) */
364 lRet
= SendDlgItemMessageW(hWnd
, lst2
, LB_GETCURSEL
, 0, 0);
365 if (lRet
== LB_ERR
) return TRUE
;
366 pstr
= HeapAlloc(GetProcessHeap(), 0, BUFFILEALLOC
);
367 SendDlgItemMessageW(hWnd
, lst2
, LB_GETTEXT
, lRet
,
369 strcpyW( tmpstr
, pstr
);
370 HeapFree(GetProcessHeap(), 0, pstr
);
371 /* get the selected directory in tmpstr */
372 if (tmpstr
[0] == '[')
374 tmpstr
[lstrlenW(tmpstr
) - 1] = 0;
375 strcpyW(tmpstr
,tmpstr
+1);
377 strcatW(tmpstr
, FILE_bslash
);
379 FD31_ScanDir(hWnd
, tmpstr
);
383 if (FD31_CallWindowProc(lfs
, lfs
->lbselchstring
, lst2
,
384 MAKELONG(lRet
,CD_LBSELCHANGE
)))
390 /***********************************************************************
391 * FD31_FileListSelect [internal]
392 * called when a new item is picked in the file list
394 static LRESULT
FD31_FileListSelect( PFD31_DATA lfs
)
397 HWND hWnd
= lfs
->hwnd
;
400 lRet
= lfs
->callbacks
->SendLbGetCurSel(lfs
);
404 /* set the edit control to the choosen file */
405 if ((pstr
= HeapAlloc(GetProcessHeap(), 0, BUFFILEALLOC
)))
407 SendDlgItemMessageW(hWnd
, lst1
, LB_GETTEXT
, lRet
,
409 SetDlgItemTextW( hWnd
, edt1
, pstr
);
410 HeapFree(GetProcessHeap(), 0, pstr
);
414 FD31_CallWindowProc(lfs
, lfs
->lbselchstring
, lst1
,
415 MAKELONG(lRet
,CD_LBSELCHANGE
));
417 /* FIXME: for OFN_ALLOWMULTISELECT we need CD_LBSELSUB, CD_SELADD,
422 /***********************************************************************
423 * FD31_TestPath [internal]
424 * before accepting the file name, test if it includes wild cards
425 * tries to scan the directory and returns TRUE if no error.
427 static LRESULT
FD31_TestPath( PFD31_DATA lfs
, LPWSTR path
)
429 HWND hWnd
= lfs
->hwnd
;
430 LPWSTR pBeginFileName
, pstr2
;
431 WCHAR tmpstr2
[BUFFILE
];
433 pBeginFileName
= strrchrW(path
, '\\');
434 if (pBeginFileName
== NULL
)
435 pBeginFileName
= strrchrW(path
, ':');
437 if (strchrW(path
,'*') != NULL
|| strchrW(path
,'?') != NULL
)
439 /* edit control contains wildcards */
440 if (pBeginFileName
!= NULL
)
442 lstrcpynW(tmpstr2
, pBeginFileName
+ 1, BUFFILE
);
443 *(pBeginFileName
+ 1) = 0;
447 strcpyW(tmpstr2
, path
);
448 if(!(lfs
->ofnW
->Flags
& OFN_NOVALIDATE
))
452 TRACE("path=%s, tmpstr2=%s\n", debugstr_w(path
), debugstr_w(tmpstr2
));
453 SetDlgItemTextW( hWnd
, edt1
, tmpstr2
);
454 FD31_ScanDir(hWnd
, path
);
455 return (lfs
->ofnW
->Flags
& OFN_NOVALIDATE
) ? TRUE
: FALSE
;
458 /* no wildcards, we might have a directory or a filename */
459 /* try appending a wildcard and reading the directory */
461 pstr2
= path
+ lstrlenW(path
);
462 if (pBeginFileName
== NULL
|| *(pBeginFileName
+ 1) != 0)
463 strcatW(path
, FILE_bslash
);
465 /* if ScanDir succeeds, we have changed the directory */
466 if (FD31_ScanDir(hWnd
, path
))
467 return FALSE
; /* and path is not a valid file name */
469 /* if not, this must be a filename */
471 *pstr2
= 0; /* remove the wildcard added before */
473 if (pBeginFileName
!= NULL
)
475 /* strip off the pathname */
477 SetDlgItemTextW( hWnd
, edt1
, pBeginFileName
+ 1 );
479 lstrcpynW(tmpstr2
, pBeginFileName
+ 1, sizeof(tmpstr2
)/sizeof(WCHAR
) );
480 /* Should we MessageBox() if this fails? */
481 if (!FD31_ScanDir(hWnd
, path
))
485 strcpyW(path
, tmpstr2
);
488 SetDlgItemTextW( hWnd
, edt1
, path
);
492 /***********************************************************************
493 * FD31_Validate [internal]
494 * called on: click Ok button, Enter in edit, DoubleClick in file list
496 static LRESULT
FD31_Validate( PFD31_DATA lfs
, LPWSTR path
, UINT control
, INT itemIndex
,
500 HWND hWnd
= lfs
->hwnd
;
501 OPENFILENAMEW ofnsav
;
502 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
503 WCHAR filename
[BUFFILE
];
505 ofnsav
= *ofnW
; /* for later restoring */
507 /* get current file name */
509 lstrcpynW(filename
, path
, sizeof(filename
)/sizeof(WCHAR
));
511 GetDlgItemTextW( hWnd
, edt1
, filename
, sizeof(filename
)/sizeof(WCHAR
));
513 TRACE("got filename = %s\n", debugstr_w(filename
));
514 /* if we did not click in file list to get there */
517 if (!FD31_TestPath( lfs
, filename
) )
520 FD31_UpdateResult(lfs
, filename
);
523 { /* called internally after a change in a combo */
526 FD31_CallWindowProc(lfs
, lfs
->lbselchstring
, control
,
527 MAKELONG(itemIndex
,CD_LBSELCHANGE
));
532 FD31_UpdateFileTitle(lfs
);
535 lRet
= (BOOL
)FD31_CallWindowProc(lfs
, lfs
->fileokstring
,
539 *ofnW
= ofnsav
; /* restore old state */
543 if ((ofnW
->Flags
& OFN_ALLOWMULTISELECT
) && (ofnW
->Flags
& OFN_EXPLORER
))
547 LPWSTR str
= (LPWSTR
)ofnW
->lpstrFile
;
548 LPWSTR ptr
= strrchrW(str
, '\\');
549 str
[lstrlenW(str
) + 1] = '\0';
556 /***********************************************************************
557 * FD31_DiskChange [internal]
558 * called when a new item is picked in the disk selection combo
560 static LRESULT
FD31_DiskChange( PFD31_DATA lfs
)
563 HWND hWnd
= lfs
->hwnd
;
565 WCHAR diskname
[BUFFILE
];
567 FD31_StripEditControl(hWnd
);
568 lRet
= SendDlgItemMessageW(hWnd
, cmb2
, CB_GETCURSEL
, 0, 0L);
571 pstr
= HeapAlloc(GetProcessHeap(), 0, BUFFILEALLOC
);
572 SendDlgItemMessageW(hWnd
, cmb2
, CB_GETLBTEXT
, lRet
,
574 wsprintfW(diskname
, FILE_specc
, pstr
[2]);
575 HeapFree(GetProcessHeap(), 0, pstr
);
577 return FD31_Validate( lfs
, diskname
, cmb2
, lRet
, TRUE
);
580 /***********************************************************************
581 * FD31_FileTypeChange [internal]
582 * called when a new item is picked in the file type combo
584 static LRESULT
FD31_FileTypeChange( PFD31_DATA lfs
)
589 lRet
= SendDlgItemMessageW(lfs
->hwnd
, cmb1
, CB_GETCURSEL
, 0, 0);
592 pstr
= (LPWSTR
)SendDlgItemMessageW(lfs
->hwnd
, cmb1
, CB_GETITEMDATA
, lRet
, 0);
593 TRACE("Selected filter : %s\n", debugstr_w(pstr
));
594 SetDlgItemTextW( lfs
->hwnd
, edt1
, pstr
);
596 return FD31_Validate( lfs
, NULL
, cmb1
, lRet
, TRUE
);
599 /***********************************************************************
600 * FD31_WMCommand [internal]
602 LRESULT
FD31_WMCommand(HWND hWnd
, LPARAM lParam
, UINT notification
,
603 UINT control
, PFD31_DATA lfs
)
607 case lst1
: /* file list */
608 FD31_StripEditControl(hWnd
);
609 if (notification
== LBN_DBLCLK
)
611 return SendMessageW(hWnd
, WM_COMMAND
, IDOK
, 0);
613 else if (notification
== LBN_SELCHANGE
)
614 return FD31_FileListSelect( lfs
);
617 case lst2
: /* directory list */
618 FD31_StripEditControl(hWnd
);
619 if (notification
== LBN_DBLCLK
)
620 return FD31_DirListDblClick( lfs
);
623 case cmb1
: /* file type drop list */
624 if (notification
== CBN_SELCHANGE
)
625 return FD31_FileTypeChange( lfs
);
634 case cmb2
: /* disk dropdown combo */
635 if (notification
== CBN_SELCHANGE
)
636 return FD31_DiskChange( lfs
);
640 TRACE("OK pressed\n");
641 if (FD31_Validate( lfs
, NULL
, control
, 0, FALSE
))
642 EndDialog(hWnd
, TRUE
);
646 EndDialog(hWnd
, FALSE
);
649 case IDABORT
: /* can be sent by the hook procedure */
650 EndDialog(hWnd
, TRUE
);
656 /************************************************************************
657 * FD31_MapStringPairsToW [internal]
658 * map string pairs to Unicode
660 static LPWSTR
FD31_MapStringPairsToW(LPCSTR strA
, UINT size
)
670 n
= s
+ 1 - strA
; /* Don't forget the other \0 */
671 if (n
< size
) n
= size
;
673 len
= MultiByteToWideChar( CP_ACP
, 0, strA
, n
, NULL
, 0 );
674 x
= HeapAlloc(GetProcessHeap(),0, len
* sizeof(WCHAR
));
675 MultiByteToWideChar( CP_ACP
, 0, strA
, n
, x
, len
);
680 /************************************************************************
681 * FD31_DupToW [internal]
682 * duplicates an Ansi string to unicode, with a buffer size
684 static LPWSTR
FD31_DupToW(LPCSTR str
, DWORD size
)
687 if (str
&& (size
> 0))
689 strW
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(WCHAR
));
690 if (strW
) MultiByteToWideChar( CP_ACP
, 0, str
, -1, strW
, size
);
695 /************************************************************************
696 * FD31_MapOfnStructA [internal]
697 * map a 32 bits Ansi structure to an Unicode one
699 void FD31_MapOfnStructA(const LPOPENFILENAMEA ofnA
, LPOPENFILENAMEW ofnW
, BOOL open
)
701 UNICODE_STRING usBuffer
;
703 ofnW
->lStructSize
= sizeof(OPENFILENAMEW
);
704 ofnW
->hwndOwner
= ofnA
->hwndOwner
;
705 ofnW
->hInstance
= ofnA
->hInstance
;
706 if (ofnA
->lpstrFilter
)
707 ofnW
->lpstrFilter
= FD31_MapStringPairsToW(ofnA
->lpstrFilter
, 0);
709 if ((ofnA
->lpstrCustomFilter
) && (*(ofnA
->lpstrCustomFilter
)))
710 ofnW
->lpstrCustomFilter
= FD31_MapStringPairsToW(ofnA
->lpstrCustomFilter
, ofnA
->nMaxCustFilter
);
711 ofnW
->nMaxCustFilter
= ofnA
->nMaxCustFilter
;
712 ofnW
->nFilterIndex
= ofnA
->nFilterIndex
;
713 ofnW
->nMaxFile
= ofnA
->nMaxFile
;
714 ofnW
->lpstrFile
= FD31_DupToW(ofnA
->lpstrFile
, ofnW
->nMaxFile
);
715 ofnW
->nMaxFileTitle
= ofnA
->nMaxFileTitle
;
716 ofnW
->lpstrFileTitle
= FD31_DupToW(ofnA
->lpstrFileTitle
, ofnW
->nMaxFileTitle
);
717 if (ofnA
->lpstrInitialDir
)
719 RtlCreateUnicodeStringFromAsciiz (&usBuffer
,ofnA
->lpstrInitialDir
);
720 ofnW
->lpstrInitialDir
= usBuffer
.Buffer
;
722 if (ofnA
->lpstrTitle
) {
723 RtlCreateUnicodeStringFromAsciiz (&usBuffer
, ofnA
->lpstrTitle
);
724 ofnW
->lpstrTitle
= usBuffer
.Buffer
;
729 LoadStringW(COMDLG32_hInstance
, open
? IDS_OPEN_FILE
: IDS_SAVE_AS
,
730 buf
, sizeof(buf
)/sizeof(WCHAR
));
731 len
= lstrlenW(buf
)+1;
732 title_tmp
= HeapAlloc(GetProcessHeap(), 0, len
*sizeof(WCHAR
));
733 memcpy(title_tmp
, buf
, len
* sizeof(WCHAR
));
734 ofnW
->lpstrTitle
= title_tmp
;
736 ofnW
->Flags
= ofnA
->Flags
;
737 ofnW
->nFileOffset
= ofnA
->nFileOffset
;
738 ofnW
->nFileExtension
= ofnA
->nFileExtension
;
739 ofnW
->lpstrDefExt
= FD31_DupToW(ofnA
->lpstrDefExt
, 3);
740 if ((ofnA
->Flags
& OFN_ENABLETEMPLATE
) && (ofnA
->lpTemplateName
))
742 if (HIWORD(ofnA
->lpTemplateName
))
744 RtlCreateUnicodeStringFromAsciiz (&usBuffer
,ofnA
->lpTemplateName
);
745 ofnW
->lpTemplateName
= usBuffer
.Buffer
;
747 else /* numbered resource */
748 ofnW
->lpTemplateName
= (LPCWSTR
) ofnA
->lpTemplateName
;
753 /************************************************************************
754 * FD31_FreeOfnW [internal]
755 * Undo all allocations done by FD31_MapOfnStructA
757 void FD31_FreeOfnW(LPOPENFILENAMEW ofnW
)
759 HeapFree(GetProcessHeap(), 0, (LPWSTR
) ofnW
->lpstrFilter
);
760 HeapFree(GetProcessHeap(), 0, ofnW
->lpstrCustomFilter
);
761 HeapFree(GetProcessHeap(), 0, ofnW
->lpstrFile
);
762 HeapFree(GetProcessHeap(), 0, ofnW
->lpstrFileTitle
);
763 HeapFree(GetProcessHeap(), 0, (LPWSTR
) ofnW
->lpstrInitialDir
);
764 HeapFree(GetProcessHeap(), 0, (LPWSTR
) ofnW
->lpstrTitle
);
765 if (HIWORD(ofnW
->lpTemplateName
))
766 HeapFree(GetProcessHeap(), 0, (LPWSTR
) ofnW
->lpTemplateName
);
769 /************************************************************************
770 * FD31_DestroyPrivate [internal]
771 * destroys the private object
773 void FD31_DestroyPrivate(PFD31_DATA lfs
)
778 TRACE("destroying private allocation %p\n", lfs
);
779 lfs
->callbacks
->Destroy(lfs
);
780 HeapFree(GetProcessHeap(), 0, lfs
);
781 RemovePropA(hwnd
, FD31_OFN_PROP
);
784 /************************************************************************
785 * FD31_AllocPrivate [internal]
786 * allocate a private object to hold 32 bits Unicode
787 * structure that will be used throughtout the calls, while
788 * keeping available the original structures and a few variables
789 * On entry : type = dialog procedure type (16,32A,32W)
790 * dlgType = dialog type (open or save)
792 PFD31_DATA
FD31_AllocPrivate(LPARAM lParam
, UINT dlgType
,
793 PFD31_CALLBACKS callbacks
, DWORD data
)
795 PFD31_DATA lfs
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(FD31_DATA
));
797 TRACE("alloc private buf %p\n", lfs
);
798 if (!lfs
) return NULL
;
800 lfs
->lParam
= lParam
;
801 lfs
->open
= (dlgType
== OPEN_DIALOG
);
802 lfs
->callbacks
= callbacks
;
803 if (! lfs
->callbacks
->Init(lParam
, lfs
, data
))
805 FD31_DestroyPrivate(lfs
);
808 lfs
->lbselchstring
= RegisterWindowMessageA(LBSELCHSTRINGA
);
809 lfs
->fileokstring
= RegisterWindowMessageA(FILEOKSTRINGA
);
814 /***********************************************************************
815 * FD31_WMInitDialog [internal]
818 LONG
FD31_WMInitDialog(HWND hWnd
, WPARAM wParam
, LPARAM lParam
)
821 WCHAR tmpstr
[BUFFILE
];
822 LPWSTR pstr
, old_pstr
;
824 PFD31_DATA lfs
= (PFD31_DATA
) lParam
;
826 if (!lfs
) return FALSE
;
827 SetPropA(hWnd
, FD31_OFN_PROP
, (HANDLE
)lfs
);
831 TRACE("flags=%x initialdir=%s\n", ofn
->Flags
, debugstr_w(ofn
->lpstrInitialDir
));
833 SetWindowTextW( hWnd
, ofn
->lpstrTitle
);
834 /* read custom filter information */
835 if (ofn
->lpstrCustomFilter
)
837 pstr
= ofn
->lpstrCustomFilter
;
839 TRACE("lpstrCustomFilter = %p\n", pstr
);
843 i
= SendDlgItemMessageW(hWnd
, cmb1
, CB_ADDSTRING
, 0,
844 (LPARAM
)(ofn
->lpstrCustomFilter
) + n
);
845 n
+= lstrlenW(pstr
) + 1;
846 pstr
+= lstrlenW(pstr
) + 1;
847 TRACE("add str=%s associated to %s\n",
848 debugstr_w(old_pstr
), debugstr_w(pstr
));
849 SendDlgItemMessageW(hWnd
, cmb1
, CB_SETITEMDATA
, i
, (LPARAM
)pstr
);
850 n
+= lstrlenW(pstr
) + 1;
851 pstr
+= lstrlenW(pstr
) + 1;
854 /* read filter information */
855 if (ofn
->lpstrFilter
) {
856 pstr
= (LPWSTR
) ofn
->lpstrFilter
;
860 i
= SendDlgItemMessageW(hWnd
, cmb1
, CB_ADDSTRING
, 0,
861 (LPARAM
)(ofn
->lpstrFilter
+ n
) );
862 n
+= lstrlenW(pstr
) + 1;
863 pstr
+= lstrlenW(pstr
) + 1;
864 TRACE("add str=%s associated to %s\n",
865 debugstr_w(old_pstr
), debugstr_w(pstr
));
866 SendDlgItemMessageW(hWnd
, cmb1
, CB_SETITEMDATA
, i
, (LPARAM
)pstr
);
867 n
+= lstrlenW(pstr
) + 1;
868 pstr
+= lstrlenW(pstr
) + 1;
871 /* set default filter */
872 if (ofn
->nFilterIndex
== 0 && ofn
->lpstrCustomFilter
== NULL
)
873 ofn
->nFilterIndex
= 1;
874 SendDlgItemMessageW(hWnd
, cmb1
, CB_SETCURSEL
, ofn
->nFilterIndex
- 1, 0);
875 lstrcpynW(tmpstr
, FD31_GetFileType(ofn
->lpstrCustomFilter
,
876 (LPWSTR
)ofn
->lpstrFilter
, ofn
->nFilterIndex
- 1),BUFFILE
);
877 TRACE("nFilterIndex = %d, SetText of edt1 to %s\n",
878 ofn
->nFilterIndex
, debugstr_w(tmpstr
));
879 SetDlgItemTextW( hWnd
, edt1
, tmpstr
);
882 DlgDirListComboBoxW(hWnd
, tmpstr
, cmb2
, 0, DDL_DRIVES
| DDL_EXCLUSIVE
);
883 /* read initial directory */
884 /* FIXME: Note that this is now very version-specific (See MSDN description of
885 * the OPENFILENAME structure). For example under 2000/XP any path in the
886 * lpstrFile overrides the lpstrInitialDir, but not under 95/98/ME
888 if (ofn
->lpstrInitialDir
!= NULL
)
891 lstrcpynW(tmpstr
, ofn
->lpstrInitialDir
, 511);
892 len
= lstrlenW(tmpstr
);
893 if (len
> 0 && tmpstr
[len
-1] != '\\' && tmpstr
[len
-1] != ':') {
900 if (!FD31_ScanDir(hWnd
, tmpstr
)) {
902 if (!FD31_ScanDir(hWnd
, tmpstr
))
903 WARN("Couldn't read initial directory %s!\n", debugstr_w(tmpstr
));
905 /* select current drive in combo 2, omit missing drives */
908 char str
[4] = "a:\\";
909 GetCurrentDirectoryA( sizeof(dir
), dir
);
910 for(i
= 0, n
= -1; i
< 26; i
++)
913 if (GetDriveTypeA(str
) > DRIVE_NO_ROOT_DIR
) n
++;
914 if (toupper(str
[0]) == toupper(dir
[0])) break;
917 SendDlgItemMessageW(hWnd
, cmb2
, CB_SETCURSEL
, n
, 0);
918 if (!(ofn
->Flags
& OFN_SHOWHELP
))
919 ShowWindow(GetDlgItem(hWnd
, pshHelp
), SW_HIDE
);
920 if (ofn
->Flags
& OFN_HIDEREADONLY
)
921 ShowWindow(GetDlgItem(hWnd
, chx1
), SW_HIDE
);
923 return (BOOL
) FD31_CallWindowProc(lfs
, WM_INITDIALOG
, wParam
, lfs
->lParam
);
927 int FD31_GetFldrHeight(void)