NT4/private/sdktools/winobj/wfdlgs.c
2020-09-30 17:12:29 +02:00

596 lines
19 KiB
C

/****************************************************************************/
/* */
/* WFDLGS.C - */
/* */
/* Windows File System Dialog procedures */
/* */
/****************************************************************************/
#include "winfile.h"
#include "winnet.h"
#include "lfn.h"
#include "wfcopy.h"
#include "commdlg.h"
#include "dlgs.h"
typedef BOOL (APIENTRY *LPFNFONTPROC)(HWND, UINT, DWORD, LONG);
VOID APIENTRY SaveWindows(HWND hwndMain)
{
CHAR szPath[MAXPATHLEN];
CHAR buf2[MAXPATHLEN + 6*12];
CHAR key[10];
INT dir_num;
UINT sw;
HWND hwnd;
BOOL bCounting;
POINT ptIcon;
RECT rcWindow;
LONG view, sort, attribs;
// save main window position
sw = GetInternalWindowPos(hwndMain, &rcWindow, &ptIcon);
wsprintf(buf2, "%d,%d,%d,%d, , ,%d", rcWindow.left, rcWindow.top,
rcWindow.right - rcWindow.left, rcWindow.bottom - rcWindow.top, sw);
WritePrivateProfileString(szSettings, szWindow, buf2, szTheINIFile);
// write out dir window strings in reverse order
// so that when we read them back in we get the same Z order
bCounting = TRUE;
dir_num = 0;
DO_AGAIN:
for (hwnd = GetWindow(hwndMDIClient, GW_CHILD); hwnd; hwnd = GetWindow(hwnd, GW_HWNDNEXT))
{
HWND ht = HasTreeWindow(hwnd);
INT nReadLevel = ht? GetWindowLong(ht, GWL_READLEVEL) : 0;
// don't save MDI icon title windows or search windows,
// or any dir window which is currently recursing
if ((GetWindow(hwnd, GW_OWNER) == NULL) &&
GetWindowLong(hwnd, GWL_TYPE) != TYPE_SEARCH)
//nReadLevel == 0)
{
if (bCounting)
{
dir_num++;
continue;
}
sw = GetInternalWindowPos(hwnd, &rcWindow, &ptIcon);
view = GetWindowLong(hwnd, GWL_VIEW);
sort = GetWindowLong(hwnd, GWL_SORT);
attribs = GetWindowLong(hwnd, GWL_ATTRIBS);
GetMDIWindowText(hwnd, szPath, sizeof(szPath));
wsprintf(key, szDirKeyFormat, dir_num--);
// format:
// x_win, y_win,
// x_win, y_win,
// x_icon, y_icon,
// show_window, view, sort, attribs, split, directory
wsprintf(buf2, "%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%s",
rcWindow.left, rcWindow.top,
rcWindow.right, rcWindow.bottom,
ptIcon.x, ptIcon.y,
sw, view, sort, attribs,
GetSplit(hwnd),
(LPSTR)szPath);
// the dir is an ANSI string (?)
WritePrivateProfileString(szSettings, key, buf2, szTheINIFile);
}
}
if (bCounting) {
bCounting = FALSE;
// erase the last dir window so that if they save with
// fewer dirs open we don't pull in old open windows
wsprintf(key, szDirKeyFormat, dir_num + 1);
WritePrivateProfileString(szSettings, key, NULL, szTheINIFile);
goto DO_AGAIN;
}
}
/*--------------------------------------------------------------------------*/
/* */
/* OtherDlgProc() - */
/* */
/*--------------------------------------------------------------------------*/
INT APIENTRY OtherDlgProc(register HWND hDlg, UINT wMsg, WPARAM wParam, LONG lParam)
{
LONG wView;
register HWND hwndActive;
UNREFERENCED_PARAMETER(lParam);
hwndActive = (HWND)SendMessage(hwndMDIClient, WM_MDIGETACTIVE, 0, 0L);
switch (wMsg)
{
case WM_INITDIALOG:
wView = GetWindowLong(hwndActive, GWL_VIEW);
CheckDlgButton(hDlg, IDD_SIZE, wView & VIEW_SIZE);
CheckDlgButton(hDlg, IDD_DATE, wView & VIEW_DATE);
CheckDlgButton(hDlg, IDD_TIME, wView & VIEW_TIME);
CheckDlgButton(hDlg, IDD_FLAGS, wView & VIEW_FLAGS);
break;
case WM_COMMAND:
switch (GET_WM_COMMAND_ID(wParam, lParam))
{
case IDD_HELP:
goto DoHelp;
case IDCANCEL:
EndDialog(hDlg, FALSE);
break;
case IDOK:
{
HWND hwnd;
wView = GetWindowLong(hwndActive, GWL_VIEW) & VIEW_PLUSES;
if (IsDlgButtonChecked(hDlg, IDD_SIZE))
wView |= VIEW_SIZE;
if (IsDlgButtonChecked(hDlg, IDD_DATE))
wView |= VIEW_DATE;
if (IsDlgButtonChecked(hDlg, IDD_TIME))
wView |= VIEW_TIME;
if (IsDlgButtonChecked(hDlg, IDD_FLAGS))
wView |= VIEW_FLAGS;
EndDialog(hDlg, TRUE);
if (hwnd = HasDirWindow(hwndActive))
SendMessage(hwnd, FS_CHANGEDISPLAY, CD_VIEW, (DWORD)wView);
else if (hwndActive == hwndSearch) {
SetWindowLong(hwndActive, GWL_VIEW, wView);
InvalidateRect(hwndActive, NULL, TRUE);
}
break;
}
default:
return FALSE;
}
break;
default:
if (wMsg == wHelpMessage) {
DoHelp:
WFHelp(hDlg);
return TRUE;
} else
return FALSE;
}
return TRUE;
}
/*--------------------------------------------------------------------------*/
/* */
/* IncludeDlgProc() - */
/* */
/*--------------------------------------------------------------------------*/
INT APIENTRY IncludeDlgProc(HWND hDlg, UINT wMsg, WPARAM wParam, LONG lParam)
{
DWORD dwAttribs;
HWND hwndActive;
CHAR szTemp[MAXPATHLEN];
CHAR szInclude[MAXFILENAMELEN];
HWND hwndDir;
UNREFERENCED_PARAMETER(lParam);
hwndActive = (HWND)SendMessage(hwndMDIClient, WM_MDIGETACTIVE, 0, 0L);
switch (wMsg)
{
case WM_INITDIALOG:
SendMessage(hwndActive, FS_GETFILESPEC, sizeof(szTemp), (LONG)(LPSTR)szTemp);
SetDlgItemText(hDlg, IDD_NAME, szTemp);
SendDlgItemMessage(hDlg, IDD_NAME, EM_LIMITTEXT, MAXFILENAMELEN-1, 0L);
dwAttribs = (DWORD)GetWindowLong(hwndActive, GWL_ATTRIBS);
CheckDlgButton(hDlg, IDD_DIR, dwAttribs & ATTR_DIR);
CheckDlgButton(hDlg, IDD_PROGRAMS, dwAttribs & ATTR_PROGRAMS);
CheckDlgButton(hDlg, IDD_DOCS, dwAttribs & ATTR_DOCS);
CheckDlgButton(hDlg, IDD_OTHER, dwAttribs & ATTR_OTHER);
CheckDlgButton(hDlg, IDD_SHOWHIDDEN, dwAttribs & ATTR_HIDDEN);
break;
case WM_COMMAND:
switch (GET_WM_COMMAND_ID(wParam, lParam))
{
case IDD_HELP:
goto DoHelp;
case IDCANCEL:
EndDialog(hDlg, FALSE);
break;
case IDOK:
GetDlgItemText(hDlg, IDD_NAME, szInclude, sizeof(szInclude));
if (szInclude[0] == 0L)
lstrcpy(szInclude, szStarDotStar);
dwAttribs = 0;
if (IsDlgButtonChecked(hDlg, IDD_DIR))
dwAttribs |= ATTR_DIR;
if (IsDlgButtonChecked(hDlg, IDD_PROGRAMS))
dwAttribs |= ATTR_PROGRAMS;
if (IsDlgButtonChecked(hDlg, IDD_DOCS))
dwAttribs |= ATTR_DOCS;
if (IsDlgButtonChecked(hDlg, IDD_OTHER))
dwAttribs |= ATTR_OTHER;
if (IsDlgButtonChecked(hDlg, IDD_SHOWHIDDEN))
dwAttribs |= ATTR_HS;
if (!dwAttribs)
dwAttribs = ATTR_EVERYTHING;
EndDialog(hDlg, TRUE); // here to avoid exces repaints
// we need to update the tree if they changed the system/hidden
// flags. major bummer... FIX31
if (hwndDir = HasDirWindow(hwndActive)) {
SendMessage(hwndDir, FS_GETDIRECTORY, sizeof(szTemp), (DWORD)(LPSTR)szTemp);
lstrcat(szTemp, szInclude);
SetWindowText(hwndActive, szTemp);
SetWindowLong(hwndActive, GWL_ATTRIBS, dwAttribs);
SendMessage(hwndDir, FS_CHANGEDISPLAY, CD_PATH, 0L);
}
break;
default:
return FALSE;
}
break;
default:
if (wMsg == wHelpMessage) {
DoHelp:
WFHelp(hDlg);
return TRUE;
} else
return FALSE;
}
return TRUE;
}
INT APIENTRY SelectDlgProc(HWND hDlg, UINT wMsg, WPARAM wParam, LONG lParam)
{
HWND hwndActive, hwnd;
CHAR szList[128];
CHAR szSpec[MAXFILENAMELEN];
LPSTR p;
UNREFERENCED_PARAMETER(lParam);
switch (wMsg) {
case WM_INITDIALOG:
SendDlgItemMessage(hDlg, IDD_NAME, EM_LIMITTEXT, sizeof(szList)-1, 0L);
SetDlgItemText(hDlg, IDD_NAME, szStarDotStar);
break;
case WM_COMMAND:
switch (GET_WM_COMMAND_ID(wParam, lParam)) {
case IDD_HELP:
goto DoHelp;
case IDCANCEL:
EndDialog(hDlg, FALSE);
break;
case IDOK: // select
case IDYES: // unselect
// change "Cancel" to "Close"
LoadString(hAppInstance, IDS_CLOSE, szSpec, sizeof(szSpec));
SetDlgItemText(hDlg, IDCANCEL, szSpec);
hwndActive = (HWND)SendMessage(hwndMDIClient, WM_MDIGETACTIVE, 0, 0L);
if (!hwndActive)
break;
GetDlgItemText(hDlg, IDD_NAME, szList, sizeof(szList));
if (hwndActive == hwndSearch)
hwnd = hwndSearch;
else
hwnd = HasDirWindow(hwndActive);
if (hwnd) {
p = szList;
while (p = GetNextFile(p, szSpec, sizeof(szSpec)))
SendMessage(hwnd, FS_SETSELECTION, (BOOL)(GET_WM_COMMAND_ID(wParam, lParam) == IDOK), (LONG)szSpec);
}
UpdateStatus(hwndActive);
break;
default:
return FALSE;
}
break;
default:
if (wMsg == wHelpMessage) {
DoHelp:
WFHelp(hDlg);
return TRUE;
} else
return FALSE;
}
return TRUE;
}
BOOL FAR PASCAL FontHookProc(HWND hDlg, WORD wMsg, WPARAM wParam, LONG lParam)
{
UNREFERENCED_PARAMETER(lParam);
switch (wMsg) {
case WM_INITDIALOG:
CheckDlgButton(hDlg, chx3, wTextAttribs & TA_LOWERCASE);
break;
case WM_COMMAND:
switch (wParam) {
case pshHelp:
SendMessage(hwndFrame, wHelpMessage, 0, 0L);
break;
case IDOK:
if (IsDlgButtonChecked(hDlg, chx3))
wTextAttribs |= TA_LOWERCASE;
else
wTextAttribs &= ~TA_LOWERCASE;
break;
}
}
return FALSE;
}
#define abs(x) ((x < 0) ? -x : x)
VOID APIENTRY NewFont()
{
HFONT hOldFont;
HANDLE hOld;
HWND hwnd, hwndT;
HDC hdc;
RECT rc;
LOGFONT lf;
CHOOSEFONT cf;
CHAR szBuf[10];
BOOL (APIENTRY *lpfp)(HWND, UINT, DWORD, LONG);
INT res;
WORD iOld,iNew;
#define MAX_PT_SIZE 36
lpfp = (LPFNFONTPROC)MakeProcInstance((FARPROC)FontHookProc, hAppInstance);
if (!lpfp)
return;
GetObject(hFont, sizeof(lf), (LPSTR)(LPLOGFONT)&lf);
iOld = (WORD)abs(lf.lfHeight);
cf.lStructSize = sizeof(cf);
cf.hwndOwner = hwndFrame;
cf.lpLogFont = &lf;
cf.hInstance = hAppInstance;
cf.lpTemplateName = MAKEINTRESOURCE(FONTDLG);
cf.lpfnHook = lpfp;
cf.nSizeMin = 4;
cf.nSizeMax = 36;
cf.Flags = CF_SCREENFONTS | CF_ANSIONLY | CF_SHOWHELP |
CF_ENABLEHOOK | CF_ENABLETEMPLATE |
CF_INITTOLOGFONTSTRUCT | CF_LIMITSIZE;
res = ChooseFont(&cf);
FreeProcInstance(lpfp);
if (!res)
return;
wsprintf(szBuf, "%d", cf.iPointSize / 10);
iNew = (WORD)abs(lf.lfHeight);
// Set wTextAttribs BOLD and ITALIC flags
if (lf.lfWeight == 700)
wTextAttribs |= TA_BOLD;
else
wTextAttribs &= ~TA_BOLD;
if (lf.lfItalic != 0)
wTextAttribs |= TA_ITALIC;
else
wTextAttribs &= ~TA_ITALIC;
WritePrivateProfileString(szSettings, szFace, lf.lfFaceName, szTheINIFile);
WritePrivateProfileString(szSettings, szSize, szBuf, szTheINIFile);
WritePrivateProfileBool(szLowerCase, wTextAttribs);
hOldFont = hFont;
hFont = CreateFontIndirect(&lf);
if (!hFont) {
DeleteObject(hOldFont);
return;
}
// recalc all the metrics for the new font
hdc = GetDC(NULL);
hOld = SelectObject(hdc, hFont);
GetTextStuff(hdc);
if (hOld)
SelectObject(hdc, hOld);
ReleaseDC(NULL, hdc);
// now update all listboxes that are using the old
// font with the new font
for (hwnd = GetWindow(hwndMDIClient, GW_CHILD); hwnd;
hwnd = GetWindow(hwnd, GW_HWNDNEXT)) {
if (GetWindow(hwnd, GW_OWNER))
continue;
if ((INT)GetWindowLong(hwnd, GWL_TYPE) == TYPE_SEARCH) {
SendMessage((HWND)GetDlgItem(hwnd, IDCW_LISTBOX), WM_SETFONT, (WPARAM)hFont, 0L);
SendMessage((HWND)GetDlgItem(hwnd, IDCW_LISTBOX), LB_SETITEMHEIGHT, 0, (LONG)dyFileName);
// we should really update the case of the search
// window here. but this is a rare case...
} else {
// resize the drives, tree, dir
if (hwndT = HasDrivesWindow(hwnd)) {
GetClientRect(hwnd, &rc);
SendMessage(hwnd, WM_SIZE, SIZENOMDICRAP, MAKELONG(rc.right, rc.bottom));
}
if (hwndT = HasDirWindow(hwnd))
SetLBFont(hwndT, GetDlgItem(hwndT, IDCW_LISTBOX), hFont);
if (hwndT = HasTreeWindow(hwnd)) {
// the tree list box
hwndT = GetDlgItem(hwndT, IDCW_TREELISTBOX);
/*
Kludge alert: xTreeMax is a single var representing the width of
all tree windows. It always grows, never shrinks (like the budget
deficit).
*/
xTreeMax = (WORD)LongDiv((DWORD)xTreeMax * iNew, iOld);
SendMessage(hwndT, LB_SETHORIZONTALEXTENT, xTreeMax, 0L);
#ifdef DEBUG
{
char buf[80];
wsprintf(buf, "3:xTreeMax %d\r\n", xTreeMax);
OutputDebugString(buf);
}
#endif
SendMessage(hwndT, WM_SETFONT, (WPARAM)hFont, 0L);
SendMessage(hwndT, LB_SETITEMHEIGHT, 0, (LONG)dyFileName);
}
}
// now repaint after all the font changes
InvalidateRect(hwnd, NULL, TRUE);
}
DeleteObject(hOldFont); // done with this now, delete it
}
/*--------------------------------------------------------------------------*/
/* */
/* ConfirmDlgProc() - */
/* */
/*--------------------------------------------------------------------------*/
INT APIENTRY ConfirmDlgProc(HWND hDlg, UINT wMsg, WPARAM wParam, LONG lParam)
{
UNREFERENCED_PARAMETER(lParam);
switch (wMsg)
{
case WM_INITDIALOG:
CheckDlgButton(hDlg, IDD_DELETE, bConfirmDelete);
CheckDlgButton(hDlg, IDD_SUBDEL, bConfirmSubDel);
CheckDlgButton(hDlg, IDD_REPLACE, bConfirmReplace);
CheckDlgButton(hDlg, IDD_MOUSE, bConfirmMouse);
CheckDlgButton(hDlg, IDD_CONFIG, bConfirmFormat);
break;
case WM_COMMAND:
switch (GET_WM_COMMAND_ID(wParam, lParam))
{
case IDD_HELP:
goto DoHelp;
case IDCANCEL:
EndDialog(hDlg, FALSE);
break;
case IDOK:
bConfirmDelete = IsDlgButtonChecked(hDlg, IDD_DELETE);
bConfirmSubDel = IsDlgButtonChecked(hDlg, IDD_SUBDEL);
bConfirmReplace = IsDlgButtonChecked(hDlg, IDD_REPLACE);
bConfirmMouse = IsDlgButtonChecked(hDlg, IDD_MOUSE);
bConfirmFormat = IsDlgButtonChecked(hDlg, IDD_CONFIG);
WritePrivateProfileBool(szConfirmDelete, bConfirmDelete);
WritePrivateProfileBool(szConfirmSubDel, bConfirmSubDel);
WritePrivateProfileBool(szConfirmReplace, bConfirmReplace);
WritePrivateProfileBool(szConfirmMouse, bConfirmMouse);
WritePrivateProfileBool(szConfirmFormat, bConfirmFormat);
EndDialog(hDlg, TRUE);
break;
default:
return(FALSE);
}
break;
default:
if (wMsg == wHelpMessage) {
DoHelp:
WFHelp(hDlg);
return TRUE;
} else
return FALSE;
}
return TRUE;
}