Скачать: CL | DM;

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

← →
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;

Так сойдёт?

---

← →
Efir ©   (2007-02-12 23:17) [2]

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

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

Тех - новый Bitmap.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c