Transparent PNG's erstellen und speichern ab D2009
Liste der Anhänge anzeigen (Anzahl: 1)
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:
wer meint es könnte für ihn auch interessant sein, bitte melden
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; |
Dieses Thema wurde am "25. Oct 2010, 08:39 Uhr" von "Daniel" aus dem Forum "Programmieren allgemein" in das Forum "Neuen Beitrag zur Code-Library hinzufügen" verschoben.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:18 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz