Discussion :

[frenchi]

Voila mon problème, lorsque je dessine sur une forme grâce au Canvas, et qu'àprès je mets la propriété AutoSize de ma form a True, le dessin obtenu grâce au Canvas disparaît. Existe t il un moyen pour vérouiller le dessin afin qu'il ne disparaisse plus?

[henderson]

Salut !

Personnellement, j'ai une version BCB qui doit dater puisque je n'ai pas de
propriété AutoSize dans la class TForm (form???).

Sans doute TImage ?

Par contre, dessiner directement sur une form à l'aide du canvas... ça ne peut
pas être persistant sauf si tu utilises un bitmap dans lequel tu dessines et que
tu dessines (le bitmap) ensuite dans la OnPaint de la Form. C'est vrai aussi pour un TPaintBox.

Celà dit on peut dessiner directement dans la OnPaint si on ne veut pas utiliser de bitmap !

Il faudrait savoir sur quoi tu dessines !

A plus !

[frenchi]

Voila en gros à qoui consiste mon projet:
Je dois dessiner des arbres 234, pour cela je créé une TForm dynamiquement où j'affiche mes noeuds selon leur place. Jusqu'à là pas de problèmes.
La difficulté vient lorsque je veux desssiner les liaisons père-fils. Pour cela j'ai créé un tableau d'entiers qui contient les coordoonées de départ et d'arriver de chaque lien (tableau préalablement rempli lors du placement des noeuds). Puis je créé une fonction qui lit le tableau et dessine les liens grâce au Canvas (propriétées Moveto et LineTo) , la fonction est ensuite définie comme la fonction OnPaint de ma Form puis elle est appellée.
Grâce à ce procédé j'obtient un bel arbre 234, mais voila, la taille de ma form ne correspond pas vraimetn avec l'arbre, car elle est calculée pour afficher un abre 234 complet (dont tous les niveaux sont remplies avec le max de noeuds). Il faut donc rèajuster la taille, lorsque j'applique la propriété Autosize à True, la fenêtre se réajuste bien mais les lignes dessinées par le Canvas ont disparues. Voilà le problème

[henderson]

Salut !

je créé une TForm dynamiquement

Donc as-tu affecté à l'événement OnPaint de cette Form une méthode
permettant de dessiner l'arbre ?

Voir éventuellement dans sa OnResize... en y faisant un Repaint() ce
qui obligerait la form à redessiner toute sa zone client.

Je ne dispose pas de la propriété AutoSize pour une TForm... snif !

A plus !

[frenchi]

Oui, Pour dessiner l'arbre, j'utilise le OnPaint de ma TForm.
Peux tu plus expliquer ta méthode ? (j'avoue que j'ai pas très bien saisi)
Sinon je viens de vérifier dans Borland C++ Builder il y a bien un AutoSize pour les TForm :p

[henderson]

Salut !

J'ai BCB3 Pro et je n'ai pas de propriété AutoSize pour TForm. Celà existe bien chez moi,
mais pour TImage et qui consiste à faire correspondre les dimensions visuelles du TImage
à celles de son bitmap. En d'autres termes :

Code :

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

1
2
Image->Width = Image->Picture->Bitmap->Width; 
Image->Height = Image->Picture->Bitmap->Height;

Avec ma version BCB, pour tout ce qui est graphisme direct sur une form, je passe par un
bitmap sur lequel je réalise le dessin. Ca fait gagner énormément au niveau temps d'exécution.
Lorsque le travail sur ce bitmap est terminé, il suffit de dessiner ce bitmap dans la zone
client de la form.

La séquence ressemble toujours à ceci :

Code :

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

Graphics::TBitmap *Bitmap = new Graphics::TBitmap;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::DrawBitmap() //déclaré en public dans la class de TForm1
{
if(Bitmap != NULL)
    {
    //On actualise les dimensions, en cas d'un resize de la form
    ...
    //On fait ce qu'il y a à faire sur le bitmap
    ...
    //On dessine le bitmap dans la zone client de la form
    Canvas->Draw(0,0,Bitmap);
    }
}

Et j'ai donc invariablement :

Code :

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

1
2
3
4
void __fastcall TForm1::FormPaint(TObject *Sender)//OnPaint
{
DrawBitmap();
}

Code :

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

1
2
3
4
void __fastcall TForm1::FormResize(TObject *Sender)//OnResize
{
DrawBitmap();
}

Sur les versions ultérieures de BCB, il me semble que l'on a un canvas logique
et un canvas physique...(double buffered ???) voir peut-être de ce coté là au sens
où le dessin est bien présent dans l'écran logique mais n'est pas répercuté sur
l'écran physique (sauf bien sûr si je confond ATARI et PC !).

A plus !

[Gilles Louïse]

Je crois que AutoSize se renseigne plutôt à la création de la fenêtre mais je constate que ça ne marche que par rapport à des composants qui sont mis sur la fenêtre et non par rapport à une surface de travail.

Si vous mettez AutoSize = true à la création, la fenêtre aura la plus petite dimension au départ. Si sur la fenêtre vous avez par exemple un PaintBox et que vous modifiez la zone client de ce PaintBox, la fenêtre restera de la même dimension. Mais si par exemple vous mettez un bouton et que vous déplaciez ce bouton, là la fenêtre modifiera ses dimensions en fonction de la nouvelle position du bouton.

Ce que je ferais pour ma part s'agissant d'une surface de dessin, c'est de ne pas toucher à AutoSize, donc le laisser à false par défaut, et de modifier par programme les propriétés ClientWidth et ClientHeight de le fenêtre quand c'est nécessaire. là, ça marchera.

À bientôt
Gilles

[frenchi]

Mais dans ce cas la comment faire bouger le côté gauche ou droit ?
Vu que je dois recadrer la Form, il me faut agir sur ces deux côtés.
En tout cas merci pour vos réponses.

[Gilles Louïse]

C'est à vous à recentrer le dessin et à en calculer à chaque modification les coordonnées maximales e.g. max_x_ et max _y. À partir de là, à chaque fois que l'un des maximums bouge, vous avez une mise à jour de la forme :

Code :

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

1
2
ClientWidth=max_x;
ClientHeight=max_y;

À bientôt
Gilles