как из двух изображений сделать одно

← →
man-1982 © (2007-02-12 23:00) [0]

у меня на диске есть две картинки Tex1 и Tex2 размерами 100х200. Как мне средствами Delphi сдеать одно изображение размером 100х400 состоящее из Tex1, Tex2. ТО есть картинку Tex = Tex1+Tex2 Одно изображение находиться под другим.
Заранее благодарен.

← →
Efir © (2007-02-12 23:13) [1]

var
Tex1,Tex2:TBitmap;
begin
Tex1:=TBitmap.Create;
Tex2:=TBitmap.Create;
Tex1.LoadFromFile("адрес файла1");
Tex2.LoadFromFile("адрес файла2");

Tex1.Heigth:=400;
Tex1.Canvas.Draw(0,200,Tex2);
end;

Так сойдёт?

Да ещё. Изображение будет в Тех1. Если надо отдельно, то:

Тех.Width:=100;
Tex.Height:=400;
Tex.Canvas.Draw(0,0,Tex1);
Tex.Canvas.Draw(0,200,Tex2);

Тех - новый Bitmap.

как из двух изображений сделать одно Найти похожие ветки