delphi 图片去底色透明

在 Delphi 中，可以使用 TBitmap 对象来处理图片。要将图片的底色变为透明，可以按照以下步骤进行：

1. 加载图片到 TBitmap 对象中：

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('image.bmp');

2. 将底色设置为透明色：

bmp.Transparent := True;
bmp.TransparentColor := clWhite; // 将白色设置为透明色

3. 绘制图片：

Canvas.Draw(0, 0, bmp);

4. 最后，记得释放 TBitmap 对象：

bmp.Free;

这样，图片的底色就会变成透明了。

相关问题

delphi 图片去底色转为透明png

可以通过以下步骤将 Delphi 图片去底色转为透明 PNG：

1. 加载源图片到 Delphi 中的 TBitmap 对象中，例如：

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile('source.bmp');
    // 处理图片
  finally
    bmp.Free;
  end;
end;

2. 设置 TBitmap 对象的透明色，例如：

bmp.Transparent := True;
bmp.TransparentColor := bmp.Canvas.Pixels[0, bmp.Height - 1];

这里将透明色设置为图片左下角的像素颜色。

3. 创建 TPNGImage 对象，将 TBitmap 对象绘制到 TPNGImage 中，并保存为 PNG 文件，例如：

var
  png: TPNGImage;
begin
  png := TPNGImage.CreateBlank(COLOR_RGBALPHA, 8, bmp.Width, bmp.Height);
  try
    png.Canvas.Draw(0, 0, bmp);
    png.SaveToFile('output.png');
  finally
    png.Free;
  end;
end;

这里创建了一个空白的 TPNGImage 对象，将颜色模式设置为 RGBA，然后将 TBitmap 对象绘制到 TPNGImage 中，并保存为 PNG 文件。

这样就完成了 Delphi 图片去底色转为透明 PNG 的操作。