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

Okno1.hbrBackground= GetStockObject(WHITE_BRUSH );
Okno1.lpszMenuName= 0;
Okno1.lpszClassName= LongPtr1;
if (!RegisterClass(&Okno1))
return 0;
}
NrOkna = CreateWindow(LongPtr1, lp2, WS_VISIBLE |
WS_SYSMENU |
WS_MINIMIZEBOX | WS_VSCROLL | WS_MAXIMIZEBOX,
CW_USEDEFAULT, 0, CW_USEDEFAULT, 0,
0, 0, hInstance, 0);
ShowWindow(NrOkna, nCmdShow);
UpdateWindow(NrOkna);
while (GetMessage(&komunikaty, 0, 0, 0))
{
TranslateMessage(&komunikaty );
DispatchMessage(&komunikaty );
}
return 0;
}
long FAR PASCAL WndProc (HWND NrOkna, unsigned KomunikatWindows,
WORD wParam, LONG lParam)
{
HDC NrKontekstu;
PAINTSTRUCT struktura_graficzna;
RECT prostokat;
switch(KomunikatWindows)
{
case WM_PAINT:
{
NrKontekstu = BeginPaint(NrOkna, &struktura_graficzna);
GetClientRect(NrOkna, &prostokat);
TextOut(NrKontekstu,80,50, ": Reczne sterowanie:", 20 );
TextOut(NrKontekstu, 5,70, "Tu -->", 6);
TextOut(NrKontekstu, 5, 85, "Blad:", 5);
TextOut(NrKontekstu,75,70, "-----------------------------",
40);
TextOut(NrKontekstu,30,110, "Programowanie proceduralno -
zdarzeniowe.", 41 );
TextOut(NrKontekstu,30,135, "Szablon moze zostac rozbudowany
o inne funkcje.", 47 );
TextOut(NrKontekstu,30,180, "RECZNIE panujemy np. nad:", 25
);
TextOut(NrKontekstu,20,220, "paskiem tytulowym okna, tytulem
ikonki...", 41);
- 394-