Как объединить 2 Image и сохранить как одну картинку?

[SNUPY]

Ну... в самом Имеже нет транспарент колора... а так несколько вариантов решения сея проблемы:
1. Создать маску и провести два последовательных bitblt и ключами SRCPAINT и SRCAND
2. Создать маску и maskblt
3. TransparentBlt
4.

var
...
  bmp, bmp2: TBitmap;
....
  bmp := TBitmap.Create;
  bmp2 := TBitmap.Create;
  bmp.Assign(Image1.Picture.Graphic);
  bmp2.Assign(Image2.Picture.Graphic);
  bmp2.Mask(clRed); // bmp2.TransparentColor :=clRed;
                           // bmp2.Transparent := true;
  bmp.Canvas.Draw(0,0, Image2.Picture.Graphic);
  bmp.SaveToFile(<...>);

короче общими словами... TCanvas.Draw понимает маску ^__^

[3D Hunter]

Не знал о свойстве Mask. Спасибо, познавательно

[artemavd]

Получилось . Огромное спасибо за помощь .
-----
Только один нюанс. Картинка в bmp1 не сохраняет цвет и становится какой-то монохромной чтоли:

procedure TForm13.btn1Click(Sender: TObject);
var
 bmp1, bmp2: TBitmap;
begin
 bmp1:=TBitmap.Create;
 bmp2:=TBitmap.Create;
 bmp1.Assign(Form13.img1.Picture.Graphic);
 bmp2.Assign(Form13.img2.Picture.Graphic);
 bmp2.Mask(clRed);
 bmp2.TransparentColor:=clRed;
 bmp2.Transparent:=True;
 bmp2.Canvas.Draw(10,10,Form13.img1.Picture.Graphic);
 bmp2.SaveToFile('G:\2.bmp');
end;

Это можно подправить как-то?

[3D Hunter]

Просто вы не форсировали глубину цвета при создании битмапа:

bmp2:=TBitmap.Create;
bmp2.PixelFormat:=pf24bit;

[artemavd]

Супе, 3D Hunter! Сейчас получилось. Спасибо тебе огромное

[3D Hunter]

Часто рад помочь

[artemavd]

А если я добавлю третий bmp3?
То надо будет аналогично написать?

procedure TForm13.btn1Click(Sender: TObject);
var
 bmp1, bmp2, bmp3: TBitmap;
begin
 bmp1:=TBitmap.Create;
 bmp2:=TBitmap.Create;
 bmp3:=TBitmap.Create;
 bmp2.PixelFormat:=pf24bit;

 bmp1.Assign(Form13.img3.Picture.Graphic);
 bmp2.Assign(Form13.img2.Picture.Graphic);
 bmp3.Assign(Form13.img1.Picture.Graphic);

 bmp1.Mask(clRed);
 bmp1.TransparentColor:=clRed;
 bmp1.Transparent:=True;

 bmp3.Mask(clRed);
 bmp3.TransparentColor:=clRed;
 bmp3.Transparent:=True;

 bmp2.Canvas.Draw(15,15,Form13.img3.Picture.Graphic);
 bmp2.Canvas.Draw(25,25,Form13.img1.Picture.Graphic);
 bmp2.SaveToFile('G:\ololo.bmp');
end;

но тогда картинка в bmp3 теряет цвет

[3D Hunter]

Вообще лучше всегда явно указывать глубину цвета. Можно сразу после конструктора битмапа, как в примере.
Не совсем понял, что значит "теряет цвет", но лучше прописать глубину цвета, как для bmp2.

[artemavd]

Сделал так:

procedure TForm13.btn1Click(Sender: TObject);
var
 bmp1, bmp2, bmp3: TBitmap;
begin
 bmp1:=TBitmap.Create;
 bmp2:=TBitmap.Create;
 bmp3:=TBitmap.Create;
 bmp2.PixelFormat:=pf24bit;

 bmp1.Assign(Form13.img3.Picture.Graphic);
 bmp2.Assign(Form13.img2.Picture.Graphic);
 bmp3.Assign(Form13.img1.Picture.Graphic);

 bmp1.Mask(clRed);
 bmp1.TransparentColor:=clRed;
 bmp1.Transparent:=True;

 bmp2.Canvas.Draw(15,15,Form13.img3.Picture.Graphic);
 bmp2.Canvas.Draw(45,15,Form13.img1.Picture.Graphic);
 bmp2.SaveToFile('G:\ololo.bmp');
end;

Вроде получилось