13,872
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
do2008 2006-10-23
- 打赏
- 举报
学习~~~
cczlp 2006-10-23
- 打赏
- 举报
Image1->Canvas->Brush->Bitmap = Image2->Picture->Bitmap;
Image1->Canvas->FillRect(Image1->ClientRect);
Image1->Canvas->FillRect(Image1->ClientRect);
柯本 2006-10-23
- 打赏
- 举报
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *p=new Graphics::TBitmap();
p->LoadFromFile("e:\\temp\\t.bmp");
int x,y;
x=y=0;
while(y<Image1->Height)
{
Image1->Canvas->Draw(x,y,p);
x+=p->Width;
if (x>Image1->Width)
{
x=0;
y+=p->Height;
}
}
delete p;
}
{
Graphics::TBitmap *p=new Graphics::TBitmap();
p->LoadFromFile("e:\\temp\\t.bmp");
int x,y;
x=y=0;
while(y<Image1->Height)
{
Image1->Canvas->Draw(x,y,p);
x+=p->Width;
if (x>Image1->Width)
{
x=0;
y+=p->Height;
}
}
delete p;
}
