ReleaseDC (hwnd, hdcScr) ;Delete0bject (hBitmap) ;LockWindowUpdate (NULL) : 1,return FALSE ;Rysunek 14-20...

Program SCRAMBLE
Cz�� II� Grafika
Program SCRAMBLE nie ma procedury okna. Najpierw w procedurze WinMain
wywo�uje LockWindowUpdate z uchwytem okna pulpitu. Funkcja ta zapobiega
uaktualnieniu ekranu przez jakikolwiek inny program. Nast�pnie SCIZAMBLE
uzyskuje kontekst urz�dzenia ca�ego ekranu, wywo�uj�c GetDCEx z argumentem
DCX LOCKWINDOWUPDATE. To pozwala programowi SCRAMBLE pisa� po
ekranie w sytuacji, gdy �aden inny program nie mo�e tego robi�.
Nast�pnie SCIZAMBLE okre�la wymiary ca�ego ekranu i dzieli je przez 10. Pro-
gram u�ywa tych wymiar�w (o nazwach cx i cy) do utworzenia bitmapy, a na-
st�pnie wybiera t� bitmap� w kontek�cie urz�dzenia pami�ciowego.
Korzystaj�c z funkcji rand j�zyka C, SCRAMBLE oblicza cztery warto�ci losowe
(wsp�rz�dne dw�ch punkt�w), kt�re s� wielokrotno�ciami warto�ci cx i cy. Dwa
prostok�tne bloki ekranu program zamienia miejscami, u�ywaj�c trzech funkcji
BitBlt. Pierwsza kopiuje do kontekstu urz�dzenia pami�ciowego prostok�t roz-
poczynaj�cy si� w pierwszym punkcie. Druga BitBlt kopiuje prostok�t rozpoczy-
naj�cy si� w drugim punkcie w miejsce prostok�ta rozpoczynaj�cego si� w pierw-
szym. Trzeci kopiuje prostok�t z kontekstu urz�dzenia pami�ciowego do obsza-
ru rozpoczynaj�cego si� w drugim punkcie. Proces ten zamienia miejscami za-
warto�� dw�ch prostok�t�w na ekranie. SCRAMBLE wykonuje t� operacj� 300
razy, po czym ekran powinien by� ju� ca�kowicie wymieszany. Nie b�j si� jed-
nak, SCRAMBLE �ledzi ca�y ten ba�agan, a potem porz�dkuje ekran, przywraca-
j�c jego normalny wygl�d (oraz odblokowuje go) przed zako�czeniem dzia�ania.
Konteksty urz�dze� pami�ciowych mo�esz tak�e wykorzystywa� do kopiowa-
nia zawarto�ci jednej bitmapy na inn�. Za��my, �e chcesz utworzy� bitmap�
zawieraj�c� tylko lew� g�rn� �wiartk� innej bitmapy. Je�li oryginalna bitmapa
mia�a uchwyt hBitmap, mo�esz skopiowa� jej wymiary do struktury typu BITMAP:
GetObject (hBitmap, sizeof (BITMAP), &bm) ;
i utworzy� now�, niezainicjowan� bitmap� wielko�ci jednej czwartej rozmiaru
pierwotnego:
hBitmap2 = CreateBitmap (bm.bmWidth / 2, bm.bmHeight / 2,
bm.bmPlanes, bm.bmBitsPixel, NULL) ;
Teraz utw�rz dwa konteksty urz�dze� pami�ciowych i wybierz w nich oryginal-
n� oraz now� bitmap�:
hdcMeml = CreateCompatibleDC (hdc) ;
hdcMem2 = CreateCompatibleDC (hdc) :
SelectObject (hdcMeml, hBitmap) ;
SelectObject (hdcMem2, hBitmap2) ;
Na koniec skopiuj lew� g�rn� �wiartk� pierwszej bitmapy do drugiej:
BitBlt (hdcMem2, 0, 0, bm.bmWidth / 2, bm.bmHeight / 2,
hdcMeml, 0, 0, SRCCOPY) ;
No i sko�czy�e�. Trzeba jeszcze tylko posprz�ta� po sobie:
DeleteDC (hdcMeml) ;
DeleteDC (hdcMem2) ;
Delete0bject (hBitmap) ;
Rozdzia� 14: Bitmapy i BitBlty 645
,
�
Program BLOWUP.C, zaprezentowany na rysunku 14-21, tak�e wykorzystuje
zablokowanie mo�liwo�ci uaktualniania okna, �eby wy�wietli� prostok�t �ci�gni�-
ty z ekranu spoza obszaru jego okna. Program ten pozwala przy u�yciu myszy
�ci�gn�� dowolny prostok�tny obszar z ekranu. Nast�pnie BLOWUP kopiuje za-
warto�� tego prostok�tnego obszaru do bitmapy. W czasie przetwarzania komu-
nikatu WM PAINT bitmapa kopiowana jest do obszaru roboczego okna progra-
mu i, je�li jest to konieczne, rozci�gana lub zmniejszana (patrz rysunek 14-22).
BLOWUP.C
/*
BLOWUP.C - Program ze szklem powi�kszajacym
(c) Charles Petzold, 1998
*/
��include
��include // z powodu definicji funkcji abs
��include "resource.h"
LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ;
int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
PSTR szCmdLine, int iCmdShow)
static TCHAR szAppName [] = TEXT ("Blowup") :
HACCEL hAccel ;
HWND hwnd :
MSG ms9 ;
WNDCLASS wndclass ;
wndclass.style = CS_HREDRAW � CS VREDRAW ;
wndclass.lpfnWndProc = WndProc ;
wndclass.cbClsExtra = 0 ;
wndclass.cbWndExtra = 0 :
wndclass.hInstance = hInstance :
wndclass.hIcon = LoadIcon (NULL, IDI_APPLICATION) ;
wndclass.hCursor = LoadCursor (NULL, IDC�ARROW) :
wndclass.hbrBackground = (HBRUSH) GetStockObject (WHITE�BRUSH)
wndclass.lpszMenuName = szAppName ;
wndclass.lpszClassName = szAppName ;
if (!RegisterClass (&wndclass))
(
MessageBox (NULL, TEXT ("This program requires Windows NT!"),
szAppName, MB�ICONERROR) ;
return 0 ;