Graphics::TBitmap *tmpBitmap=new Graphics::TBitmap();
tmpBitmap->LoadFromFile("comp.bmp");
TRect rect;
int i,j,bmpWidth,bmpHeight;
rect=Image1->ClientRect;
for(i=rect.Top;i<rect.Bottom;i+=tmpBitmap->Height)
{
for(j=rect.Left;j<rect.Right;j+=tmpBitmap->Width)
{
if(j<rect.Right-tmpBitmap->Width)bmpWidth=tmpBitmap->Width;
else bmpWidth=rect.Right-j;
if(i<rect.Bottom-tmpBitmap->Height)bmpHeight=tmpBitmap->Height;
else bmpHeight=rect.Bottom-i;
::BitBlt(Image1->Canvas->Handle,
j,
i,
bmpWidth,
bmpHeight,
tmpBitmap->Canvas->Handle,
0,
0,
SRCCOPY);
}
}
delete tmpBitmap;