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

Как   Найти похожие ветки 

← →
Yr2 ©   (2002-09-06 13:28) [0]

Кто-нибудь подскажет идею, Как "склеить" два (и более) BMP-файла в одно изображение? Точнее, речь идет о BitMap изображениях, которые нужно объединить в одну картинку. Например, есть карта местности (электронная), разбитая на фрагменты, которые хранятся в отдельных файлах. Нужно объединить несколько фрагментов и показать целиком. Размеры фрагментов одинаковые.

---

← →
Alx2 ©   (2002-09-06 13:36) [1]

Не забудь создать и уничтожить потом лишние Bmp.
(Можно и без Bmp3 обойтись )

Var
Bmp1, Bmp2, Bmp3 : TBitMap;
Begin
.....
Bmp1.LoadFromFile(...);
Bmp2.LoadFromFile(...);
Bmp3.Width := Bmp1.Width+Bmp2.Width;
Bmp3.Height := max( Bmp1.Height, Bmp2.Height);
Bmp3.Canvas.Draw(0,0,Bmp1);
Bmp3.Canvas.Draw(Bmp1.Width,0,Bmp2);
Bmp3.SaveToFile(....)
....
End;

---

← →
Yr2 ©   (2002-09-06 14:42) [2]

Alx2, большое спасибо. это работает.

---

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

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



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