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

LEKCJA 46. APLIKACJA OBIEKTOWA - RYSOWANIE W OKNIE.
________________________________________________________________
W trakcie tej lekcji opracujemy obiektową aplikację psoługując
się biblioteką klas Object Windows Library.
________________________________________________________________
Zaczniemy oczywiście od standardowych "klocków". Definicja klasy
Nasza_Aplikacja i moduł prezentacyjno - uruchomieniowy będą
wyglądać standardowo, nie musimy im zatem poświęcać zbytniej
uwagi. Przytoczymy je jedynie. Pointer do napisu inicjujemy po
to, by okienko komunikatu zawierało jakąś bardziej konkretną
informację dla użytkownika. Rysunki z wnętrza tej aplikacji
można przy pomocy Schowka przenieść jako pliki .CLP, bądź za
pomocą PAINTBRUSH - jako .BMP, .PCX i drukować.
#include
LPSTR Ptr = "Jesli chcesz zapamietac rysunek, \
powinienes przeniesc go do Clipboard'u \
klawiszami [Print Screen] \
lub [Alt]+[PrtScr].";
class TNAplikacja : public TApplication
{
public:
TNAplikacja(LPSTR AName, HANDLE hInstance, HANDLE
hPrevInstance,
LPSTR lpCmdLine, int nCmdShow)
: TApplication(AName, hInstance, hPrevInstance, lpCmdLine,
nCmdShow) {};
virtual void InitMainWindow();
};
...
int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
LPSTR lpCmdLine, int nCmdShow)
{
TNAplikacja OBIEKT("Rysownik. Prawy klawisz umozliwia wyjscie.",
hInstance, hPrevInstance, lpCmdLine, nCmdShow);
OBIEKT.Run();
return (OBIEKT.Status);
}
Nic specjalnie ciekawego nie dzieje się w funkcji inicjującej
główne okno, ani w funkcji zamykającej aplikację. Zmieniły się
tylko napisy w okienku komunikatów.
void TNAplikacja::InitMainWindow()
{
MainWindow = new TGOkno(0, Name);
}
BOOL TGOkno::CanClose()
- 438-