2 * Win 3.1 Style 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/debug.h"
32 #include "wine/heap.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(commdlg
);
44 #define BUFFILEALLOC 512 * sizeof(WCHAR)
46 static const int fldrHeight
= 16;
47 static const int fldrWidth
= 20;
49 static HICON hFolder
= 0;
50 static HICON hFolder2
= 0;
51 static HICON hFloppy
= 0;
52 static HICON hHDisk
= 0;
53 static HICON hCDRom
= 0;
54 static HICON hNet
= 0;
56 #define FD31_OFN_PROP "FILEDLG_OFN"
58 typedef struct tagFD31_DATA
60 HWND hwnd
; /* file dialog window handle */
61 BOOL hook
; /* TRUE if the dialog is hooked */
62 UINT lbselchstring
; /* registered message id */
63 UINT fileokstring
; /* registered message id */
64 LPARAM lParam
; /* save original lparam */
65 LPCVOID
template; /* template for 32 bits resource */
66 BOOL open
; /* TRUE if open dialog, FALSE if save dialog */
67 LPOPENFILENAMEW ofnW
; /* pointer either to the original structure or
68 a W copy for A/16 API */
69 LPOPENFILENAMEA ofnA
; /* original structure if 32bits ansi dialog */
70 } FD31_DATA
, *PFD31_DATA
;
72 /***********************************************************************
73 * FD31_Init [internal]
75 static BOOL
FD31_Init(void)
77 static BOOL initialized
= FALSE
;
80 hFolder
= LoadImageA( COMDLG32_hInstance
, "FOLDER", IMAGE_ICON
, 16, 16, LR_SHARED
);
81 hFolder2
= LoadImageA( COMDLG32_hInstance
, "FOLDER2", IMAGE_ICON
, 16, 16, LR_SHARED
);
82 hFloppy
= LoadImageA( COMDLG32_hInstance
, "FLOPPY", IMAGE_ICON
, 16, 16, LR_SHARED
);
83 hHDisk
= LoadImageA( COMDLG32_hInstance
, "HDISK", IMAGE_ICON
, 16, 16, LR_SHARED
);
84 hCDRom
= LoadImageA( COMDLG32_hInstance
, "CDROM", IMAGE_ICON
, 16, 16, LR_SHARED
);
85 hNet
= LoadImageA( COMDLG32_hInstance
, "NETWORK", IMAGE_ICON
, 16, 16, LR_SHARED
);
86 if (hFolder
== 0 || hFolder2
== 0 || hFloppy
== 0 ||
87 hHDisk
== 0 || hCDRom
== 0 || hNet
== 0)
89 ERR("Error loading icons!\n");
97 /***********************************************************************
98 * FD31_StripEditControl [internal]
99 * Strip pathnames off the contents of the edit control.
101 static void FD31_StripEditControl(HWND hwnd
)
103 WCHAR temp
[BUFFILE
], *cp
;
105 GetDlgItemTextW( hwnd
, edt1
, temp
, ARRAY_SIZE(temp
));
106 cp
= wcsrchr(temp
, '\\');
108 lstrcpyW(temp
, cp
+1);
110 cp
= wcsrchr(temp
, ':');
112 lstrcpyW(temp
, cp
+1);
114 /* FIXME: shouldn't we do something with the result here? ;-) */
117 /***********************************************************************
118 * FD31_CallWindowProc [internal]
120 * Call the appropriate hook
122 static BOOL
FD31_CallWindowProc(const FD31_DATA
*lfs
, UINT wMsg
, WPARAM wParam
, LPARAM lParam
)
128 TRACE("Call hookA %p (%p, %04x, %08Ix, %08Ix)\n",
129 lfs
->ofnA
->lpfnHook
, lfs
->hwnd
, wMsg
, wParam
, lParam
);
130 ret
= lfs
->ofnA
->lpfnHook(lfs
->hwnd
, wMsg
, wParam
, lParam
);
131 TRACE("ret hookA %p (%p, %04x, %08Ix, %08Ix)\n",
132 lfs
->ofnA
->lpfnHook
, lfs
->hwnd
, wMsg
, wParam
, lParam
);
136 TRACE("Call hookW %p (%p, %04x, %08Ix, %08Ix)\n",
137 lfs
->ofnW
->lpfnHook
, lfs
->hwnd
, wMsg
, wParam
, lParam
);
138 ret
= lfs
->ofnW
->lpfnHook(lfs
->hwnd
, wMsg
, wParam
, lParam
);
139 TRACE("Ret hookW %p (%p, %04x, %08Ix, %08Ix)\n",
140 lfs
->ofnW
->lpfnHook
, lfs
->hwnd
, wMsg
, wParam
, lParam
);
144 /***********************************************************************
145 * FD31_GetFileType [internal]
147 static LPCWSTR
FD31_GetFileType(LPCWSTR cfptr
, LPCWSTR fptr
, const WORD index
)
152 for ( ;(n
= lstrlenW(cfptr
)) != 0; i
++)
157 cfptr
+= lstrlenW(cfptr
) + 1;
160 for ( ;(n
= lstrlenW(fptr
)) != 0; i
++)
165 fptr
+= lstrlenW(fptr
) + 1;
167 return L
"*.*"; /* FIXME */
170 /***********************************************************************
171 * FD31_ScanDir [internal]
173 static BOOL
FD31_ScanDir(const OPENFILENAMEW
*ofn
, HWND hWnd
, LPCWSTR newPath
)
175 WCHAR buffer
[BUFFILE
];
178 HCURSOR hCursorWait
, oldCursor
;
180 TRACE("Trying to change to %s\n", debugstr_w(newPath
));
181 if ( newPath
[0] && !SetCurrentDirectoryW( newPath
))
184 /* get the list of spec files */
185 lstrcpynW(buffer
, FD31_GetFileType(ofn
->lpstrCustomFilter
,
186 ofn
->lpstrFilter
, ofn
->nFilterIndex
- 1), BUFFILE
);
188 hCursorWait
= LoadCursorA(0, (LPSTR
)IDC_WAIT
);
189 oldCursor
= SetCursor(hCursorWait
);
192 if ((hdlg
= GetDlgItem(hWnd
, lst1
)) != 0) {
193 WCHAR
* scptr
; /* ptr on semi-colon */
194 WCHAR
* filter
= buffer
;
196 TRACE("Using filter %s\n", debugstr_w(filter
));
197 SendMessageW(hdlg
, LB_RESETCONTENT
, 0, 0);
199 scptr
= wcschr(filter
, ';');
200 if (scptr
) *scptr
= 0;
201 while (*filter
== ' ') filter
++;
202 TRACE("Using file spec %s\n", debugstr_w(filter
));
203 SendMessageW(hdlg
, LB_DIR
, 0, (LPARAM
)filter
);
204 if (scptr
) *scptr
= ';';
205 filter
= (scptr
) ? (scptr
+ 1) : 0;
209 /* list of directories */
210 lstrcpyW(buffer
, L
"*.*");
212 if (GetDlgItem(hWnd
, lst2
) != 0) {
213 lRet
= DlgDirListW(hWnd
, buffer
, lst2
, stc1
, DDL_EXCLUSIVE
| DDL_DIRECTORY
);
215 SetCursor(oldCursor
);
219 /***********************************************************************
220 * FD31_WMDrawItem [internal]
222 static LONG
FD31_WMDrawItem(HWND hWnd
, WPARAM wParam
, LPARAM lParam
,
223 int savedlg
, const DRAWITEMSTRUCT
*lpdis
)
227 COLORREF oldText
= 0, oldBk
= 0;
229 if (lpdis
->CtlType
== ODT_LISTBOX
&& lpdis
->CtlID
== lst1
)
231 if (!(str
= heap_alloc(BUFFILEALLOC
))) return FALSE
;
232 SendMessageW(lpdis
->hwndItem
, LB_GETTEXT
, lpdis
->itemID
,
235 if ((lpdis
->itemState
& ODS_SELECTED
) && !savedlg
)
237 oldBk
= SetBkColor( lpdis
->hDC
, GetSysColor( COLOR_HIGHLIGHT
) );
238 oldText
= SetTextColor( lpdis
->hDC
, GetSysColor(COLOR_HIGHLIGHTTEXT
));
241 SetTextColor(lpdis
->hDC
,GetSysColor(COLOR_GRAYTEXT
) );
243 ExtTextOutW(lpdis
->hDC
, lpdis
->rcItem
.left
+ 1,
244 lpdis
->rcItem
.top
+ 1, ETO_OPAQUE
| ETO_CLIPPED
,
245 &(lpdis
->rcItem
), str
, lstrlenW(str
), NULL
);
247 if (lpdis
->itemState
& ODS_SELECTED
)
248 DrawFocusRect( lpdis
->hDC
, &(lpdis
->rcItem
) );
250 if ((lpdis
->itemState
& ODS_SELECTED
) && !savedlg
)
252 SetBkColor( lpdis
->hDC
, oldBk
);
253 SetTextColor( lpdis
->hDC
, oldText
);
259 if (lpdis
->CtlType
== ODT_LISTBOX
&& lpdis
->CtlID
== lst2
)
261 if (!(str
= heap_alloc(BUFFILEALLOC
)))
263 SendMessageW(lpdis
->hwndItem
, LB_GETTEXT
, lpdis
->itemID
,
266 if (lpdis
->itemState
& ODS_SELECTED
)
268 oldBk
= SetBkColor( lpdis
->hDC
, GetSysColor( COLOR_HIGHLIGHT
) );
269 oldText
= SetTextColor( lpdis
->hDC
, GetSysColor(COLOR_HIGHLIGHTTEXT
));
271 ExtTextOutW(lpdis
->hDC
, lpdis
->rcItem
.left
+ fldrWidth
,
272 lpdis
->rcItem
.top
+ 1, ETO_OPAQUE
| ETO_CLIPPED
,
273 &(lpdis
->rcItem
), str
, lstrlenW(str
), NULL
);
275 if (lpdis
->itemState
& ODS_SELECTED
)
276 DrawFocusRect( lpdis
->hDC
, &(lpdis
->rcItem
) );
278 if (lpdis
->itemState
& ODS_SELECTED
)
280 SetBkColor( lpdis
->hDC
, oldBk
);
281 SetTextColor( lpdis
->hDC
, oldText
);
283 DrawIconEx( lpdis
->hDC
, lpdis
->rcItem
.left
, lpdis
->rcItem
.top
, hFolder
, 16, 16, 0, 0, DI_NORMAL
);
287 if (lpdis
->CtlType
== ODT_COMBOBOX
&& lpdis
->CtlID
== cmb2
)
290 if (!(str
= heap_alloc(BUFFILEALLOC
)))
292 SendMessageW(lpdis
->hwndItem
, CB_GETLBTEXT
, lpdis
->itemID
,
294 root
[0] += str
[2] - 'a';
295 switch(GetDriveTypeA(root
))
297 case DRIVE_REMOVABLE
: hIcon
= hFloppy
; break;
298 case DRIVE_CDROM
: hIcon
= hCDRom
; break;
299 case DRIVE_REMOTE
: hIcon
= hNet
; break;
301 default: hIcon
= hHDisk
; break;
303 if (lpdis
->itemState
& ODS_SELECTED
)
305 oldBk
= SetBkColor( lpdis
->hDC
, GetSysColor( COLOR_HIGHLIGHT
) );
306 oldText
= SetTextColor( lpdis
->hDC
, GetSysColor(COLOR_HIGHLIGHTTEXT
));
308 ExtTextOutW(lpdis
->hDC
, lpdis
->rcItem
.left
+ fldrWidth
,
309 lpdis
->rcItem
.top
+ 1, ETO_OPAQUE
| ETO_CLIPPED
,
310 &(lpdis
->rcItem
), str
, lstrlenW(str
), NULL
);
312 if (lpdis
->itemState
& ODS_SELECTED
)
314 SetBkColor( lpdis
->hDC
, oldBk
);
315 SetTextColor( lpdis
->hDC
, oldText
);
317 DrawIconEx( lpdis
->hDC
, lpdis
->rcItem
.left
, lpdis
->rcItem
.top
, hIcon
, 16, 16, 0, 0, DI_NORMAL
);
324 /***********************************************************************
325 * FD31_UpdateResult [internal]
326 * update the displayed file name (with path)
328 static void FD31_UpdateResult(const FD31_DATA
*lfs
, const WCHAR
*tmpstr
)
331 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
332 LPOPENFILENAMEA ofnA
= lfs
->ofnA
;
333 WCHAR tmpstr2
[BUFFILE
];
336 TRACE("%s\n", debugstr_w(tmpstr
));
337 if(ofnW
->Flags
& OFN_NOVALIDATE
)
340 GetCurrentDirectoryW(BUFFILE
, tmpstr2
);
341 lenstr2
= lstrlenW(tmpstr2
);
343 tmpstr2
[lenstr2
++]='\\';
344 lstrcpynW(tmpstr2
+lenstr2
, tmpstr
, BUFFILE
-lenstr2
);
345 if (!ofnW
->lpstrFile
)
348 lstrcpynW(ofnW
->lpstrFile
, tmpstr2
, ofnW
->nMaxFile
);
350 /* set filename offset */
351 p
= PathFindFileNameW(ofnW
->lpstrFile
);
352 ofnW
->nFileOffset
= (p
- ofnW
->lpstrFile
);
354 /* set extension offset */
355 p
= PathFindExtensionW(ofnW
->lpstrFile
);
356 ofnW
->nFileExtension
= (*p
) ? (p
- ofnW
->lpstrFile
) + 1 : 0;
358 TRACE("file %s, file offset %d, ext offset %d\n",
359 debugstr_w(ofnW
->lpstrFile
), ofnW
->nFileOffset
, ofnW
->nFileExtension
);
361 /* update the real client structures if any */
365 if (ofnW
->nMaxFile
&&
366 !WideCharToMultiByte( CP_ACP
, 0, ofnW
->lpstrFile
, -1,
367 ofnA
->lpstrFile
, ofnA
->nMaxFile
, NULL
, NULL
))
368 ofnA
->lpstrFile
[ofnA
->nMaxFile
-1] = 0;
370 /* offsets are not guaranteed to be the same in WCHAR to MULTIBYTE conversion */
371 /* set filename offset */
372 lpszTemp
= PathFindFileNameA(ofnA
->lpstrFile
);
373 ofnA
->nFileOffset
= (lpszTemp
- ofnA
->lpstrFile
);
375 /* set extension offset */
376 lpszTemp
= PathFindExtensionA(ofnA
->lpstrFile
);
377 ofnA
->nFileExtension
= (*lpszTemp
) ? (lpszTemp
- ofnA
->lpstrFile
) + 1 : 0;
381 /***********************************************************************
382 * FD31_UpdateFileTitle [internal]
383 * update the displayed file name (without path)
385 static void FD31_UpdateFileTitle(const FD31_DATA
*lfs
)
388 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
389 LPOPENFILENAMEA ofnA
= lfs
->ofnA
;
391 if (ofnW
->lpstrFileTitle
!= NULL
)
393 lRet
= SendDlgItemMessageW(lfs
->hwnd
, lst1
, LB_GETCURSEL
, 0, 0);
394 SendDlgItemMessageW(lfs
->hwnd
, lst1
, LB_GETTEXT
, lRet
,
395 (LPARAM
)ofnW
->lpstrFileTitle
);
398 if (!WideCharToMultiByte( CP_ACP
, 0, ofnW
->lpstrFileTitle
, -1,
399 ofnA
->lpstrFileTitle
, ofnA
->nMaxFileTitle
, NULL
, NULL
))
400 ofnA
->lpstrFileTitle
[ofnA
->nMaxFileTitle
-1] = 0;
405 /***********************************************************************
406 * FD31_DirListDblClick [internal]
408 static LRESULT
FD31_DirListDblClick( const FD31_DATA
*lfs
)
411 HWND hWnd
= lfs
->hwnd
;
413 WCHAR tmpstr
[BUFFILE
];
415 /* get the raw string (with brackets) */
416 lRet
= SendDlgItemMessageW(hWnd
, lst2
, LB_GETCURSEL
, 0, 0);
417 if (lRet
== LB_ERR
) return TRUE
;
418 pstr
= heap_alloc(BUFFILEALLOC
);
419 SendDlgItemMessageW(hWnd
, lst2
, LB_GETTEXT
, lRet
,
421 lstrcpyW( tmpstr
, pstr
);
423 /* get the selected directory in tmpstr */
424 if (tmpstr
[0] == '[')
426 tmpstr
[lstrlenW(tmpstr
) - 1] = 0;
427 lstrcpyW(tmpstr
,tmpstr
+1);
429 lstrcatW(tmpstr
, L
"\\");
431 FD31_ScanDir(lfs
->ofnW
, hWnd
, tmpstr
);
435 if (FD31_CallWindowProc(lfs
, lfs
->lbselchstring
, lst2
,
436 MAKELONG(lRet
,CD_LBSELCHANGE
)))
442 /***********************************************************************
443 * FD31_FileListSelect [internal]
444 * called when a new item is picked in the file list
446 static LRESULT
FD31_FileListSelect( const FD31_DATA
*lfs
)
449 HWND hWnd
= lfs
->hwnd
;
452 lRet
= SendDlgItemMessageW(lfs
->hwnd
, lst1
, LB_GETCURSEL
, 0, 0);
456 /* set the edit control to the chosen file */
457 if ((pstr
= heap_alloc(BUFFILEALLOC
)))
459 SendDlgItemMessageW(hWnd
, lst1
, LB_GETTEXT
, lRet
,
461 SetDlgItemTextW( hWnd
, edt1
, pstr
);
466 FD31_CallWindowProc(lfs
, lfs
->lbselchstring
, lst1
,
467 MAKELONG(lRet
,CD_LBSELCHANGE
));
469 /* FIXME: for OFN_ALLOWMULTISELECT we need CD_LBSELSUB, CD_SELADD,
474 /***********************************************************************
475 * FD31_TestPath [internal]
476 * before accepting the file name, test if it includes wild cards
477 * tries to scan the directory and returns TRUE if no error.
479 static LRESULT
FD31_TestPath( const FD31_DATA
*lfs
, LPWSTR path
)
481 HWND hWnd
= lfs
->hwnd
;
482 LPWSTR pBeginFileName
, pstr2
;
483 WCHAR tmpstr2
[BUFFILE
];
485 pBeginFileName
= wcsrchr(path
, '\\');
486 if (pBeginFileName
== NULL
)
487 pBeginFileName
= wcsrchr(path
, ':');
489 if (wcschr(path
,'*') != NULL
|| wcschr(path
,'?') != NULL
)
491 /* edit control contains wildcards */
492 if (pBeginFileName
!= NULL
)
494 lstrcpynW(tmpstr2
, pBeginFileName
+ 1, BUFFILE
);
495 *(pBeginFileName
+ 1) = 0;
499 lstrcpyW(tmpstr2
, path
);
500 if(!(lfs
->ofnW
->Flags
& OFN_NOVALIDATE
))
504 TRACE("path=%s, tmpstr2=%s\n", debugstr_w(path
), debugstr_w(tmpstr2
));
505 SetDlgItemTextW( hWnd
, edt1
, tmpstr2
);
506 FD31_ScanDir(lfs
->ofnW
, hWnd
, path
);
507 return (lfs
->ofnW
->Flags
& OFN_NOVALIDATE
) != 0;
510 /* no wildcards, we might have a directory or a filename */
511 /* try appending a wildcard and reading the directory */
513 pstr2
= path
+ lstrlenW(path
);
514 if (pBeginFileName
== NULL
|| *(pBeginFileName
+ 1) != 0)
515 lstrcatW(path
, L
"\\");
517 /* if ScanDir succeeds, we have changed the directory */
518 if (FD31_ScanDir(lfs
->ofnW
, hWnd
, path
))
519 return FALSE
; /* and path is not a valid file name */
521 /* if not, this must be a filename */
523 *pstr2
= 0; /* remove the wildcard added before */
525 if (pBeginFileName
!= NULL
)
527 /* strip off the pathname */
529 SetDlgItemTextW( hWnd
, edt1
, pBeginFileName
+ 1 );
531 lstrcpynW(tmpstr2
, pBeginFileName
+ 1, ARRAY_SIZE(tmpstr2
));
532 /* Should we MessageBox() if this fails? */
533 if (!FD31_ScanDir(lfs
->ofnW
, hWnd
, path
))
537 lstrcpyW(path
, tmpstr2
);
540 SetDlgItemTextW( hWnd
, edt1
, path
);
544 /***********************************************************************
545 * FD31_Validate [internal]
546 * called on: click Ok button, Enter in edit, DoubleClick in file list
548 static LRESULT
FD31_Validate( const FD31_DATA
*lfs
, LPCWSTR path
, UINT control
, INT itemIndex
,
552 HWND hWnd
= lfs
->hwnd
;
553 OPENFILENAMEW ofnsav
;
554 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
555 WCHAR filename
[BUFFILE
];
556 int copied_size
= min( ofnW
->lStructSize
, sizeof(ofnsav
) );
558 memcpy( &ofnsav
, ofnW
, copied_size
); /* for later restoring */
560 /* get current file name */
562 lstrcpynW(filename
, path
, ARRAY_SIZE(filename
));
564 GetDlgItemTextW( hWnd
, edt1
, filename
, ARRAY_SIZE(filename
));
566 TRACE("got filename = %s\n", debugstr_w(filename
));
567 /* if we did not click in file list to get there */
570 if (!FD31_TestPath( lfs
, filename
) )
573 FD31_UpdateResult(lfs
, filename
);
576 { /* called internally after a change in a combo */
579 FD31_CallWindowProc(lfs
, lfs
->lbselchstring
, control
,
580 MAKELONG(itemIndex
,CD_LBSELCHANGE
));
585 FD31_UpdateFileTitle(lfs
);
588 lRet
= FD31_CallWindowProc(lfs
, lfs
->fileokstring
,
592 memcpy( ofnW
, &ofnsav
, copied_size
); /* restore old state */
596 if ((ofnW
->Flags
& OFN_ALLOWMULTISELECT
) && (ofnW
->Flags
& OFN_EXPLORER
))
600 LPWSTR str
= ofnW
->lpstrFile
;
601 LPWSTR ptr
= wcsrchr(str
, '\\');
602 str
[lstrlenW(str
) + 1] = '\0';
609 /***********************************************************************
610 * FD31_DiskChange [internal]
611 * called when a new item is picked in the disk selection combo
613 static LRESULT
FD31_DiskChange( const FD31_DATA
*lfs
)
616 HWND hWnd
= lfs
->hwnd
;
618 WCHAR diskname
[BUFFILE
];
620 FD31_StripEditControl(hWnd
);
621 lRet
= SendDlgItemMessageW(hWnd
, cmb2
, CB_GETCURSEL
, 0, 0L);
624 pstr
= heap_alloc(BUFFILEALLOC
);
625 SendDlgItemMessageW(hWnd
, cmb2
, CB_GETLBTEXT
, lRet
,
627 wsprintfW(diskname
, L
"%c:", pstr
[2]);
630 return FD31_Validate( lfs
, diskname
, cmb2
, lRet
, TRUE
);
633 /***********************************************************************
634 * FD31_FileTypeChange [internal]
635 * called when a new item is picked in the file type combo
637 static LRESULT
FD31_FileTypeChange( const FD31_DATA
*lfs
)
642 lRet
= SendDlgItemMessageW(lfs
->hwnd
, cmb1
, CB_GETCURSEL
, 0, 0);
645 lfs
->ofnW
->nFilterIndex
= lRet
+ 1;
647 lfs
->ofnA
->nFilterIndex
= lRet
+ 1;
648 pstr
= (LPWSTR
)SendDlgItemMessageW(lfs
->hwnd
, cmb1
, CB_GETITEMDATA
, lRet
, 0);
649 TRACE("Selected filter : %s\n", debugstr_w(pstr
));
651 return FD31_Validate( lfs
, pstr
, cmb1
, lRet
, TRUE
);
654 /***********************************************************************
655 * FD31_WMCommand [internal]
657 static LRESULT
FD31_WMCommand( HWND hWnd
, LPARAM lParam
, UINT notification
,
658 UINT control
, const FD31_DATA
*lfs
)
662 case lst1
: /* file list */
663 FD31_StripEditControl(hWnd
);
664 if (notification
== LBN_DBLCLK
)
666 return SendMessageW(hWnd
, WM_COMMAND
, IDOK
, 0);
668 else if (notification
== LBN_SELCHANGE
)
669 return FD31_FileListSelect( lfs
);
672 case lst2
: /* directory list */
673 FD31_StripEditControl(hWnd
);
674 if (notification
== LBN_DBLCLK
)
675 return FD31_DirListDblClick( lfs
);
678 case cmb1
: /* file type drop list */
679 if (notification
== CBN_SELCHANGE
)
680 return FD31_FileTypeChange( lfs
);
689 case cmb2
: /* disk dropdown combo */
690 if (notification
== CBN_SELCHANGE
)
691 return FD31_DiskChange( lfs
);
695 TRACE("OK pressed\n");
696 if (FD31_Validate( lfs
, NULL
, control
, 0, FALSE
))
697 EndDialog(hWnd
, TRUE
);
701 EndDialog(hWnd
, FALSE
);
704 case IDABORT
: /* can be sent by the hook procedure */
705 EndDialog(hWnd
, TRUE
);
711 /************************************************************************
712 * FD31_MapStringPairsToW [internal]
713 * map string pairs to Unicode
715 static LPWSTR
FD31_MapStringPairsToW(LPCSTR strA
, UINT size
)
725 n
= s
+ 1 - strA
; /* Don't forget the other \0 */
726 if (n
< size
) n
= size
;
728 len
= MultiByteToWideChar( CP_ACP
, 0, strA
, n
, NULL
, 0 );
729 x
= heap_alloc(len
* sizeof(WCHAR
));
730 MultiByteToWideChar( CP_ACP
, 0, strA
, n
, x
, len
);
735 /************************************************************************
736 * FD31_DupToW [internal]
737 * duplicates an Ansi string to unicode, with a buffer size
739 static LPWSTR
FD31_DupToW(LPCSTR str
, DWORD size
)
742 if (str
&& (size
> 0))
744 strW
= heap_alloc(size
* sizeof(WCHAR
));
745 if (strW
) MultiByteToWideChar( CP_ACP
, 0, str
, -1, strW
, size
);
750 /************************************************************************
751 * FD31_MapOfnStructA [internal]
752 * map a 32 bits Ansi structure to a Unicode one
754 static void FD31_MapOfnStructA(const OPENFILENAMEA
*ofnA
, LPOPENFILENAMEW ofnW
, BOOL open
)
756 UNICODE_STRING usBuffer
;
758 ofnW
->hwndOwner
= ofnA
->hwndOwner
;
759 ofnW
->hInstance
= ofnA
->hInstance
;
760 if (ofnA
->lpstrFilter
)
761 ofnW
->lpstrFilter
= FD31_MapStringPairsToW(ofnA
->lpstrFilter
, 0);
763 if ((ofnA
->lpstrCustomFilter
) && (*(ofnA
->lpstrCustomFilter
)))
764 ofnW
->lpstrCustomFilter
= FD31_MapStringPairsToW(ofnA
->lpstrCustomFilter
, ofnA
->nMaxCustFilter
);
765 ofnW
->nMaxCustFilter
= ofnA
->nMaxCustFilter
;
766 ofnW
->nFilterIndex
= ofnA
->nFilterIndex
;
767 ofnW
->nMaxFile
= ofnA
->nMaxFile
;
768 ofnW
->lpstrFile
= FD31_DupToW(ofnA
->lpstrFile
, ofnW
->nMaxFile
);
769 ofnW
->nMaxFileTitle
= ofnA
->nMaxFileTitle
;
770 ofnW
->lpstrFileTitle
= FD31_DupToW(ofnA
->lpstrFileTitle
, ofnW
->nMaxFileTitle
);
771 if (ofnA
->lpstrInitialDir
)
773 RtlCreateUnicodeStringFromAsciiz (&usBuffer
,ofnA
->lpstrInitialDir
);
774 ofnW
->lpstrInitialDir
= usBuffer
.Buffer
;
776 if (ofnA
->lpstrTitle
) {
777 RtlCreateUnicodeStringFromAsciiz (&usBuffer
, ofnA
->lpstrTitle
);
778 ofnW
->lpstrTitle
= usBuffer
.Buffer
;
783 LoadStringW(COMDLG32_hInstance
, open
? IDS_OPEN_FILE
: IDS_SAVE_AS
, buf
, ARRAY_SIZE(buf
));
784 len
= lstrlenW(buf
)+1;
785 title_tmp
= heap_alloc(len
* sizeof(WCHAR
));
786 memcpy(title_tmp
, buf
, len
* sizeof(WCHAR
));
787 ofnW
->lpstrTitle
= title_tmp
;
789 ofnW
->Flags
= ofnA
->Flags
;
790 ofnW
->nFileOffset
= ofnA
->nFileOffset
;
791 ofnW
->nFileExtension
= ofnA
->nFileExtension
;
792 ofnW
->lpstrDefExt
= FD31_DupToW(ofnA
->lpstrDefExt
, 3);
793 if ((ofnA
->Flags
& OFN_ENABLETEMPLATE
) && (ofnA
->lpTemplateName
))
795 if (!IS_INTRESOURCE(ofnA
->lpTemplateName
))
797 RtlCreateUnicodeStringFromAsciiz (&usBuffer
,ofnA
->lpTemplateName
);
798 ofnW
->lpTemplateName
= usBuffer
.Buffer
;
800 else /* numbered resource */
801 ofnW
->lpTemplateName
= (LPCWSTR
) ofnA
->lpTemplateName
;
803 if (ofnW
->lStructSize
> OPENFILENAME_SIZE_VERSION_400W
)
805 ofnW
->pvReserved
= ofnA
->pvReserved
;
806 ofnW
->dwReserved
= ofnA
->dwReserved
;
807 ofnW
->FlagsEx
= ofnA
->FlagsEx
;
812 /************************************************************************
813 * FD31_FreeOfnW [internal]
814 * Undo all allocations done by FD31_MapOfnStructA
816 static void FD31_FreeOfnW(OPENFILENAMEW
*ofnW
)
818 heap_free((void *)ofnW
->lpstrFilter
);
819 heap_free(ofnW
->lpstrCustomFilter
);
820 heap_free(ofnW
->lpstrFile
);
821 heap_free(ofnW
->lpstrFileTitle
);
822 heap_free((void *)ofnW
->lpstrInitialDir
);
823 heap_free((void *)ofnW
->lpstrTitle
);
824 if (!IS_INTRESOURCE(ofnW
->lpTemplateName
))
825 heap_free((void *)ofnW
->lpTemplateName
);
828 /************************************************************************
829 * FD31_DestroyPrivate [internal]
830 * destroys the private object
832 static void FD31_DestroyPrivate(PFD31_DATA lfs
)
837 TRACE("destroying private allocation %p\n", lfs
);
839 /* if ofnW has been allocated, have to free everything in it */
842 FD31_FreeOfnW(lfs
->ofnW
);
843 heap_free(lfs
->ofnW
);
846 RemovePropA(hwnd
, FD31_OFN_PROP
);
849 /***********************************************************************
850 * FD31_GetTemplate [internal]
852 * Get a template (or FALSE if failure) when 16 bits dialogs are used
853 * by a 32 bits application
856 static BOOL
FD31_GetTemplate(PFD31_DATA lfs
)
858 LPOPENFILENAMEW ofnW
= lfs
->ofnW
;
859 LPOPENFILENAMEA ofnA
= lfs
->ofnA
;
862 if (ofnW
->Flags
& OFN_ENABLETEMPLATEHANDLE
)
864 if (!(lfs
->template = LockResource( ofnW
->hInstance
)))
866 COMDLG32_SetCommDlgExtendedError( CDERR_LOADRESFAILURE
);
870 else if (ofnW
->Flags
& OFN_ENABLETEMPLATE
)
874 hResInfo
= FindResourceA( ofnA
->hInstance
, ofnA
->lpTemplateName
, (LPSTR
)RT_DIALOG
);
876 hResInfo
= FindResourceW( ofnW
->hInstance
, ofnW
->lpTemplateName
, (LPWSTR
)RT_DIALOG
);
879 COMDLG32_SetCommDlgExtendedError( CDERR_FINDRESFAILURE
);
882 if (!(hDlgTmpl
= LoadResource( ofnW
->hInstance
, hResInfo
)) ||
883 !(lfs
->template = LockResource( hDlgTmpl
)))
885 COMDLG32_SetCommDlgExtendedError( CDERR_LOADRESFAILURE
);
889 else /* get it from internal Wine resource */
892 if (!(hResInfo
= FindResourceA( COMDLG32_hInstance
, lfs
->open
? "OPEN_FILE" : "SAVE_FILE", (LPSTR
)RT_DIALOG
)))
894 COMDLG32_SetCommDlgExtendedError( CDERR_FINDRESFAILURE
);
897 if (!(hDlgTmpl
= LoadResource( COMDLG32_hInstance
, hResInfo
)) ||
898 !(lfs
->template = LockResource( hDlgTmpl
)))
900 COMDLG32_SetCommDlgExtendedError( CDERR_LOADRESFAILURE
);
907 /************************************************************************
908 * FD31_AllocPrivate [internal]
909 * allocate a private object to hold 32 bits Unicode
910 * structure that will be used throughout the calls, while
911 * keeping available the original structures and a few variables
912 * On entry : type = dialog procedure type (16,32A,32W)
913 * dlgType = dialog type (open or save)
915 static PFD31_DATA
FD31_AllocPrivate(LPARAM lParam
, UINT dlgType
, BOOL IsUnicode
)
917 FD31_DATA
*lfs
= heap_alloc_zero(sizeof(*lfs
));
919 TRACE("alloc private buf %p\n", lfs
);
920 if (!lfs
) return NULL
;
922 lfs
->lParam
= lParam
;
923 lfs
->open
= (dlgType
== OPEN_DIALOG
);
928 lfs
->ofnW
= (LPOPENFILENAMEW
) lParam
;
929 if (lfs
->ofnW
->Flags
& OFN_ENABLEHOOK
)
930 if (lfs
->ofnW
->lpfnHook
)
935 lfs
->ofnA
= (LPOPENFILENAMEA
) lParam
;
936 if (lfs
->ofnA
->Flags
& OFN_ENABLEHOOK
)
937 if (lfs
->ofnA
->lpfnHook
)
939 lfs
->ofnW
= heap_alloc_zero(lfs
->ofnA
->lStructSize
);
940 lfs
->ofnW
->lStructSize
= lfs
->ofnA
->lStructSize
;
941 FD31_MapOfnStructA(lfs
->ofnA
, lfs
->ofnW
, lfs
->open
);
944 if (! FD31_GetTemplate(lfs
))
946 FD31_DestroyPrivate(lfs
);
949 lfs
->lbselchstring
= RegisterWindowMessageA(LBSELCHSTRINGA
);
950 lfs
->fileokstring
= RegisterWindowMessageA(FILEOKSTRINGA
);
955 /***********************************************************************
956 * FD31_WMInitDialog [internal]
958 static LONG
FD31_WMInitDialog(HWND hWnd
, WPARAM wParam
, LPARAM lParam
)
961 WCHAR tmpstr
[BUFFILE
];
962 LPWSTR pstr
, old_pstr
;
964 PFD31_DATA lfs
= (PFD31_DATA
) lParam
;
966 if (!lfs
) return FALSE
;
967 SetPropA(hWnd
, FD31_OFN_PROP
, lfs
);
971 TRACE("flags=%lx initialdir=%s\n", ofn
->Flags
, debugstr_w(ofn
->lpstrInitialDir
));
973 SetWindowTextW( hWnd
, ofn
->lpstrTitle
);
974 /* read custom filter information */
975 if (ofn
->lpstrCustomFilter
)
977 pstr
= ofn
->lpstrCustomFilter
;
979 TRACE("lpstrCustomFilter = %p\n", pstr
);
983 i
= SendDlgItemMessageW(hWnd
, cmb1
, CB_ADDSTRING
, 0,
984 (LPARAM
)(ofn
->lpstrCustomFilter
) + n
);
985 n
+= lstrlenW(pstr
) + 1;
986 pstr
+= lstrlenW(pstr
) + 1;
987 TRACE("add str=%s associated to %s\n",
988 debugstr_w(old_pstr
), debugstr_w(pstr
));
989 SendDlgItemMessageW(hWnd
, cmb1
, CB_SETITEMDATA
, i
, (LPARAM
)pstr
);
990 n
+= lstrlenW(pstr
) + 1;
991 pstr
+= lstrlenW(pstr
) + 1;
994 /* read filter information */
995 if (ofn
->lpstrFilter
) {
996 pstr
= (LPWSTR
) ofn
->lpstrFilter
;
1000 i
= SendDlgItemMessageW(hWnd
, cmb1
, CB_ADDSTRING
, 0,
1001 (LPARAM
)(ofn
->lpstrFilter
+ n
) );
1002 n
+= lstrlenW(pstr
) + 1;
1003 pstr
+= lstrlenW(pstr
) + 1;
1004 TRACE("add str=%s associated to %s\n",
1005 debugstr_w(old_pstr
), debugstr_w(pstr
));
1006 SendDlgItemMessageW(hWnd
, cmb1
, CB_SETITEMDATA
, i
, (LPARAM
)pstr
);
1007 n
+= lstrlenW(pstr
) + 1;
1008 pstr
+= lstrlenW(pstr
) + 1;
1011 /* set default filter */
1012 if (ofn
->nFilterIndex
== 0 && ofn
->lpstrCustomFilter
== NULL
)
1013 ofn
->nFilterIndex
= 1;
1014 SendDlgItemMessageW(hWnd
, cmb1
, CB_SETCURSEL
, ofn
->nFilterIndex
- 1, 0);
1015 if (ofn
->lpstrFile
&& ofn
->lpstrFile
[0])
1017 TRACE( "SetText of edt1 to %s\n", debugstr_w(ofn
->lpstrFile
) );
1018 SetDlgItemTextW( hWnd
, edt1
, ofn
->lpstrFile
);
1022 lstrcpynW(tmpstr
, FD31_GetFileType(ofn
->lpstrCustomFilter
,
1023 ofn
->lpstrFilter
, ofn
->nFilterIndex
- 1),BUFFILE
);
1024 TRACE("nFilterIndex = %ld, SetText of edt1 to %s\n",
1025 ofn
->nFilterIndex
, debugstr_w(tmpstr
));
1026 SetDlgItemTextW( hWnd
, edt1
, tmpstr
);
1028 /* get drive list */
1030 DlgDirListComboBoxW(hWnd
, tmpstr
, cmb2
, 0, DDL_DRIVES
| DDL_EXCLUSIVE
);
1031 /* read initial directory */
1032 /* FIXME: Note that this is now very version-specific (See MSDN description of
1033 * the OPENFILENAME structure). For example under 2000/XP any path in the
1034 * lpstrFile overrides the lpstrInitialDir, but not under 95/98/ME
1036 if (ofn
->lpstrInitialDir
!= NULL
)
1039 lstrcpynW(tmpstr
, ofn
->lpstrInitialDir
, 511);
1040 len
= lstrlenW(tmpstr
);
1041 if (len
> 0 && tmpstr
[len
-1] != '\\' && tmpstr
[len
-1] != ':') {
1048 if (!FD31_ScanDir(ofn
, hWnd
, tmpstr
)) {
1050 if (!FD31_ScanDir(ofn
, hWnd
, tmpstr
))
1051 WARN("Couldn't read initial directory %s!\n", debugstr_w(tmpstr
));
1053 /* select current drive in combo 2, omit missing drives */
1056 char str
[4] = "a:\\";
1057 GetCurrentDirectoryA( sizeof(dir
), dir
);
1058 for(i
= 0, n
= -1; i
< 26; i
++)
1061 if (GetDriveTypeA(str
) > DRIVE_NO_ROOT_DIR
) n
++;
1062 if (toupper(str
[0]) == toupper(dir
[0])) break;
1065 SendDlgItemMessageW(hWnd
, cmb2
, CB_SETCURSEL
, n
, 0);
1066 if (!(ofn
->Flags
& OFN_SHOWHELP
))
1067 ShowWindow(GetDlgItem(hWnd
, pshHelp
), SW_HIDE
);
1068 if (ofn
->Flags
& OFN_HIDEREADONLY
)
1069 ShowWindow(GetDlgItem(hWnd
, chx1
), SW_HIDE
);
1071 return FD31_CallWindowProc(lfs
, WM_INITDIALOG
, wParam
, lfs
->lParam
);
1075 static int FD31_GetFldrHeight(void)
1080 /***********************************************************************
1081 * FD31_WMMeasureItem [internal]
1083 static LONG
FD31_WMMeasureItem(LPARAM lParam
)
1085 LPMEASUREITEMSTRUCT lpmeasure
;
1087 lpmeasure
= (LPMEASUREITEMSTRUCT
)lParam
;
1088 lpmeasure
->itemHeight
= FD31_GetFldrHeight();
1093 /***********************************************************************
1094 * FileOpenDlgProc [internal]
1095 * Used for open and save, in fact.
1097 static INT_PTR CALLBACK
FD31_FileOpenDlgProc(HWND hWnd
, UINT wMsg
,
1098 WPARAM wParam
, LPARAM lParam
)
1100 PFD31_DATA lfs
= (PFD31_DATA
)GetPropA( hWnd
, FD31_OFN_PROP
);
1102 TRACE("msg=%x wparam=%Ix lParam=%Ix\n", wMsg
, wParam
, lParam
);
1103 if ((wMsg
!= WM_INITDIALOG
) && lfs
&& lfs
->hook
)
1106 lRet
= (INT_PTR
)FD31_CallWindowProc( lfs
, wMsg
, wParam
, lParam
);
1107 if (lRet
) return lRet
; /* else continue message processing */
1112 return FD31_WMInitDialog( hWnd
, wParam
, lParam
);
1114 case WM_MEASUREITEM
:
1115 return FD31_WMMeasureItem( lParam
);
1118 return FD31_WMDrawItem( hWnd
, wParam
, lParam
, !lfs
->open
, (DRAWITEMSTRUCT
*)lParam
);
1121 return FD31_WMCommand( hWnd
, lParam
, HIWORD(wParam
), LOWORD(wParam
), lfs
);
1124 SetBkColor( (HDC16
)wParam
, 0x00C0C0C0 );
1125 switch (HIWORD(lParam
))
1128 SetTextColor( (HDC16
)wParam
, 0x00000000 );
1130 case CTLCOLOR_STATIC
:
1131 SetTextColor( (HDC16
)wParam
, 0x00000000 );
1140 /***********************************************************************
1141 * GetFileName31A [internal]
1143 * Creates a win31 style dialog box for the user to select a file to open/save.
1145 BOOL
GetFileName31A( OPENFILENAMEA
*lpofn
, UINT dlgType
)
1150 if (!lpofn
|| !FD31_Init()) return FALSE
;
1152 TRACE("ofn flags %08lx\n", lpofn
->Flags
);
1153 lfs
= FD31_AllocPrivate((LPARAM
) lpofn
, dlgType
, FALSE
);
1156 bRet
= DialogBoxIndirectParamA( COMDLG32_hInstance
, lfs
->template, lpofn
->hwndOwner
,
1157 FD31_FileOpenDlgProc
, (LPARAM
)lfs
);
1158 FD31_DestroyPrivate(lfs
);
1161 TRACE("return lpstrFile='%s' !\n", lpofn
->lpstrFile
);
1165 /***********************************************************************
1166 * GetFileName31W [internal]
1168 * Creates a win31 style dialog box for the user to select a file to open/save
1170 BOOL
GetFileName31W( OPENFILENAMEW
*lpofn
, UINT dlgType
)
1175 if (!lpofn
|| !FD31_Init()) return FALSE
;
1177 lfs
= FD31_AllocPrivate((LPARAM
) lpofn
, dlgType
, TRUE
);
1180 bRet
= DialogBoxIndirectParamW( COMDLG32_hInstance
, lfs
->template, lpofn
->hwndOwner
,
1181 FD31_FileOpenDlgProc
, (LPARAM
)lfs
);
1182 FD31_DestroyPrivate(lfs
);
1185 TRACE("file %s, file offset %d, ext offset %d\n",
1186 debugstr_w(lpofn
->lpstrFile
), lpofn
->nFileOffset
, lpofn
->nFileExtension
);