Delphi7 dibuja un fondo de cuadrícula

Evento OnPaint para rellenar el formulario:

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);

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;