Program TForm 1. FormPaint (sender: toobject);

defined variable

X, y: integer;

dcMem，DCF RM:HDC；

bmMem，b mold:hbit map；

brMem，brOld:HB rush；

begin

x:= 120；

Y := self. Client height;

DC mem:= GetDC(0)；

BM mem:= CreateCompatibleBitmap(DC mem，x，y)；

ReleaseDC(0，dcMem)；

DC mem:= CreateCompatibleDC(0)；

SetBkMode(dcMem，TRANSPARENT)；

b model:= select object(DC mem，BM mem)；

br mem:= CreateHatchBrush(HS _ diag cross，RGB(0，0，255))；

brOld := SelectObject(dcMem，br mem)；

FillRect(dcMem，Rect(0，0，x - 1，y - 1)，COLOR _ BTN face+ 1)；

Rectangular (dcMem, 0,0, x, y);

dcFrm := GetDC(Self。 Handle);

BitBlt(dcFrm，0，0，x，y，dcMem，0，0，SRCCOPY)；

ReleaseDC(Self。 Handle, dcfrm);

delete object(select object(DC mem，brOld))；

delete object(select object(DC mem，b model))；

DeleteDC(dcMem)；

End;