delphi - 从资源加载时如何使 TBitmap 透明
问题描述
我正在尝试从资源中加载 TBitmap,同时保持透明。即使启用了透明属性,它看起来仍然一样。
我试图做的事情:
procedure TMovie.BitBtn1Click(Sender: TObject);
var
BitMap1 : TBitMap;
begin
BitMap1 := TBitMap.Create;
BitMap1.Transparent := TRUE;
BitMap1.TransparentColor := clBlack;
try
BitMap1.LoadFromResourceName(HInstance,'Bitmap_2');
Star_2.Picture.Assign(Bitmap1);
finally
BitMap1.Free;
end;
end;
解决方案
您应该尝试如下反转透明度属性:
procedure TMovie.BitBtn1Click(Sender: TObject);
var
BitMap1 : TBitMap;
begin
BitMap1 := TBitMap.Create;
try
BitMap1.LoadFromResourceName(HInstance,'Bitmap_2');
BitMap1.Transparent := TRUE;
BitMap1.TransparentColor := clBlack;
Star_2.Picture.Assign(Bitmap1);
finally
BitMap1.Free;
end;
end;
推荐阅读
- javascript - 这是“解构分配”的一个方面还是其他什么?
- ios - verifyReceipt in_app 和 latest_receipt_info 中缺少 Apple Sandbox IAP 交易
- java - 我如何@SerializedName 这个响应“name.0”
- reactjs - React Material - MUIDataTable - 如何更新行数据
- python - 使用 Python 从 HTML 转换为 CSV
- python - 将张量添加到数据框
- sql - 如何在数据库中查找相同或相似名称的重复公司的数量
- owl - Horst (pD*) 与 OWL2-RL 相比
- java - 类中开关/案例的正确格式
- python - 如何在使用中使用 pyinstaller 和 matplotlib