и вывод битовых образов на

Листинг 3.3.

Загрузка и вывод битовых образов на поверхность формы
void __fastcall TForml::FormPaint(TObject *Sender) { // битовые образы: небо и самолет Graphics::TBitmap *sky = new Graphics::TBitmap();
Graphics::TBitmap *plane = new Graphics::TBitmap();
sky->
LoadFromFile("sky.bmp");
plane->
LoadFromFile("plane.bmp");
Canvas->
Draw(0,0,sky);
// фон - небо Canvas->
Draw(20,20,plane);
// левый самолет plane-XTransparent = true; /* теперь элементы рисунка, цвет которых совпадает с цветом левой нижней точки битового образа, не отображаются */ Canvas->
Draw(120,20,plane);
// правый самолет // уничтожить объекты sky->
Graphics::-TBitmap();
plane->
Graphics::-TBitmap();
}
Небольшие по размеру битовые образы часто используют при формировании фоновых рисунков по принципу кафельной плитки (Рисунок 3.13).

Содержание раздела

---

---