delphi 位图转换为透明PNG

你可以使用 Delphi 内置的 `TPngImage` 组件来将位图转换为透明 PNG 图像。下面是一个简单的示例代码：

uses PngImage;

procedure ConvertBitmapToTransparentPng(const Bitmap: TBitmap; const FileName: string);
var
  Png: TPngImage;
  X, Y: Integer;
  Pixel: PRGBQuad;
begin
  Png := TPngImage.CreateBlank(COLOR_RGBALPHA, 8, Bitmap.Width, Bitmap.Height);
  try
    // 将位图数据复制到 PNG 图像中
    for Y := 0 to Bitmap.Height - 1 do
    begin
      Pixel := Bitmap.ScanLine[Y];
      for X := 0 to Bitmap.Width - 1 do
      begin
        Png.AlphaScanline[Y][X] := Pixel.rgbReserved;
        Png.Pixels[X, Y] := Pixel^;
        Inc(Pixel);
      end;
    end;

    // 将 PNG 图像保存到文件
    Png.SaveToFile(FileName);
  finally
    Png.Free;
  end;
end;

你可以将上述代码保存到一个单元文件中，并在需要的地方调用 `ConvertBitmapToTransparentPng` 这个过程即可。例如：

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    // 加载位图
    Bitmap.LoadFromFile('MyBitmap.bmp');

    // 将位图转换为透明 PNG 图像
    ConvertBitmapToTransparentPng(Bitmap, 'MyTransparentImage.png');
  finally
    Bitmap.Free;
  end;
end;