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.

zusammenfalten · markieren

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

Transparent PNG's erstellen und speichern ab D2009

Transparent PNG's erstellen und speichern ab D2009

Forumregeln