@ 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