FillRect

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TCanvas FillRect";
frm.Width =525;
frm.Height=375;
frm.OnPaint=frm_Paint;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=
" Пример прямоугольника, закрашенного методом FillRect";

// Изображение BITMAP
bmp=new TBitmap();
bmp.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TBrush\\Image.bmp");

frm.ShowModal();

// Обработчик события OnPaint
function frm_Paint(frm)
{
  var x1=10,y1=10,x2=frm.ClientWidth-x1,y2=stb.Top-y1;
  var cnv=frm.Canvas;

  cnv.Brush.Bitmap=bmp;
  cnv.FillRect(Rect(x1,y1,x2,y2));
}