Фоновий малюнок

Програма Фоновий малюнок демонструє, як можна отримати фоновий малюнок шляхом багаторазового виведення бітового образу на поверхню форми. Бітовий образ завантажується з файлу, але може бути завантажений і з ресурсу.

Код написання програми

Graphics::TBitmap *back;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
back = new Graphics::TBitmap();
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
try // у процесі завантаження картинки можливі помилки
{
back->LoadFromFile("canvas.bmp");
}
catch (EFOpenError &e)
{
return;
}
}
void __fastcall TForm1::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;
y += back->Height;
}
while (y < ClientHeight);
}
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Background();
}
У файлі (назва).h:
public: // User declarations
__fastcall TForm1(TComponent* Owner);
void __fastcall TForm1::Background();

Фоновий малюнокЗавантажити