Lad to billeder gå op i ét

Er der ingen, der ved det?

Du skal "tegne" de 2 billeder på et "canvas".

Et TImage har en canvas som der kan tegnes på.
Det kan gøres på forskellig måde: F.eks.


Image1.Canvas.Draw(0,0,MyBitmap);

eller

Image1.Picture.Bitmap.Canvas.Draw(0,0,MyBitmap);

Der er også en anden funktion der kan bruges:
Image1.Picture.Bitmap.Canvas.StretchDraw


Jeg loader altså de 2 billeder ind i et bitmap først. Sådan her:

var MyBitmap :TBitmap;
begin
MyBitmap := TBitmap.Create.
MyBitmap.LoadFromFile('c:/minfil.bmp');

Så får du nok også brug for at angive en TransparentColor.

Jeg ved godt at dette svar ikke er fyldesgørende, men jeg har ikke tid til at lave et helt færdigt eksempel lige nu.
Men prøv at kigge i hjælpen til disse funktioner eller søg lidt på internettet.

Nå nu lavede jeg alligevel et færdigt eksempel

procedure TForm1.Button1Click(Sender: TObject);
var MyBitmap:TBitmap;
begin
// Der er 3 TImage på formen, alle sat til Transparent := true og Autosize := true;

Image1.Picture.Bitmap.LoadFromFile('C:/Pic1.bmp');
Image2.Picture.Bitmap.LoadFromFile('C:/Pic2.bmp');

// NB. I dette tilfælde er Pic1 og Pic2 200 X 200 Pixels

MyBitmap := TBitmap.Create;

MyBitmap.Width := 200;
MyBitmap.Height := 200;

MyBitmap.Canvas.Draw(0,0,Image1.Picture.Bitmap);
MyBitmap.Canvas.Draw(0,0,Image2.Picture.Bitmap);

Image3.Picture.Assign(MyBitmap);
MyBitmap.Free;
Image3.Picture.SaveToFile('C:/Mixed.bmp');

end;

Tusind tak. :-D