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

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

использование BitBlt

alexus ©   (2003-06-26 11:25:00) 

ээээээ....ну вот, нигде не могу найти подробное описание использования этой ф-ции...
не мог бы кто-нить примерчитком подсобить, как с помощью этой ф-ции вывести на канвас изображение. да и как вообще подготовить к выводу устройство отображения?
Буду признателен за помощь

---

DieHard   (2003-06-26 11:43:00) [1]

var Bmp1, Bmp2 : TBitmap;
begin
Bmp1 := TBitmap.Create;
Bmp2 := TBitmap.Create;
Bmp1.LoadFromFile("1.bmp");
Bmp2.Width := Bmp1.Width;
Bmp2.Height := Bmp1.Height;
BitBlt(Bmp2.Canvas.Handle,0,0,Bmp2.Width,Bmp2.Height,Bmp1.Canvas.Handle,0,0,SRCCopy);
Bmp2.SaveToFile("2.bmp");
Bmp1.Free;
Bmp2.Free;
end;

---

Наверх