| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как
Yr2 © (2002-09-06 13:28:00)Кто-нибудь подскажет идею, Как "склеить" два (и более) BMP-файла в одно изображение? Точнее, речь идет о BitMap изображениях, которые нужно объединить в одну картинку. Например, есть карта местности (электронная), разбитая на фрагменты, которые хранятся в отдельных файлах. Нужно объединить несколько фрагментов и показать целиком. Размеры фрагментов одинаковые.
Yr2 (2002-09-06 14:42:00) [1]Alx2, большое спасибо. это работает.
Alx2 (2002-09-06 13:36:00) [2]Не забудь создать и уничтожить потом лишние 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;
| |
