PNG verschmelzen

[Renate Schaaf]

Guck mal, wie weit Du mit diesem Beispiel kommst.

Bitte, benutze nicht die Variable Form1 in Methoden von TForm1. Dein Form kennt sich selber, und könnte u.U. mal einen anderen Namen als Form1 haben.

Code:

uses Vcl.Imaging.pngimage;

procedure TForm1.btnIconWithStarClick(Sender: TObject);
var
  png: TPngImage;
begin
  png := TPngImage.Create;
  try
    //Erstmal ein gültiges TPngImage erstellen
    png.Assign(ImageCollection.GetSourceImage(ImageCollection.GetIndexByName
      ('Icon'), 128, 128));
    //'Star' auf 'Icon' malen per ImageCollection.Draw
    //Das Rect kann bei Bedarf verkleinert werden
    ImageCollection.Draw(png.Canvas, Rect(0, 0, png.Width, png.height), 'Star');
    //Kombiniertes Bild anzeigen
    Image1.Picture.Graphic := png;
    //Das kombinierte Bild speichern
    png.SaveToFile('IconWithStar.png');
    //ImageCollection.Add('IconWithStar', 'IconWithStar.png');
  finally
    png.Free;
  end;

"Malen" kann man per TCanvas.Draw oder TImageCollection.Draw oder TGraphic.DrawTo. Vorschlag: Unter Hilfe nachgucken, was das so macht.

Renate