Transparent PNG's erstellen und speichern ab D2009

[Bummi]

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