Программа PROPERTY

476

Рис. 12.12 Страница свойств Extended Window Styles

PROPERTY.MAK

#------------------------

# PROPERTY.MAK make file

#------------------------

property.exe : property.obj helper.obj notify.obj \ page1.obj page2.obj sheet.obj property.res

$(LINKER) $(GUIFLAGS) -OUT:property.exe property.obj \ helper.obj notify.obj page1.obj page2.obj sheet.obj \ property.res $(GUILIBS)

property.obj : property.c comcthlp.h property.h $(CC) $(CFLAGS) property.c

helper.obj : helper.c property.h $(CC) $(CFLAGS) helper.c

notify.obj : notify.c notify.h $(CC) $(CFLAGS) notify.c

page1.obj : page1.c helper.h notify.h property.h $(CC) $(CFLAGS) page1.c

page2.obj : page2.c helper.h notify.h property.h $(CC) $(CFLAGS) page2.c

sheet.obj : sheet.c comcthlp.h property.h $(CC) $(CFLAGS) sheet.c

property.res : property.rc property.ico $(RC) $(RCVARS) property.rc

PROPERTY.H

#define IDM_MULTILINETABS 203

478

#include <windows.h> #include <windowsx.h> #include <commctrl.h> #include "comcthlp.h" #include "property.h"

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);

char szAppName[] = "Property Sheet"; HINSTANCE hInst;

HWND hwndMain = NULL;

HWND hwndChild = NULL;

HWND hwndModeless = NULL;

// Values modified by property sheet

DWORD dwChildStyle = WS_CHILD | WS_VISIBLE | WS_BORDER | WS_CAPTION; DWORD dwChildExStyle = 0L;

// Value modified by menu item selection DWORD dwSheetStyles = PSH_PROPTITLE;

//-------------------------------------------------------------------

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR lpszCmdLine, int cmdShow)

{

HWND hwnd;

MSG msg;

WNDCLASSEX wc;

hInst = hInstance;

hiconApp = LoadIcon(hInst, MAKEINTRESOURCE(IDI_APP));

ZeroMemory(&wc, sizeof(WNDCLASSEX));

RegisterClassEx(&wc);

hwndMain =

hwnd = CreateWindowEx(WS_EX_OVERLAPPEDWINDOW, "MAIN", szAppName, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, NULL, hInstance, NULL);

ShowWindow(hwnd, cmdShow);

479

UpdateWindow(hwnd);

InitCommonControls();

while(GetMessage(&msg, NULL, 0, 0))

{

if((hwndModeless) && (!(PropSheet_IsDialogMessage(hwndModeless, &msg)))) continue;

TranslateMessage(&msg);

DispatchMessage(&msg);

}

return msg.wParam;

}

//-------------------------------------------------------------------

void MenuCheckMark(HMENU hmenu, int id, BOOL bCheck)

{

int iState;

iState =(bCheck) ? MF_CHECKED : MF_UNCHECKED; CheckMenuItem(hmenu, id, iState);

}

//-------------------------------------------------------------------

void static FlipFlag(LPDWORD dwStyle, DWORD flag)

//-------------------------------------------------------------------

LRESULT CALLBACK

WndProc(HWND hwnd, UINT mMsg, WPARAM wParam, LPARAM lParam)

