Auf ein Hintergrund Bild ein Bild mit Transparenz

[delphinia]

Hi,

jo der Titel sagt schon alles über mein Problem.
Ich habe in einer TImage ein hintegrundbild auf welches ich ein weiteres Bild malen will, welches aber mit Transparenz gemalt werden soll so das es wie Beispiel aussschaut!

[bitsetter]

Hallo,

vom Prinzip her geht das wie du es im Bild sehen kannst, bei Randpixeln sieht es dann allerdings nicht mehr so schön aus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bild : TBitmap;
  Pfad : AnsiString;
begin
  Pfad := 'c:\Bild.bmp';
  if FileExists(Pfad) then
  begin
    Bild := TBitmap.create;
    try
      Bild.LoadFromFile(Pfad);
      Bild.Transparent := true;
      Bild.TransparentColor := clWhite;
      Image1.Canvas.Draw(10 , 80, Bild);
    finally
      Bild.Free;
    end;
  end;
end;

[delphinia]

SOOOO Einfach?? nun ja ok für mich nicht! aber hmm dachte es sei aufwendiger!!

DANKE DIR

[bitsetter]

Zitat von delphinia:

hmm dachte es sei aufwendiger!!

Ja das dachte zuerst auch, hatte schon was mit Bitmap.ScanLine ausprobiert, aber warum kompliziert wenn es auch einfach geht.