procedure TMyWin.Paint(PaintDC: HDC; var PaintInfo: TPaintStruct); var myRect : TRect; begin SetBkColor(PaintDC, RGB(128,0,0)); SelectObject(PaintDC, myBrush); myRect.left := 0; myRect.top := 0; myRect.right := 400; myRect.bottom := 400; FillRect(PaintDC, myRect,bs_solid); SelectObject(PaintDC, myFontBig); SetTextColor(PaintDC,RGB(0,128,0)); TextOut(PaintDC,15,5,'$$',2); SelectObject(PaintDC, myFontSml); SetTextColor(PaintDC,RGB(0,0,255)); TextOut(PaintDC,60,15,'A Check Book Program for Windows',32); SelectObject(PaintDC, myFontBig); SetTextColor(PaintDC,RGB(0,128,0)); TextOut(PaintDC,320,5,'$$',2); end;