0

在OnPainta的情况下TForm，我想绘制不覆盖背景或其他绘制对象的位图，因为它们具有透明部分。

如果我在图像上绘制图像，它会起作用。

但是当我在 Form's 上绘图时Canvas，它不起作用：图像的白色部分应该是透明的，它用白色方形颜色覆盖了 Canvas 的其他对象。

Canvas->CopyMode = cmMergePaint ;
Graphics::TBitmap * Image=new Graphics::TBitmap();
Image->Transparent = true;
MainForm->Images->GetBitmap(14, Image);

Canvas->Draw(10,10,Image;
MainForm->Images->GetBitmap(0, Image);
Canvas->Draw(15,15,Image);

更新

当我在 Image 上使用 绘图时MainForm->Images->Draw(Image->Canvas...)，我得到一个透明的正方形，里面没有任何东西，我可以在其他组件上移动。

当我使用 绘图时MainForm->Images->GetBitmap(ImgIndex[HisType]+Rotation, Image)，我在表单上得到了正确的拉伸图像，但没有透明胶片，即它的白色部分覆盖了其他组件。

虽然MainForm->Images->Draw(Canvas, X, Y, ImgIndex[HisType]+Rotation, dsTransparent, itImage);完成了这项工作，但我需要根据 Size 变量为这个组件拉伸它。

TRect DstRect(X,Y, X+32 + ( 1 - Rotation ) * 32 * Size, Y+32 + Rotation * 32 * Size);
Graphics::TBitmap * Image=new Graphics::TBitmap();
Image->Transparent=true;
//MainForm->Images->GetBitmap(ImgIndex[HisType]+Rotation, Image);
MainForm->Images->Draw(Image->Canvas, 0, 0, ImgIndex[HisType]+Rotation, dsTransparent, itImage);
Canvas->StretchDraw(DstRect, Image);
delete Image;

//MainForm->Images->Draw(Canvas, X, Y, ImgIndex[HisType]+Rotation, dsTransparent, itImage);
4

2 回答 2

1

改为使用Images->Draw()，让TImageList绘图为您处理：

MainForm->Images->Draw(Canvas, 10, 10, 14, dsTransparent, itImage);
MainForm->Images->Draw(Canvas, 15, 15, 0, dsTransparent, itImage);
于 2019-02-06T19:24:44.617 回答
0

找到解决方案，感谢 Remy。我们必须首先用一种颜色填充新创建的位图，并且不要让它为空以使透明度起作用......

Size=1; //debug
TRect DstRect(X,Y, X+32 + ( 1 - Rotation ) * 32 * Size, Y+32 + Rotation * 32 * Size);
Graphics::TBitmap * Image=new Graphics::TBitmap();
Image->Width = 32;
Image->Height = 32;
Image->Canvas->FillRect(Rect(0,0,32,32));
MainForm->Images->GetBitmap(ImgIndex[HisType]+Rotation, Image);
//MainForm->Images->Draw(Image->Canvas, 0, 0, ImgIndex[HisType]+Rotation, dsTransparent, itImage);
Image->Canvas->Pen->Color = clRed;
Image->Canvas->MoveTo( 3, 3 );
Image->Canvas->LineTo( 29, 29 );
Image->Transparent=true;
Canvas->StretchDraw(DstRect, Image);
delete Image;
于 2019-02-09T19:15:37.623 回答