怎么在canvas上画透明的位图
1个回答
展开全部
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do begin
LoadFromFile('Your.bmp');
Transparent := True;
TransParentColor := clWhite;
Form1.Canvas.Draw(0,0,BitMap);
TransparentMode := tmAuto;
Form1.Canvas.Draw(50,50,BitMap);
end;
finally
Bitmap.Free;
end;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
**AI一键生成PPT免费版**为满足广大用户的需求，我们博思云创科技特推出AI一键生成PPT免费版。用户只需简单输入需求，AI技术便能智能分析并快速生成高质量PPT。此版本功能强大且易于操作，无需专业设计技能，即可轻松打造出令人满意的演示...
点击进入详情页
本回答由博思aippt提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
