227 lines
6.8 KiB
C
227 lines
6.8 KiB
C
/*
|
|
* File Open/Create dialogs
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* these dialog functions exist because they were written and
|
|
* used before the commmon dialogs existed.
|
|
*
|
|
* they have now been reduced to just calls to the common file dialog
|
|
* functions
|
|
*/
|
|
|
|
|
|
|
|
/*---includes-----------------------------------------------------------*/
|
|
#include "windows.h"
|
|
#include "commdlg.h"
|
|
#include "gutilsrc.h"
|
|
#include "gutils.h"
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <string.h>
|
|
|
|
/*--functions----------------------------------------------------------*/
|
|
|
|
/*
|
|
* gfile_open
|
|
* dialog asking the user to select an existing file to open.
|
|
*
|
|
* parameters
|
|
*
|
|
* prompt - message to user indicating purpose of file
|
|
* (to be displayed somewhere in dialog box.
|
|
*
|
|
* ext - default file extension if user enters file without
|
|
* extension.
|
|
*
|
|
* spec - default file spec (eg *.*)
|
|
*
|
|
* osp - OFSTRUCT representing file, if successfully open.
|
|
*
|
|
* fn - buffer where filename (just final element) is returned.
|
|
*
|
|
* returns - true if file selected and exists (tested with OF_EXIST).
|
|
* FALSE if dialog cancelled. If user selects a file that we cannot
|
|
* open, we complain and restart the dialog.
|
|
*
|
|
* if TRUE is returned, the file will have been successfully opened,
|
|
* for reading and then closed again.
|
|
*/
|
|
|
|
BOOL FAR PASCAL
|
|
gfile_open(HWND hwnd, LPSTR prompt, LPSTR ext, LPSTR spec, OFSTRUCT FAR *osp, LPSTR fn)
|
|
{
|
|
OPENFILENAME ofn;
|
|
char achFilters[MAX_PATH];
|
|
char achPath[MAX_PATH];
|
|
LPSTR chp;
|
|
int fh;
|
|
|
|
/* build filter-pair buffer to contain one pair - the spec filter,
|
|
* twice (one of the pair should be the filter, the second should be
|
|
* the title of the filter - we don't have a title so we use the
|
|
* filter both times. remember double null at end of list of strings.
|
|
*/
|
|
lstrcpy(achFilters, spec); // filter + null
|
|
chp = &achFilters[lstrlen(achFilters)+1]; //2nd string just after null
|
|
lstrcpy(chp, spec); // filter name (+null)
|
|
chp[lstrlen(chp)+1] = '\0'; // double null at end of list
|
|
|
|
/*
|
|
* initialise arguments to dialog proc
|
|
*/
|
|
memset(&ofn, 0, sizeof(ofn));
|
|
// GetOpenFileName ang GetSaveFileName unfortunately
|
|
// validate the size of the structue. So we need to lie to
|
|
// the function if we were built for >=Win2000 and
|
|
// running on an earlier OS
|
|
#if (_WIN32_WINNT >= 0x0500)
|
|
ofn.lStructSize = OPENFILENAME_SIZE_VERSION_400;
|
|
#else
|
|
ofn.lStructSize = sizeof(OPENFILENAME);
|
|
#endif
|
|
ofn.hwndOwner = hwnd;
|
|
ofn.hInstance = NULL;
|
|
ofn.lpstrFilter = achFilters;
|
|
ofn.lpstrCustomFilter = NULL;
|
|
ofn.nMaxCustFilter = 0;
|
|
ofn.nFilterIndex = 1; // first filter pair in list
|
|
achPath[0] = '\0';
|
|
ofn.lpstrFile = achPath; // we need to get the full path to open
|
|
ofn.nMaxFile = sizeof(achPath);
|
|
ofn.lpstrFileTitle = fn; // return final elem of name here
|
|
ofn.nMaxFileTitle = 13; // assume just big enough for 8.3+null
|
|
ofn.lpstrInitialDir = NULL;
|
|
ofn.lpstrTitle = prompt; // dialog title is good place for prompt text
|
|
ofn.Flags = OFN_FILEMUSTEXIST |
|
|
OFN_HIDEREADONLY |
|
|
OFN_PATHMUSTEXIST;
|
|
ofn.lpstrDefExt = ext;
|
|
|
|
/*
|
|
* loop until the user cancels, or selects a file that we can open
|
|
*/
|
|
do {
|
|
if (!GetOpenFileName(&ofn)) {
|
|
return(FALSE);
|
|
}
|
|
|
|
fh = OpenFile(achPath, osp, OF_READ);
|
|
|
|
if (fh == HFILE_ERROR) {
|
|
if (MessageBox(NULL, "File Could Not Be Opened", "File Open",
|
|
MB_OKCANCEL|MB_ICONSTOP) == IDCANCEL) {
|
|
return(FALSE);
|
|
}
|
|
}
|
|
} while (fh == HFILE_ERROR);
|
|
|
|
_lclose(fh);
|
|
|
|
return(TRUE);
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
* gfile_new
|
|
* dialog asking the user to name a file for writing to.
|
|
*
|
|
* parameters
|
|
*
|
|
* prompt - message to user indicating purpose of file
|
|
* (to be displayed somewhere in dialog box.
|
|
*
|
|
* ext - default file extension if user enters file without
|
|
* extension.
|
|
*
|
|
* spec - default file spec (eg *.*)
|
|
*
|
|
* osp - OFSTRUCT representing file, if successfully created.
|
|
*
|
|
* fn - buffer where filename (just final element) is returned.
|
|
*
|
|
* returns - true if file selected and exists (tested with OF_EXIST).
|
|
* FALSE if dialog cancelled. If user selects a file that we cannot
|
|
* open, we complain and restart the dialog.
|
|
*
|
|
* if TRUE is returned, the file will have been successfully
|
|
* created and opened for writing and then closed again.
|
|
*/
|
|
|
|
BOOL FAR PASCAL
|
|
gfile_new(LPSTR prompt, LPSTR ext, LPSTR spec, OFSTRUCT FAR *osp, LPSTR fn)
|
|
{
|
|
OPENFILENAME ofn;
|
|
char achFilters[MAX_PATH];
|
|
LPSTR chp;
|
|
char achPath[MAX_PATH];
|
|
int fh;
|
|
|
|
/* build filter-pair buffer to contain one pair - the spec filter,
|
|
* twice (one of the pair should be the filter, the second should be
|
|
* the title of the filter - we don't have a title so we use the
|
|
* filter both times. remember double null at end of list of strings.
|
|
*/
|
|
lstrcpy(achFilters, spec); // filter + null
|
|
chp = &achFilters[lstrlen(achFilters)+1]; //2nd string just after null
|
|
lstrcpy(chp, spec); // filter name (+null)
|
|
chp[lstrlen(chp)+1] = '\0'; // double null at end of list
|
|
|
|
/*
|
|
* initialise arguments to dialog proc
|
|
*/
|
|
memset(&ofn, 0, sizeof(ofn));
|
|
// GetOpenFileName ang GetSaveFileName unfortunately
|
|
// validate the size of the structue. So we need to lie to
|
|
// the function if we were built for >=Win2000 and
|
|
// running on an earlier OS
|
|
#if (_WIN32_WINNT >= 0x0500)
|
|
ofn.lStructSize = OPENFILENAME_SIZE_VERSION_400;
|
|
#else
|
|
ofn.lStructSize = sizeof(OPENFILENAME);
|
|
#endif
|
|
ofn.hwndOwner = NULL;
|
|
ofn.hInstance = NULL;
|
|
ofn.lpstrFilter = achFilters;
|
|
ofn.lpstrCustomFilter = NULL;
|
|
ofn.nMaxCustFilter = 0;
|
|
ofn.nFilterIndex = 1; // first filter pair in list
|
|
achPath[0] = '\0';
|
|
ofn.lpstrFile = achPath; // we need to get the full path to open
|
|
ofn.nMaxFile = sizeof(achPath);
|
|
ofn.lpstrFileTitle = fn; // return final elem of name here
|
|
ofn.nMaxFileTitle = 13; // assume just big enough for 8.3+null
|
|
ofn.lpstrInitialDir = NULL;
|
|
ofn.lpstrTitle = prompt; // dialog title is good place for prompt text
|
|
ofn.Flags = OFN_HIDEREADONLY;
|
|
ofn.lpstrDefExt = ext;
|
|
|
|
/*
|
|
* loop until the user cancels, or selects a file that we can create/write
|
|
*/
|
|
do {
|
|
if (!GetSaveFileName(&ofn)) {
|
|
return(FALSE);
|
|
}
|
|
|
|
fh = OpenFile(achPath, osp, OF_CREATE|OF_READWRITE);
|
|
|
|
if (fh == HFILE_ERROR) {
|
|
if (MessageBox(NULL, "File Could Not Be Created", "File Open",
|
|
MB_OKCANCEL|MB_ICONSTOP) == IDCANCEL) {
|
|
return(FALSE);
|
|
}
|
|
}
|
|
} while (fh == HFILE_ERROR);
|
|
|
|
_lclose(fh);
|
|
|
|
return(TRUE);
|
|
}
|