152 lines
4.8 KiB
C
152 lines
4.8 KiB
C
|
/* SAVEDLG.C
|
||
|
|
Resident Code Segment // Tweak: make non-resident?
|
||
|
|
|
||
|
|
Routines for Save Theme As dialog
|
||
|
|
|
||
|
|
Frosting: Master Theme Selector for Windows '95
|
||
|
|
Copyright (c) 1994-1999 Microsoft Corporation. All rights reserved.
|
||
|
|
*/
|
||
|
|
|
||
|
|
// ---------------------------------------------
|
||
|
|
// Brief file history:
|
||
|
|
// Alpha:
|
||
|
|
// Beta:
|
||
|
|
// Bug fixes
|
||
|
|
// ---------
|
||
|
|
//
|
||
|
|
// ---------------------------------------------
|
||
|
|
|
||
|
|
#include "windows.h"
|
||
|
|
#include "frost.h"
|
||
|
|
#include "global.h"
|
||
|
|
|
||
|
|
// Local Routines
|
||
|
|
BOOL ValidateFilename(LPTSTR);
|
||
|
|
|
||
|
|
INT_PTR FAR PASCAL SaveAsDlgProc(hDlg, message, wParam, lParam)
|
||
|
|
HWND hDlg;
|
||
|
|
UINT message;
|
||
|
|
WPARAM wParam;
|
||
|
|
LPARAM lParam;
|
||
|
|
{
|
||
|
|
switch (message) {
|
||
|
|
|
||
|
|
case WM_INITDIALOG:
|
||
|
|
// set max length for new theme name
|
||
|
|
SendDlgItemMessage(hDlg, EC_THEME, EM_LIMITTEXT,
|
||
|
|
(WPARAM)(MAX_PATHLEN-5), (LPARAM)0);
|
||
|
|
|
||
|
|
|
||
|
|
// suggest a name for the new saved theme
|
||
|
|
if (LoadString(hInstApp, STR_SUGGEST, szMsg, MAX_STRLEN))
|
||
|
|
SetDlgItemText(hDlg, EC_THEME, (LPTSTR)szMsg);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case WM_COMMAND:
|
||
|
|
switch ((int)LOWORD(wParam)) {
|
||
|
|
|
||
|
|
// watch as changes the edit control
|
||
|
|
case EC_THEME:
|
||
|
|
if (HIWORD(wParam) == EN_CHANGE) {
|
||
|
|
// if changed, enable OK iff nonzero length filename
|
||
|
|
EnableWindow(GetDlgItem(hDlg, IDOK),
|
||
|
|
(BOOL) SendMessage((HWND)LOWORD(lParam),
|
||
|
|
WM_GETTEXTLENGTH,
|
||
|
|
(WPARAM)0, (LPARAM)0) );
|
||
|
|
}
|
||
|
|
else return (FALSE); // didn't really process msg EXIT
|
||
|
|
break;
|
||
|
|
|
||
|
|
// OK to go ahead and save the current settings as a new theme
|
||
|
|
case IDOK:
|
||
|
|
{ // local variable scope
|
||
|
|
TCHAR szNewFile[MAX_PATHLEN+1];
|
||
|
|
|
||
|
|
// get new filename
|
||
|
|
GetDlgItemText(hDlg, EC_THEME, (LPTSTR)szNewFile, MAX_PATHLEN-4);
|
||
|
|
lstrcat((LPTSTR)szNewFile, (LPTSTR)szExt);
|
||
|
|
|
||
|
|
// check whether they gave valid filename: chars + length
|
||
|
|
if (!ValidateFilename((LPTSTR)szNewFile)) {
|
||
|
|
// bad file: post message and put them back in save dlg
|
||
|
|
/// *** DEBUG *** add messagebox here......................
|
||
|
|
break; // couldn't use name EXIT
|
||
|
|
}
|
||
|
|
|
||
|
|
// gather the current windows settings and save them to a THM file
|
||
|
|
WaitCursor();
|
||
|
|
if (!GatherThemeToFile((LPTSTR)szNewFile)) {
|
||
|
|
// out of disk space or some weird file or disk problem
|
||
|
|
// *** DEBUG *** add messagebox here......................
|
||
|
|
// could be that most saved OK and just one or some a problem?
|
||
|
|
NormalCursor();
|
||
|
|
break; // couldn't write to file somehow EXIT
|
||
|
|
}
|
||
|
|
NormalCursor();
|
||
|
|
|
||
|
|
// clean up and add new filename to list in drop-down listbox
|
||
|
|
lstrcpy((LPTSTR)szMsg, (LPTSTR)szNewFile);
|
||
|
|
TruncateExt((LPCTSTR)szMsg);
|
||
|
|
if (CB_ERRSPACE != (int) SendDlgItemMessage(hWndApp, DDL_THEME,
|
||
|
|
CB_INSERTSTRING,
|
||
|
|
(WPARAM) -1, /* end of list */
|
||
|
|
(LPARAM)(LPCTSTR)szMsg) ) {
|
||
|
|
|
||
|
|
// get new theme count; ask rather than increment -- for failsafe
|
||
|
|
iThemeCount = (int) SendDlgItemMessage(hWndApp, DDL_THEME,
|
||
|
|
CB_GETCOUNT, (WPARAM)0, (LPARAM)0);
|
||
|
|
|
||
|
|
// select item just added and save index of selection
|
||
|
|
iCurTheme = iThemeCount-1;
|
||
|
|
SendDlgItemMessage(hWndApp, DDL_THEME,
|
||
|
|
CB_SETCURSEL, (WPARAM)iCurTheme, (LPARAM)0);
|
||
|
|
|
||
|
|
// update cur Theme file name to your new one
|
||
|
|
lstrcpy((LPTSTR)szCurThemeFile, (LPTSTR)szThemeDir);
|
||
|
|
lstrcat((LPTSTR)szCurThemeFile, (LPTSTR)szNewFile);
|
||
|
|
|
||
|
|
// update checkboxes
|
||
|
|
EnableThemeButtons();
|
||
|
|
|
||
|
|
}
|
||
|
|
// else not enuf mem to add new name to DDL; no biggie - already saved
|
||
|
|
|
||
|
|
// (don't need to update preview, etc; was "cur settings" or prev same last)
|
||
|
|
|
||
|
|
} // variable scope
|
||
|
|
/* fall through */
|
||
|
|
case IDCANCEL:
|
||
|
|
EndDialog(hDlg,(int)LOWORD(wParam));
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
return (FALSE);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
return(FALSE);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
//
|
||
|
|
// ValidateFilename
|
||
|
|
// Check that this file and the current directory path together make
|
||
|
|
// a valid filename.
|
||
|
|
// Check for total length, legals chars, etc.
|
||
|
|
//
|
||
|
|
BOOL ValidateFilename(LPTSTR lpszFilename)
|
||
|
|
{
|
||
|
|
// first check for length
|
||
|
|
if (lstrlen((LPTSTR)lpszFilename) + lstrlen((LPTSTR)szThemeDir) > MAX_PATHLEN)
|
||
|
|
return (FALSE); // too long for Win95! EXIT
|
||
|
|
|
||
|
|
// do ultimate test of name validity with openfile check
|
||
|
|
|
||
|
|
// cleanup
|
||
|
|
return (TRUE);
|
||
|
|
}
|
||
|
|
|