обработка события OnCreate void __fastcall
Листинг 3.5.
Функции, обеспечивающие формирование и вывод фонового рисунка
// обработка события OnCreate void __fastcall TForml::FormCreate(TObject *Sender) { back = new Graphics::TBitmap();
// создать объект — битовый образ // загрузить картинку try // в процессе загрузки картинки возможны ошибки { Forml->
back->
LoadFromFile("Legal.bmp");
} catch (EFOpenError &e) {
return; } } // формирует фоновый рисунок void __fastcall TForml::Background() { int x=0,y=0; // координаты левого верхнего угла битового образа if ( back->
Empty) // битовый образ не был загружен return; do { do { Canvas->
Draw(x,y,back);
x += back->
Width; } while (x < ClientWidth);
x = 0; у4= back->
Height; } while (y < ClientHeight);
} // обработка события OnPaint void __fastcall TForml::FormPaint(TObject *Sender) { Background();
// обновить фоновый рисунок }
Содержание раздела