{

switch(mMsg)

{

case WM_CREATE :

hwndChild = CreateWindowEx(dwChildExStyle, "CHILD", "First Window", dwChildStyle, 0, 0, 0, 0, hwnd,(HMENU) 1,

hInst, NULL);

CreateWindowEx(dwChildExStyle, "CHILD", "Second Window",

WS_CLIPSIBLINGS | dwChildStyle,

10, 10, 200, 50, hwnd, (HMENU) 2, hInst, NULL);

return 0;

case WM_COMMAND :

{

switch(LOWORD(wParam))

{

case IDM_WINDOW_PROPERTIES :

{

BOOL bRet;

// If modeless, active existing property sheet

480

if(hwndModeless)

{

SetActiveWindow(hwndModeless);

break;

}

// Are we creating a wizard?

bWizard =(dwSheetStyles & PSH_WIZARD);

//Create actual property sheet bRet = CreatePropertySheet(hwnd);

//Store handle if modeless if(dwSheetStyles & PSH_MODELESS)

{

hwndModeless =(HWND) bRet; break;

}

break;

}

case IDM_WIZARD : FlipFlag(&dwSheetStyles, PSH_WIZARD); break;

case IDM_HASHELP : FlipFlag(&dwSheetStyles, PSH_HASHELP); break;

case IDM_MODELESS : FlipFlag(&dwSheetStyles, PSH_MODELESS); break;

case IDM_NOAPPLYNOW : FlipFlag(&dwSheetStyles, PSH_NOAPPLYNOW); break;

case IDM_PROPTITLE : FlipFlag(&dwSheetStyles, PSH_PROPTITLE); break;

case IDM_RTLREADING : FlipFlag(&dwSheetStyles, PSH_RTLREADING); break;

}

return 0;

}

case WM_DESTROY : PostQuitMessage(0); return 0;

case WM_INITMENU :

{

BOOL bCheck;

HMENU hmenu =(HMENU) wParam;

bCheck =(dwSheetStyles & PSH_WIZARD); MenuCheckMark(hmenu, IDM_WIZARD, bCheck);

bCheck =(dwSheetStyles & PSH_HASHELP); MenuCheckMark(hmenu, IDM_HASHELP, bCheck);

bCheck =(dwSheetStyles & PSH_MODELESS); MenuCheckMark(hmenu, IDM_MODELESS, bCheck);

482

extern DWORD dwChildStyle; extern DWORD dwChildExStyle; extern DWORD dwSheetStyles; extern char szAppName[]; extern HINSTANCE hInst; extern HICON hiconApp;

//-------------------------------------------------------------------

int CALLBACK PropSheetProc(HWND hwndDlg, UINT uMsg, LPARAM lParam)

{

switch(uMsg)

{

case PSCB_INITIALIZED :

// Process PSCB_INITIALIZED break;

case PSCB_PRECREATE :

// Process PSCB_PRECREATE break;

default :

// Unknown message break;

}

return 0;

}

//-------------------------------------------------------------------

BOOL CreatePropertySheet(HWND hwndParent)

{

PROPSHEETHEADER pshead;

PROPSHEETPAGE pspage[2];

// Initialize property sheet HEADER data ZeroMemory(&pshead, sizeof(PROPSHEETHEADER)); pshead.dwSize = sizeof(PROPSHEETHEADER);

//Zero out property PAGE data ZeroMemory(&pspage, 2 * sizeof(PROPSHEETPAGE));

//PAGE 1 -- window style page

// PAGE 2 -- extended window style page

484

bCheck =(dwOrigStyle & WS_DISABLED); SetButtonCheck(hwndDlg, IDC_DISABLED, bCheck);

bCheck =(dwOrigStyle & WS_MINIMIZE); SetButtonCheck(hwndDlg, IDC_MINIMIZE, bCheck);

bCheck =(dwOrigStyle & WS_MAXIMIZE); SetButtonCheck(hwndDlg, IDC_MAXIMIZE, bCheck);

bCheck =(dwOrigStyle & WS_CLIPCHILDREN); SetButtonCheck(hwndDlg, IDC_CLIPCHILDREN, bCheck);

bCheck =(dwOrigStyle & WS_CLIPSIBLINGS); SetButtonCheck(hwndDlg, IDC_CLIPSIBLINGS, bCheck);

bCheck =(dwOrigStyle & WS_BORDER); SetButtonCheck(hwndDlg, IDC_BORDER, bCheck);

bCheck =(dwOrigStyle & WS_CAPTION); SetButtonCheck(hwndDlg, IDC_CAPTION, bCheck);

bCheck =(dwOrigStyle & WS_DLGFRAME); SetButtonCheck(hwndDlg, IDC_DLGFRAME, bCheck);

bCheck =(dwOrigStyle & WS_HSCROLL); SetButtonCheck(hwndDlg, IDC_HSCROLL, bCheck);

bCheck =(dwOrigStyle & WS_MAXIMIZEBOX); SetButtonCheck(hwndDlg, IDC_MAXIMIZEBOX, bCheck); bCheck =(dwOrigStyle & WS_MINIMIZEBOX); SetButtonCheck(hwndDlg, IDC_MINIMIZEBOX, bCheck);

bCheck =(dwOrigStyle & WS_SYSMENU); SetButtonCheck(hwndDlg, IDC_SYSMENU, bCheck);

bCheck =(dwOrigStyle & WS_THICKFRAME); SetButtonCheck(hwndDlg, IDC_THICKFRAME, bCheck);

bCheck =(dwOrigStyle & WS_VSCROLL); SetButtonCheck(hwndDlg, IDC_VSCROLL, bCheck);

return TRUE;

}

case WM_COMMAND :

{

WORD wNotifyCode = HIWORD(wParam);

WORD wID = LOWORD(wParam);

HWND hwndSheet;

switch(wID)

{

case IDC_VISIBLE : case IDC_DISABLED : case IDC_MINIMIZE : case IDC_MAXIMIZE : case IDC_CLIPCHILDREN : case IDC_CLIPSIBLINGS : case IDC_BORDER :

case IDC_CAPTION : case IDC_DLGFRAME : case IDC_HSCROLL : case IDC_MAXIMIZEBOX : case IDC_MINIMIZEBOX :

485

case IDC_SYSMENU : case IDC_THICKFRAME : case IDC_VSCROLL :

hwndSheet = GetParent(hwndDlg); PropSheet_Changed(hwndSheet, hwndDlg); break;

}

return TRUE;

}

case WM_HELP :

// Catch F1 key strike

MessageBox(hwndDlg, "WM_HELP Message Received",

"StyleDlgProc", MB_OK); return TRUE;

case WM_NOTIFY :

{

LPNMHDR pnmh =(LPNMHDR) lParam;

//Handle OK and Apply buttons if(pnmh->code == PSN_APPLY)

{

HWND hwndPS; HWND hwndActive;

//Overwrite current style value *pTheStyles = FetchStyles(hwndDlg);

//Tell main window to re-create child window hwndPS = GetParent(hwndDlg);

hwndActive = PropSheet_GetCurrentPageHwnd(hwndPS);

//Only re-create if we're the active page if(hwndDlg == hwndActive)

PostMessage(hwndMain, PM_CREATEWINDOW, 0, 0L);

}

//Destroy modeless dialog on OK or Cancel if((IsWindowEnabled(hwndMain)) &&

(pnmh->code == PSN_APPLY || pnmh->code == PSN_RESET))

{

LPPSHNOTIFY psh =(LPPSHNOTIFY) lParam; HWND hwndPropSheet;

//Ignore Apply button

if(pnmh->code == PSN_APPLY && psh->lParam == 0) return TRUE;

// Clicking OK or Cancel, destroy property sheet hwndPropSheet = GetParent(hwndDlg); DestroyWindow(hwndPropSheet);

hwndModeless = NULL;

}

// Enable Next button on wizard page if(bWizard && pnmh->code == PSN_SETACTIVE)

{

HWND hwndSheet = GetParent(hwndDlg);

PropSheet_SetWizButtons(hwndSheet, PSWIZB_NEXT);

}

return TRUE;

}

default :

486

return FALSE;

}

}

