Auf ein Hintergrund Bild ein Bild mit Transparenz

[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;