Convierte casi cualquier decendiente de TGraphic en TPNGObject
g puede ser un TIcon, TBitMap, TJPEGImage, etc.
esto resulta muy util para los que diseñan cosas web :)
usa la biblioteca de componentes PNG Delphi de Gustavo Daud que puede ser descargada aqui http://pngdelphi.sourceforge.net/ muy buena :)
ah ah ah el truco...
Código Delphi
[-]
function ToPNG(g: TGraphic): TPNGObject;
var BMP: TBitmap;
begin
try
BMP:=TBitmap.Create;
BMP:=ToBMP(g); Result:=TPNGObject.Create;
Result.Assign(BMP);
Result.TransparentColor:=Result.Pixels[0,0]; Result.Transparent:=True; except
Result:=nil;
end;
end;