Delphi7 dibuja un fondo de cuadrícula
Programa TForm1. FormPaint (remitente: al objeto);
Definir variables
x, y: entero
dcMem, DCF RM: HDC
< p; >bmMem, b mold:hbit map;brMem, brOld:HB rush;
Inicio
x:= 120;
y := yo. Altura del cliente;
Mem DC:= GetDC(0);
Mem BM:= CreateCompatibleBitmap(DC mem, x, y);
ReleaseDC( 0 , dcMem);
Mem DC:= CreateCompatibleDC(0);
SetBkMode(dcMem, TRANSPARENT);
b modelo:= seleccionar objeto(DC mem , BM mem);
br mem:= CreateHatchBrush(HS_diag cross, RGB(0, 0, 255));
brOld := SelectObject(dcMem, br mem ); /p>
FillRect(dcMem, Rect(0, 0, x - 1, y - 1), COLOR _ BTN cara+1
Rectángulo (dcMem, 0, 0 , x, y);
dcFrm := GetDC(Self. handle);
BitBlt(dcFrm, 0, 0, x, y, dcMem, 0, 0, SRCCOPY); p>
ReleaseDC(Self.handle,DCF RM);
eliminar objeto (seleccionar objeto (DC mem, brOld));
eliminar objeto (seleccionar objeto (DC mem, brOld));
eliminar objeto (seleccionar objeto (DC mem, brOld)); , modelo b));
DeleteDC(dcMem);
Fin;