PNG verschmelzen

[creehawk]

@ Renate Schaaf

Nachdem ich rausgefunden hatte das die ImageCollection mit TWICImage arbeitet habe ich das so gemacht:

Delphi-Quellcode:

procedure TForm1.TestBtnClick(Sender: TObject);
var
  Png1: TWicImage;
  Png2: TPngImage;
begin
  Png1 := TWicImage.Create;
  Png2 := TPngImage.Create;
  try
    png1.Assign(ImageCollection.GetSourceImage(ImageCollection.GetIndexByName('Icon'), 128, 128));
    Png1.SaveToFile('Icon.png');
    Png2.LoadFromFile('Icon.png');
    ImageCollection.Draw(png2.Canvas, Rect(0, 0,128,128), 'Star');
    Image1.Picture.Graphic := png2;
    Image1.picture.Graphic.SaveToFile('IconWithStar.png');
  finally
    png1.Free;
    png2.Free;
  end;
end;

Perfect! Ich danke vielmals für den richtigen Schubs in die richtige Richtung.

Aber jetzt: Der Stern wird auf dem Icon nur da gezeichnet, wo der Hintergrund NICHT transparent ist..... Vielleicht noch eine Idee?

@mavarik
Echt jetzt !!!!
Habe ich gedacht!

Wie bei anderen Grafikprogrammen auch! Bild1 laden, Bild2 laden und ... und generös darüber hinwegsehen, das man auch da das Bild2 kopieren muss und in Bild1 einfügt, also "malt"...
Auf dem Bildschirm sieht es jedenfalls genau richtig aus.


creehawk