Einmal im Leben ein "richtiges" PNG-Bild erstellen

[geesmith]

Danke für euren Input.

Ich habe beide Anregungen verfolgt und versucht ein Beispiel zu generieren.

Leider ohne Erfolg. Das mit der Transparenz-Scanline hat mich nicht weitergebracht. Hast du ein Beispiel?

Da ich mit Berlin-Standard arbeite, hat mich das GR32-Beispiel schlussendlich nicht weiter gebracht. Zwar gab es hier vielversprechende Ansätze wie "Header.ColorType" etc, aber das erzeugt Fehlermeldungen. PixelPtr gibt es bei TBitmap auch nicht. Ich konnte hier leider kein lauffähiges Beispiel mit Standard-Delphi Komponenten erzeugen.

Fazit... ich kann weiterhin nur PNG-Dateien erzeugen welche sich gleich wie im meinem Screenshot oben verhalten. Was vielleicht noch spannend ist, dass Gimp in meinem erzeugten PNGFile die Transparenzfläche anzeigen kann. Nur Photoshop zeigt das anders an. Also die PNG ist irgendwie doch anders als eine PNG-Datei wie ich sie von irgendwoher downloaden kann.

Das ist nach wie vor meine einzige lauffähige Möglichkeit ein PNG zu erstellen. Hat noch jemand ein anderes Beispiel?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var png:TPngObject;
  bmp:TBitmap;
begin
  bmp := TBitmap.Create;
  png := TPngObject.Create;

  bmp.SetSize(100,100);

  With bmp.Canvas do
  begin
    Pen.Width := 5;
    Pen.Color := clRed;
    Rectangle(10,10,30,30);
    TextOut(5,5,'Test1');
  end;

  bmp.TransparentColor := clWhite;
  bmp.TransparentMode := tmFixed;
  bmp.Transparent := True;

  png.Assign(bmp);
  png.SaveToFile('C:\temp\'+outputfilename+'.png');

  png.Free;
  bmp.Free;
end;