Загрузка и вывод битовых образов на поверхность формы
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).