I. Tapisser une Form avec un Bitmap▲
Pour l'exemple nous allons mettre dans le même dossier que l'exécutable un fichier Bitmap nommé : « fond.bmp ». Puis sur l'événement OnPaint de la Form (Form1) le code suivant :
Sélectionnez
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap();
Bitmap1->LoadFromFile("fond.bmp");
for(int x=0 ; x < Width ; x+=Bitmap1->Width)
{
for (int y=0 ; y < Height ; y+=Bitmap1->Height)
Canvas->Draw(x,y,Bitmap1);
}
delete Bitmap1;
}On peut mettre le fichier Bitmap dans une ressource. Cela a l'avantage de ne pas avoir de fichier à joindre avec l'application.