Programowanie w C++ Borland Builder - Wyższa Szkoła Informatyki ...

*(info->Wnds++) = wnd;
::EnableWindow(wnd, FALSE);
}
}
return TRUE;
}
KLASA TWindow.
Klasa TWindow (Okno) zawiera implementację wielu przydatnych
przy tworzeniu aplikacji "cegiełek". Poniżej przedstawiono
fragment pliku źródłowego (patrz \SOURCE\OWL\WINDOW.CPP). Łatwo
można rozpoznać pewne znane już elementy.
...
extern LRESULT FAR PASCAL _export InitWndProc(HWND, UINT,
WPARAM, LPARAM);
...
struct TCurrentEvent //Struktura BieżąceZdarzenie
{
TWindow* win; //Wskażnik do okna
UINT message; //Komunikat
WPARAM wParam;
LPARAM lParam;
};
...
DEFINE_RESPONSE_TABLE(TWindow)
//Makro: Zdefiniuj tablicę odpowiedzi na zdarzenia
//EV_WM_SIZE - Zdarzenie (EVent)-nadszedł komunikat WM_SIZE
...
EV_WM_SETCURSOR,
EV_WM_SIZE,
EV_WM_MOVE,
EV_WM_PAINT,
EV_WM_LBUTTONDOWN,
EV_WM_KILLFOCUS,
EV_WM_CREATE,
EV_WM_CLOSE,
EV_WM_DESTROY,
EV_COMMAND(CM_EXIT, CmExit),
...
END_RESPONSE_TABLE;
Funkcje - metody obsługujące komunikaty zaimplementowane zostały
wewnątrz klasy TWindow tak:
TWindow::EvCreate(CREATESTRUCT far&)
{
SetupWindow();
return (int)DefaultProcessing();
}
void TWindow::EvSize(UINT sizeType, TSize&)
{
- 426-