Discussion :

[TheGoldViking]

Dans mon application, je dessine sur le canevas d'une PaintBox.

J'aimerai imprimer ensuite la form qui contient la PaintBox, mais quand j'essaie, de le faire (en utilisant la méthode print de la form) la PaintBox n'apparait pas.

J'ai aussi essayé de faire un GetFormImage pour avoir une "photo" de ma form, mais là encore la PaintBox n'apparait pas.

Comment faire pour imprimer la form avec la PaintBox et le dessin qu'elle contient??

Merci...

[Gilles Louïse]

C'est assez logique car le Canvas de la PaintBox ne se maintient visible que par l'exécution de sa méthode OnPaint, son contenu n'est donc pas, si vous voulez, fixe ou rémanent. Si, à la place du PaintBox, vous mettez un TImage, l'impression de l'image se fera bien avec l'imprimante. Muni de cette information, il est facile de contourner le problème d'une façon ou d'une autre.

À bientôt
Gilles

[TheGoldViking]

Merci pour ces informations.

Le pb c'est que bcp de fonctions de mon application utilisent la paintbox...(l'impression n'était pas prévue au départ...)

N'y a t il pas un moyen de "copier" le canevas de la paintbox pour le mettre dans un TImage (pendant l'évènement onpaint par exemple)?

Merci

[Gilles Louïse]

Ce que vous pourriez faire est créer dynamiquement un TImage, de recopier le Canvas du PaintBox dans celui du TImage et de superposer le TImage sur le Paintbox avant l'impression puis vous détruisez le TImage.

À bientôt
Gilles

[TheGoldViking]

Oui, c'est ce que je suis en train d'essayer de faire...

Je pense que ça devrait marcher...

Merci pour tout!

[ChMerlier]

On peut aussi utiliser le Canvas du TPrinter ...
Un peu plus joli quand même

[Gilles Louïse]

On peut aussi utiliser le Canvas du TPrinter ...
Un peu plus joli quand même

Ça a l'air plus joli effectivement mais pouvez-nous nous dire comment procéder?

À bientôt
Gilles

[ChMerlier]

Oui

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    TPrinter *APrinter;
 
        APrinter = Printer();
 
        APrinter->BeginDoc();
 
            APrinter->Canvas->StretchDraw(Rect(0, 0, ABitmap->Width, ABitmap->Height), ABitmap);
 
        APrinter->EndDoc();

(Ceci est un copier/coller d'un de mes programmes pour imprimer un bitmap)

Le canvas du TPrinter posséde les mêmes fonctions de dessin qu'un Canvas Image ou Fiche.