Discussion :

[Srh00]

Bonjour,

Je dois ajouter à un dessinateur la fonction de pouvoir changer de couleur à une forme qui se trouve dans une TPaintBox, mon déssinateur possede un mainmenu.
J'aimerais intégrer une palette de couleur dans ce mainmenu mais je ne sais pas comment faire ou si cela est possible, sinon je peux tout simplement intégrer une TColorBox. Pour le changement de couleur je ne sais pas du tout comment ca marche

Merci de votre aide

[Srh00]

Personne n'a de réponse pour moi ?

[Gilles Louïse]

Qu'entendez-vous par forme ?

Voulez-vous dire la fenêtre (qui porte le nom de TForm) ou bien un dessin dans le PaintBox qu'il faudrait colorier d'une autre couleur ?

À bientôt
Gilles

[henderson]

Salut !

Pour le TColorDialog, la coleur sélectionnée est donnée par la propriété Color.
Donc, par exemple, pour modifier la couleur de Pen :

Code :

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

1
2
3
4
5
 
if(ColorDialog1->Execute())
    {
    PaintBox1->Canvas->Pen->Color = ColorDialog1->Color;
    }

On sait donc aussi faire pour Brush.

Bien sûr, le code définitif dépend du développement lié à la mise en oeuvre du dessin (dessin à main levée ou objétisation des formes géométriques).

A plus !

[Srh00]

Qu'entendez-vous par forme ?

Voulez-vous dire la fenêtre (qui porte le nom de TForm) ou bien un dessin dans le PaintBox qu'il faudrait colorier d'une autre couleur ?

À bientôt
Gilles

Il s'agit de la forme dans le PaintBox (carré, triangle ...)

Es t-il possible d'insérer une palette de couleur dans un MainMenu ?

[Gilles Louïse]

Je ne vois pas de problème.

Mettez un TColoDialog sur la forme et faites-le apparaître au moment du clic de votre fonction dans le menu. À partir de là, vous pouvez remplir la forme.

La fonction du menu ressemble à ceci (si ce n'est qu'il faudra donner les vraies coordonnées de remplissage)

Code :

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

1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Paint1Click(TObject *Sender)
{
if(ColorDialog1->Execute())
   {
   BM->Canvas->Brush->Color=ColorDialog1->Color;
   BM->Canvas->FillRect(Rect(10,10,200,200));
   PBPaint(NULL);
   }
}

Ce code ouvre le TDialogColor et indique la couleur de remplissage. BM est un bitmap à déclarer dans la classe prinicpale et à créer au moment de la construction de la forme, par exemple :

Code :

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

1
2
3
4
5
6
7
8
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
BM=new Graphics::TBitmap();
BM->Width=Screen->Width;
BM->Height=Screen->Height;
BM->Canvas->FillRect(Rect(0,0,PB->Width,PB->Height));
}

Détruice ce Bitmap au moment du Destroy.

Code :

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

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

Et forcer la copie du bitmap au moment du OnPaint de la PaintBox

Code :

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

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

Voyez mon site, il y a des élements sur le PaintBox.

À bientôt
Gilles

[Srh00]

Il y a t'il quelque chose à ajouter pour PBPaint(NULL); et BM->Canvas->FillRect(Rect(0,0,PB->Width,PB->Height));

Car il me trouve des erreur à cause des PB, peu être une include ???

Et comment ce déclare le BM avec ceci ?
Graphics::TBitmap *BM;

Merci de votre réponse