Discussion :

[vsavoir]

Bonjour,
J'utilise une composant TImage pour dessiner un rectangle.
J'utilise aussi un composant TScrollBox pour avoir une vue sur toute l'image. Mais quand je dessine mon retanglue dont la taille dépasse la taille de l'écran , il n'ay que la moitié de mon rectanglue qui se dessine.

Merci pour ton aide.

[Gilles Louïse]

Votre message étant très succinct, je ne suis pas sûr d'avoir tout compris mais je peux déjà vous dire qu'il n'est pas nécessaire d'utiliser le composant TImage si vous voulez dessiner, le mieux est d'utiliser un PaintBox. Vous déclarez un bitmap dans la classe principale, vous faites new dans son constructeur et delete au moment du OnDestroy de la forme principale, vous dessinez dans le bitmap donc hors écran et dans l'événement OnPaint du PaintBox vous copiez le bitmap dans le Canvas du PaintBox. Dans ces conditions, votre rectangle sera permanent et se redessinera au moment des scrolls.

À bientôt
Gilles

[vsavoir]

Bonjour et merci pour votre aide,

En fait, ça pourrai être une solution à mon problème ce que vous m'avez proposé. Mais je n'arrive pas à copier mon Bitmap. Voilà le code que j'ai utilié:

Code :

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

1
2
3
4
5
6
7
        bitmap = new  Graphics::TBitmap();
        bitmap->Canvas->Pen->Color = clRed;
        bitmap->Canvas->Brush->Color = clGreen;
        bitmap->Canvas->Rectangle(0,0,100,100);
 
        PaintBox1->Canvas->CopyMode = cmSrcCopy;
        PaintBox1->Canvas->CopyRect(rect,bitmap->Canvas,rect);

Merci bien.

Balises [Code] rajoutées par Ricky81
Merci d'y penser à l'avenir

[Gilles Louïse]

Il faut donner une dimension à votre bitmap (juste après l'avoir déclaré par new) qui en principe doit être celle du PaintBox par exemple

Code :

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

1
2
BM->Width=PaintBox1->Width;
BM->Height=PaintBox1->Height;

Ensuite, le bitmap se recopie dans l'événement OnPaint et ce, pour provoquer sa mise à jour si nécessaire, par exemple si vous bougez la fenêtre.

Code :

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

1
2
3
4
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
PaintBox1->Canvas->Draw(0,0,BM);
}

C'est cette technique qui rend le dessin permanent car Windows décide d'appeler de lui-même cette fonction si nécessaire. Après avoir dessiné dans le bitmap, il faut provoquer sa copie à l'écran (sinon vous ne verrez rien) donc après avoir dessiné hors écran dans le bitmap faites

Code :

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

PaintBox1->Repaint();

À bientôt
Gilles

[vsavoir]

Cool ça marche.

Merci Merci un milliard de fois.