匪
匪匪
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Bmp := TBitmap.Create;
jpegBmp := TJPEGImage.Create;
jpegBmp.LoadFromFile('d:/xxx.jpg');
Bmp.Assign(jpegBmp);
Bmp.TransparentColor := clBlack; //mask值为黑色
Bmp.Transparent := True;
Canvas.Draw(0, 0, Bmp);
end;
运行后，发现有黑色的杂边。黑色部分不能完全的透明。晕啦。而且bmp格式的文件却可以清晰的将黑色透明。急啦。
begin
Bmp := TBitmap.Create;
jpegBmp := TJPEGImage.Create;
jpegBmp.LoadFromFile('d:/xxx.jpg');
Bmp.Assign(jpegBmp);
Bmp.TransparentColor := clBlack; //mask值为黑色
Bmp.Transparent := True;
Canvas.Draw(0, 0, Bmp);
end;
运行后，发现有黑色的杂边。黑色部分不能完全的透明。晕啦。而且bmp格式的文件却可以清晰的将黑色透明。急啦。
]