Discussion :

[littledoudou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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+

[littledoudou]

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

ne peux tu pas mettre directement ta fonction ds repaint ?

[littledoudou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[sinsenono]

eh bien je comprends pas trop pourquoi

moi g essayé ce code et c ok

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[littledoudou]

avec cela, ça marche du tonnerre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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