| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как из двух изображений сделать одно [D5, D6, D7, Win2k, WinXP]

man-1982 ©   (2007-02-12 23:00:00) 

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

---

Efir   (2007-02-12 23:17:00) [1]

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

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

Тех - новый Bitmap.

---

Efir   (2007-02-12 23:13:00) [2]

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;

Так сойдёт?

---

Наверх