//-------------------------------------------------------------------

DWORD FetchStyles(HWND hwndDlg)

{

DWORD dwStyle = WS_CHILD;

if(QueryButtonCheck(hwndDlg, IDC_VISIBLE))

{

dwStyle |= WS_VISIBLE;

}

if(QueryButtonCheck(hwndDlg, IDC_DISABLED))

{

dwStyle |= WS_DISABLED;

}

if(QueryButtonCheck(hwndDlg, IDC_MINIMIZE))

{

dwStyle |= WS_MINIMIZE;

}

if(QueryButtonCheck(hwndDlg, IDC_MAXIMIZE))

{

dwStyle |= WS_MAXIMIZE;

}

if(QueryButtonCheck(hwndDlg, IDC_CLIPCHILDREN))

{

dwStyle |= WS_CLIPCHILDREN;

}

if(QueryButtonCheck(hwndDlg, IDC_CLIPSIBLINGS))

{

dwStyle |= WS_CLIPSIBLINGS;

}

if(QueryButtonCheck(hwndDlg, IDC_BORDER))

{

dwStyle |= WS_BORDER;

}

if(QueryButtonCheck(hwndDlg, IDC_CAPTION))

{

dwStyle |= WS_CAPTION;

}

if(QueryButtonCheck(hwndDlg, IDC_DLGFRAME))

{

dwStyle |= WS_DLGFRAME;

}

if(QueryButtonCheck(hwndDlg, IDC_HSCROLL))

{

dwStyle |= WS_HSCROLL;

}

if(QueryButtonCheck(hwndDlg, IDC_MAXIMIZEBOX))

{

dwStyle |= WS_MAXIMIZEBOX;

}

488

{

case WM_INITDIALOG :

{

BOOL bCheck;

DWORD dwOrigStyle = *pTheExStyles;

bCheck =(dwOrigStyle & WS_EX_CLIENTEDGE); SetButtonCheck(hwndDlg, IDC_CLIENTEDGE, bCheck);

bCheck =(dwOrigStyle & WS_EX_CONTEXTHELP); SetButtonCheck(hwndDlg, IDC_CONTEXTHELP, bCheck);

bCheck =(dwOrigStyle & WS_EX_DLGMODALFRAME); SetButtonCheck(hwndDlg, IDC_DLGMODALFRAME, bCheck);

bCheck =(dwOrigStyle & WS_EX_OVERLAPPEDWINDOW); SetButtonCheck(hwndDlg, IDC_EXOVERLAPPED, bCheck);

bCheck =(dwOrigStyle & WS_EX_PALETTEWINDOW); SetButtonCheck(hwndDlg, IDC_PALETTE, bCheck);

bCheck =(dwOrigStyle & WS_EX_STATICEDGE); SetButtonCheck(hwndDlg, IDC_STATICEDGE, bCheck); bCheck =(dwOrigStyle & WS_EX_TOOLWINDOW); SetButtonCheck(hwndDlg, IDC_TOOLWINDOW, bCheck);

bCheck =(dwOrigStyle & WS_EX_WINDOWEDGE); SetButtonCheck(hwndDlg, IDC_WINDOWEDGE, bCheck);

bCheck =(dwOrigStyle & WS_EX_ACCEPTFILES); SetButtonCheck(hwndDlg, IDC_ACCEPTFILES, bCheck);

bCheck =(dwOrigStyle & WS_EX_APPWINDOW); SetButtonCheck(hwndDlg, IDC_APPWINDOW, bCheck);

bCheck =(dwOrigStyle & WS_EX_TOPMOST); SetButtonCheck(hwndDlg, IDC_TOPMOST, bCheck);

bCheck =(dwOrigStyle & WS_EX_TRANSPARENT); SetButtonCheck(hwndDlg, IDC_TRANSPARENT, bCheck);

bCheck =(dwOrigStyle & WS_EX_CONTROLPARENT); SetButtonCheck(hwndDlg, IDC_CONTROLPARENT, bCheck);

bCheck =(dwOrigStyle & WS_EX_MDICHILD); SetButtonCheck(hwndDlg, IDC_MDICHILD, bCheck);

bCheck =(dwOrigStyle & WS_EX_NOPARENTNOTIFY); SetButtonCheck(hwndDlg, IDC_NOPARENTNOTIFY, bCheck);

return TRUE;

}

case WM_COMMAND :

{

WORD wNotifyCode = HIWORD(wParam);

WORD wID = LOWORD(wParam);

HWND hwndSheet;

switch(wID)

{

case IDC_CLIENTEDGE : case IDC_CONTEXTHELP : case IDC_DLGMODALFRAME :

490

// Ignore Apply button

if(pnmh->code == PSN_APPLY && psh->lParam == 0) return TRUE;

// Clicking OK or Cancel, destroy property sheet hwndPropSheet = GetParent(hwndDlg); DestroyWindow(hwndPropSheet);

hwndModeless = NULL;

}

// Enable Back and Finish buttons on wizard page if(bWizard && pnmh->code == PSN_SETACTIVE)

{

HWND hwndSheet = GetParent(hwndDlg);

PropSheet_SetWizButtons(hwndSheet, PSWIZB_BACK |

PSWIZB_FINISH);

}

// Support for Help button if(pnmh->code == PSN_HELP)

{

MessageBox(hwndDlg, "PSN_HELP Notification Received",

"ExStyleDlgProc", MB_OK);

}

return TRUE;

}

default :

return FALSE;

}

}

