图象透明?(35分)

  • 主题发起人 主题发起人 pchker
  • 开始时间 开始时间
P

pchker

Unregistered / Unconfirmed
GUEST, unregistred user!
已知一BMP图象,如何让指定象素点位置的颜色透明,既可以看到背景色?
 
用alphablend混合。
 
把 TBitMap 里的
Transparent := true
TransparentMode := tmFixed;
TransparentColor 设成该颜色

如果图像的左下角的颜色就是透明色,那么可以
TransparentMode := tmAuto; 自动,不用设 TransparentColor


procedure TForm1.Button1Click(Sender: TObject);

var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do begin
LoadFromFile('MyBitmap.png');
Transparent := True;
TransParentColor := BitMap.Canvas.Brush.Color;
Form1.Canvas.Draw(0,0,BitMap);
TransparentMode := tmAuto;
Form1.Canvas.Draw(50,50,BitMap);
end;
finally
Bitmap.Free;
end;
end;
 
后退
顶部