如何从位图创建透明PNG图像？

创建一个TBitmap对象。
用透明色填充（alpha = 0）。
将此位图分配给TPngImage。
保存带alpha透明度的PNG文件。

如何在Delphi XE中执行此操作？

var 
    Png: TPngImage; 
    X, Y: Integer; 
    Bitmap: TBitmap; 
begin 
    Bitmap := TBitmap.Create(); 
    Bitmap.PixelFormat := pf32bit; 
    Png := TPngImage.Create(); 
    try 
    Bitmap.SetSize(100, 100); 

    // How to clear background in transparent color correctly? 
    // I tried to use this, but the image in PNG file has solid white background: 
    for Y := 0 to Bitmap.Height - 1 do 
     for X := 0 to Bitmap.Width - 1 do 
     Bitmap.Canvas.Pixels[X, Y]:= $00FFFFFF; 

    // Now drawing something on a Bitmap.Canvas... 
    Bitmap.Canvas.Pen.Color := clRed; 
    Bitmap.Canvas.Rectangle(20, 20, 60, 60); 

    // Is this correct? 
    Png.Assign(Bitmap); 
    Png.SaveToFile('image.png'); 
    finally 
    Png.Free(); 
    Bitmap.Free(); 
    end; 
end;

来源

2012-06-13 Andrew

只是一个旁注，不要使用'TCanvas.Pixels'，它非常缓慢和邪恶;-)使用'TBitmap.Scanline'代替。 – TLama

请参阅[这个答案]（http://stackoverflow.com/a/6950006/576719）的问题[如何使用透明度保存png文件？]（http://stackoverflow.com/q/6949094/576719）举一个例子。 –

另一个旁注，你甚至需要一个位图？你不想直接在PNG图像画布上渲染你需要的东西吗？ – TLama

或多或少的Dorin's answer的副本。它显示了如何制作透明png图像以及如何清除背景。

uses 
    PngImage; 
... 

var 
    bmp: TBitmap; 
    png: TPngImage; 
begin 
    bmp := TBitmap.Create; 
    bmp.SetSize(200,200); 

    bmp.Canvas.Brush.Color := clBlack; 
    bmp.Canvas.Rectangle(20, 20, 160, 160); 

    bmp.Canvas.Brush.Style := bsClear; 
    bmp.Canvas.Rectangle(1, 1, 199, 199); 

    bmp.Canvas.Brush.Color := clWhite; 
    bmp.Canvas.Pen.Color := clRed; 
    bmp.Canvas.TextOut(35, 20, 'Hello transparent world'); 

    bmp.TransparentColor := clWhite; 
    bmp.Transparent := True; 

    png := TPngImage.Create; 
    png.Assign(bmp); 
    png.SaveToFile('C:\test.png'); 

    bmp.Free; 
    png.Free; 
end;

来源

2012-06-13 11:11:49

如何从位图创建透明PNG图像？

回答

相关问题