image de fond à la taille de la form

Version imprimable

09/01/2004, 11h44
littledoudou

image de fond à la taille de la form
bonjour,

encore une question sur les images de fond...

je possède sur une Form, un composant TImage dans lequel j'ai chargé une image *.jpg. j'affiche l'image étirée à la taille de la Form par ici:
Code:

1 2 3 4 void __fastcall TFormMain::FormPaint(TObject *Sender) { Canvas->StretchDraw(Rect(0, 0, ClientWidth, ClientHeight), ImageDeFond->Picture->Graphic); }
mon problème vient du fait que cette image ne se redessine pas toute seule lorsque je redimensionne la Form.

par contre, j'ouvre l'explorateur windows par dessus la Form puis le referme... tada, mon image est redimensionnée...

même en mettant Repaint() dans TFormMain::OnResize(), c'est pareil.
09/01/2004, 20h02
sinsenono

tu peux utiliser directement TForm1->ClientRect a la place de Rect(0, 0, ClientWidth, ClientHeight)

ne peux tu pas mettre directement ta fonction ds repaint ?

A+ :D
12/01/2004, 09h50
littledoudou

:?: l'évènement disponible de la form est OnPaint, peux-tu m'expliquer ce que tu veux dire par:

Citation:

ne peux tu pas mettre directement ta fonction ds repaint ?

j'ai insérer ce code pour savoir si l'évènement OnPaint était bien appelé:
Code:

1 2 3 4 5 6 7 8 9 10 void __fastcall TFormMain::FormPaint(TObject *Sender) { Canvas->StretchDraw(ClientRect, ImageDeFond->Picture->Graphic); ShowMessage("paint"); } //--------------------------------------------------------------------------- void __fastcall TFormMain::FormResize(TObject *Sender) { Repaint(); }
mon message s'affiche bien quand je change la taille de ma fenêtre. seul hic: mon image de fond n'est pas rafraichie SAUF sous la fenêtre de message lorsque je ferme celle-ci...
:help:

eh bien je comprends pas trop pourquoi :roll:

moi g essayé ce code et c ok

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap();
Bitmap1->LoadFromFile("fond.bmp");
Canvas->StretchDraw(Form1->ClientRect,Bitmap1);
delete Bitmap1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormResize(TObject *Sender)
{
Repaint();
}
//---------------------------------------------------------------------------

c juste pour exemple....

A+ :fou:

avec cela, ça marche du tonnerre...

Code:

1
2
3
4
5
6
7
8
9
10
void __fastcall TFormMain::FormPaint(TObject *Sender) 
{ 
        Canvas->StretchDraw(ClientRect, ImageDeFond->Picture->Graphic); 
        Invalidate();
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::FormResize(TObject *Sender) 
{ 
        Repaint(); 
}

merci à tous