Как

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

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

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