Nachdem ich zu o.g. Thema nicht brauchbares finden konnte habe ich mich mal selbst reingepuzzelt.
Eigentlich gedacht ist es für die Umleitung von Paintroutinen eigener TGraphicskomponenten in ein PNG.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
png:TPngImage;
g:TGPGraphics;
b:TGPSolidBrush;
x,y:Integer;
bmp:TBitMap;
begin
bmp := TransparentBitmap(200,200);
g := GetGraphics(bmp.Canvas);
b := GetSolidBrush(clRed,200);
g.FillEllipse(b,10,10,180,80);
b.Free;
b := GetSolidBrush(clBlue,128);
g.FillEllipse(b,20,0,80,180);
b.Free;
b := GetSolidBrush(clWhite,180);
g.FillEllipse(b,100,50,120,80);
b.Free;
PNG := PNG4TransparentBitMap(bmp);
PNG.SaveToFile('C:\temp\Transp.png');
bmp.Free;
g.Free;
end;
wer meint es könnte für ihn auch interessant sein, bitte melden