Transparentes GIF und JPEG zusammenlegen

[sega84]

Hallo zusammen,
habe eine kleine Frage:
Für einen Kunden müssen wir JPEG Bilder mit einem Wasserzeichen versehen. Das Wasserzeichen ist selbst ein kleines GIF, welches das Firmenlogo zeigt. In der GIF-Datei hat nur der Firmen-Name eine Farbe, alles andere (der Hintergrund) ist Transparent.
Wie kann ich diese beiden Bilder in Delphi zusammenfügen, so dass das JPEG in den Hintergrund liegt und das GIF irgendwo auf dem JPEG plaziert wird. Eventuell wäre es auch interessant, wenn das Wasserzeichen halb-transparent wäre.
Hoffe ihr habt ein paar Ideen für mein Problemchen....
danke

[turboPASCAL]

Das einfachste wäre wenn das Logo als Png vorliegen würde.
Ab Windows XP könnte man auch AlphaBlend verwenden.

Könnte dann so aussehen:
http://www.delphipraxis.net/internal...375&highlight=

[sega84]

Zitat:

Zitat von turboPASCAL

Das einfachste wäre wenn das Logo als Png vorliegen würde.

Das Logo habe ich als PNG... Nur sagt mir die AlphaBlend-Funktion nichts. Gibt es ein Beispiel oder so dafür?

[turboPASCAL]

Ohne SChickscnack, der wohl einfachste Weg ist:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y: integer;
begin
  OpenPictureDialog1.Filter :='jpegfiles|*.jpg';
  if OpenPictureDialog1.Execute then
  begin
    bmp := TBitmap.Create;
    try
      image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); // JPEG
      bmp.Width := image1.Picture.Width;
      bmp.Height := image1.Picture.Height;
      bmp.PixelFormat := pf24Bit;
      bmp.Canvas.Draw(0, 0, image1.Picture.Graphic);
      image1.Picture.Assign(bmp);

      x := (image1.Picture.Width div 2) - (image2.Picture.Width div 2);
      y := (image1.Picture.Height div 2) - (image2.Picture.Height div 2);
      image1.Canvas.Draw(x, y, image2.Picture.Graphic); // Draw the PNG-Logo
    finally
      bmp.Free;
    end;
  end;
end;