//-------------------------------------------------------------------

DWORD FetchExStyles(HWND hwndDlg)

{

DWORD dwStyle = 0L;

if(QueryButtonCheck(hwndDlg, IDC_CLIENTEDGE))

{

dwStyle |= WS_EX_CLIENTEDGE;

}

if(QueryButtonCheck(hwndDlg, IDC_CONTEXTHELP))

{

dwStyle |= WS_EX_CONTEXTHELP;

}

if(QueryButtonCheck(hwndDlg, IDC_DLGMODALFRAME))

{

dwStyle |= WS_EX_DLGMODALFRAME;

}

if(QueryButtonCheck(hwndDlg, IDC_EXOVERLAPPED))

{

dwStyle |= WS_EX_OVERLAPPEDWINDOW;

}

if(QueryButtonCheck(hwndDlg, IDC_PALETTE))

{

dwStyle |= WS_EX_PALETTEWINDOW;

}

if(QueryButtonCheck(hwndDlg, IDC_STATICEDGE))

492

//-------------------------------------------------------------------

void SetButtonCheck(HWND hwndDlg, int CtrlID, BOOL bCheck)

{

HWND hwndCtrl = GetDlgItem(hwndDlg, CtrlID); if(bCheck)

{

Button_SetCheck(hwndCtrl, BST_CHECKED);

}

}

//-------------------------------------------------------------------

BOOL QueryButtonCheck(HWND hwndDlg, int CtrlID)

{

HWND hwndCtrl = GetDlgItem(hwndDlg, CtrlID); int nCheck = Button_GetCheck(hwndCtrl); return(nCheck == BST_CHECKED);

}

PROPERTY.RC

#include "property.h" #include <windows.h>

STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU CAPTION "Window Styles"

FONT 8, "MS Sans Serif"

{

GROUPBOX

CONTROL

CONTROL

CONTROL

CONTROL

GROUPBOX

CONTROL

CONTROL

GROUPBOX

494

Рис. 12.13 Исходный текст программы PROPERTY

В ответ на сообщение WM_CREATE главное окно программы PROPERTY создает два дочерних окна. Первое окно с заголовком "First Window" представляет для нас основной интерес. Это окно изменяет размеры при изменении размеров родительского окна с тем, чтобы занимать 1/9 от размера его рабочей области. При изменении флагов стиля окна, родительское окно получает частное сообщение PM_CREATEWINDOW, в ответ на которое родительское окно уничтожает открытое дочернее окно, создает новое дочернее окно с указанными стилями, а затем посылает самому себе сообщение WM_SIZE для форсирования изменения размеров дочернего окна.

Флаги стиля для создания дочернего окна запоминаются в двух глобальных переменных, определенных в файле

PROPERTY.C:

DWORD dwChildStyle = WS_CHILD | WS_VISIBLE | WS_BORDER | WS_CAPTION;

DWORD dwChildExStyle = 0L;

Указатели на каждую из этих переменных передаются каждой странице свойств в поле lParam структуры PRPSHEETPAGE. Например, ниже показано, как dwChildStyle передается первой странице свойств (см. файл

SHEET.C):

pspage[0].lParam =(LPARAM) &dwChildStyle;

Первая страница свойств извлекает это значение в своей оконной процедуре (StylePageProc). Расположенная в файле PAGE1.C, эта функция вызывается непосредственно перед созданием страницы свойств с кодом сообщения PSPCB_CREATE. Этот указатель запоминается в глобальной переменной, объявленной как static, и поэтому, имеющей область видимости, ограниченную этим исходным файлом:

// Сохранить указатель на данные о стиле pTheStyles =(LPDWORD) ppsp->lParam;

Здесь ppsp — указатель на структуру страницы свойств PROPSHEETPAGE, переданную в функцию страницы свойств.

Каждая страница свойств имеет указатель на данные, которые могут быть изменены в ней. Поэтому, когда становится необходимым применить сделанные изменения, каждая диалоговая процедура страницы свойств записывает эти изменения обратно в источник данных. Кажется, что было бы проще использовать глобальные переменные. Это общая практика при работе с обычными диалоговыми окнами. Но мы используем параметр lParam для того, чтобы показать, как "удаленная" страница свойств — такая как расположенная в динамически подключаемой библиотеке — может быть инициализирована без использования чего-либо кроме содержимого структуры PROPSHEETPAGE.

Внутри диалоговых процедур страниц свойств наиболее интересным является обработка сообщения WM_NOTIFY. При нажатии кнопок OK или Apply диалоговые процедуры получают уведомление PSN_APPLY. Как уже упоминалось ранее, страницы свойств создаются по мере их активизации пользователем. Только страницы, которые были реально созданы, получают уведомления. Это означает, что когда набор страниц свойств уничтожается, только одна или обе диалоговые процедуры могут получить уведомление PSN_APPLY.

Для того, чтобы быть уверенным в том, что изменения данных будут применены только один раз, каждая диалоговая процедура проверяет, являлась ли ее страница активной перед посылкой запроса PM_CREATEWINDOW главному окну программы. Это делается с помощью посылки сообщения PSM_GETCURRENTPAGEHWND окну набора страниц свойств, в ответ на которое возвращается описатель окна активной страницы. Запрос на воссоздание дочернего окна посылается функцией PostMessage с целью избежать временных проблем при посылке сообщения из диалоговой процедуры активной страницы:

HWND hwndPS = GetParent(hwndDlg);

HWND hwndActive = PropSheet_GetCurrentPageHwnd(hwndPS);

// Только для активной страницы if(hwndDlg == hwndActive)

PostMessage(hwndMain, PM_CREATEWINDOW, 0, 0L);

Программа PROPERTY показывает, что все, что вы знаете о работе с диалоговыми окнами применимо к наборам страниц свойств. Имеется несколько различий, связанных с большей сложностью. Это касается мастеров, немодальных наборов страниц свойств и использования различных наборов кнопок.