Image в Delphi

[I'm_Not_Afraid]

Доброго времени суток. Подскажите, пожалуйста, как содержимое трех Image-ов(по-сути, три Bitmap-а) объединить в один Bitmap и вывести на другой Image? Спасибо за уделенное время!

[Прик]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  BM : TBitmap;
  R : Trect;
begin
  Image4.AutoSize := True; //объединяющий Image 

  BM := TBitmap.Create;
  BM.Width := Image1.ClientWidth + Image2.ClientWidth + Image3.ClientWidth;
  //если картинки одинаковые по высоте
  //  BM.Height := Image1.ClientHeight;
  //если картинки разные по высоте
  BM.Height := Max(Max(Image1.ClientHeight, Image2.ClientHeight),Image3.ClientHeight);

  R := Image1.ClientRect;
  BM.Canvas.StretchDraw(R, Image1.Picture.Bitmap);
  R := Image2.ClientRect;
  OffsetRect(R, Image1.ClientWidth, 0);
  BM.Canvas.StretchDraw(R, Image2.Picture.Bitmap);
  R := Image3.ClientRect;
  OffsetRect(R, Image1.ClientWidth+Image2.ClientWidth, 0);
  BM.Canvas.StretchDraw(R, Image3.Picture.Bitmap);

  Image4.Picture.Assign(BM);
  BM.Free;
end;

[I'm_Not_Afraid]

а с чем может быть связана ошибка класса EConvertError "Cannot assign a TBitmap to a TBitmapCanvas"?

[I'm_Not_Afraid]

а, извиняюсь, мой косяк... я по-ошибке ввел Image.Canvas, a не Image.Picture. Только почему-то перетягивается только первое изображение

[I'm_Not_Afraid]

все, я разобрался, спасибо большое

только там небольшой косяк у Вас в OffsetRect, первое целочисленное значение отвечает за смещение по-горизонтали, а второе - по-вертикали. получилось, что я смещал по-горизонтали, а надо было по-вертикали.

спасибо

[Прик]

"Косяком" и не пахнет. За базар надо отвечать
В исходном тексте задания не было ни слова каким образом объединять картинки, потому был дан пример объединения по горизонтали.
Желаем получить конкретный ответ - формулируем задачу с достаточными для такого ответа исходными данными.

[I'm_Not_Afraid]

ок, пардон снова мой косяк спасибо еще раз