Discussion :

[princesse]

Bonjour,

J'ai créé un PaintBox dans lequel l'utilisateur peut dessiner en :

• créant une forme, une ligne, ou dessiner à main levée,
  choisissant la taille de crayon, la couleur

J'ai géré tout ça avec les événements onMouseMove, onMouseDown, onMouseUp.

Le problème est que le dessin créé n'est pas persistant car "il est 'effacé' dès qu'un message WM_PAINT sera reçu et aura traité le composant PaintBox."

Comment faire en sorte que mon dessin soit persistant ?

J'avais pour idée de sauvegarder le dessin entier du paintBox puis de le réaffecter au paintBox lors de l'événement onPaint. Comment faire cela ?
(j'ai essayé de sauvegarder PaintBox1->Canvas mais j'arrive pas à le réaffecter...)

Le problème est de taille étant donné qu'il peut y avoir des traits de plusieurs tailles, de plusieurs couleurs.... (donc sauvegarder tous les mouvements de souris ne serait pas gérable !)

J'espère que vous pourrez m'aider !! Merci d'avance

[Gilles Louïse]

En principe, on dessine hors écran dans un bitmap et on dessine le bitmap via la méthode Canvas->Draw dans l'événement OnPaint du PaintBox. À chaque modification du bitmap, vous pouvez aussi forcer un Paint de manière à ce que l'utilisateur voit ses modifications à l'écran. Dans ces conditions, le dessin sera persistant.

À bientôt
Gilles

[princesse]

Merci.

J'ai essayé de "dessiner" dans un bitmap (invisible)

Code :

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

pBitmap->Canvas->LineTo(X, Y);

puis dans le onPaint, dans le onPaint du PaintBox faire

Code :

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

paintBox->Canvas->Draw(0,0,pBitmap);

Mais il me dessine rien dans le PaintBox

[JEG]

As-tu mis

pBitmap->Canvas->MoveTo(0, 0);

avant ton lineto ?

[princesse]

Oui j'ai fait :

Code :

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

pBitmap->Canvas->PenPos = TPoint(X, Y);

avec X et Y la position de la souris dans mon paintbox (quand je mettais paintBox->Canvas->LineTo(X, Y), la ligne s'affichait bien !!)

En fait, tout ce que je faisais avant avec un paintBox, je l'ai remplacé par pBitmap

[JEG]

ca devrait pourtant marcher...

[Gilles Louïse]

Attention, après avoir agi sur le bitmap, il faut forcer un Paint au moins une fois. Le OnPaint ne sert que si on doit repeindre. Ainsi après avoir écrit dans le bitmap, vous pouvez faire disparaître votre fenêtre puis la faire réapparaître, là le Paint sera appelé et vous verrez quelque chose. Donc après avoir agi sur le bitmap, forcez un Paint.

À bientôt
Gilles

[princesse]

Voilà mon "bout de code" :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
 
void __fastcall TfmMain::paintBoxPaint(TObject *Sender)
{
 
  try
  {
    paintBox->Canvas->Draw(0,0,pBitmap);    
  }
  catch (...)
 
  {
    ShowMessage("Ne peut charger ni afficher le bitmap");
  }
 
}
 
//---------------------------------------------------------------------------
void __fastcall TfmMain::paintBoxMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 
  pBitmap->Canvas->PenPos = TPoint(X, Y);
  pBitmap->Canvas->LineTo(X, Y);
 
}
 
//---------------------------------------------------------------------------
void __fastcall TfmMain::paintBoxMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
 
        if(Shift.Contains(ssLeft))
           pBitmap->Canvas->LineTo(X, Y);
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::paintBoxMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   pBitmap->Canvas->LineTo(X, Y);
 
   paintBox->Repaint();
 
}

Si je remplace pBitmap par paintBox, je visualise bien un tracé... Mais là, aucun tracé !

EDIT: oui pour tester j'ai forcé le paint dans l'événement MouseUp

[Gilles Louïse]

N'avez-vous pas oublié de donner une dimension au Bitmap par exemple dans l'événement OnSHow de la forme principale

Code :

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

1
2
3
4
5
void __fastcall TForm1::FormShow(TObject *Sender)
{
BM->Width=PaintBox1->Width;
BM->Height=PaintBox1->Height;
}

Sur MouseDown, il suffit de faire un MoveTo, c'est tout.

Code :

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

1
2
3
4
5
void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
BM->Canvas->MoveTo(X, Y);
}

Le try/catch est inutile dans le OnPaint

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);
}

Créez le bitmap dans le constructeur de la forme principale

Code :

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

1
2
3
4
5
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
BM=new Graphics::TBitmap();
}

Et n'oubliez pas de la détruire dans le OnDestroy da la forme principale

Code :

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

1
2
3
4
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete BM;
}

À bientôt
Gilles

[princesse]

C'est parfait

Je vous remercie beaucoup pour la rapidité et la qualité de vos réponses !!!

A bientôt Gilles.

[JEG]

si le problème est résolu ==> mettre le tag résolu