Imprimer le contenu d'une PaintBox

Bonjours à toutes et à tous.
Voici mon problème:
j'ai fais un dessinateur sous borland 2006 et je dois faire ceci: ajout des fonctionnalités d'impression.
Je fais des formes géométriques dans une PaintBox
Donc je voudrais faire un bouton et dès que je clique dessus, ça imprime le contenu de la PaintBox.

Mais comment faire :s, je n'y arrive pas, je n'ai pas encore vu comment imprimer une PaintBox

Merci de votre Aide :)
Cordialement, Cheva

svp c'est important :(

Salut cheva52
Un lien sur le sujet dans le Forum

Citation:

---

http://www.developpez.net/forums/sho...light=PaintBox

---

Salut !

Bienvenu sur le forum !

Pour commencer, tu peux consulter l'aide : TPrinter et TCanvas.
Il y a des exemples, en particulier avec TPrinter::Canvas !
La séquence est :

Code:

---

1 2 3 4 5 6

Printer()->BeginDoc(); //pour commencer l'impression   Printer()->Canvas-> ....; //pour dessiner   Printer()->EndDoc(); // pour terminer l'impression

---

Par exemple, si on se limite à imprimer tout le contenu du PaintBox, la partie dessin sera (comme l'exemple donné dans le lien et apporté par blondelle) :

Code:

---

1 2 3 4

TRect Dest = Rect(..., ..., ..., ...); TRect Srce = Rect(0, 0, PaintBox->Width, PaintBox->Height); Printer()->Canvas->CopyRect(Dest, PaintBox->Canvas, Srce);

---

Voir éventuellement si on doit passer par StretchDraw.

Si le dessin sur le PaintBox est obtenu à l'aide d'objets graphiques sachant se dessiner sur un canvas (quelconque), dans ce cas... il suffit de rediriger le dessin vers le canvas de l'imprimante !

A plus !

Désolé, je suis pas tres doué en programmation donc je ne comprends pas tout v_v
Donc je peux utiliser un TButton?
si oui ça se présenterais comme ça

Citation:

---

void __fastcall TFPrinc::Button1Click(TObject *Sender)
{

}

---

Mais que faut -il mettre dedans?
Ceci?

Code:

---

1 2 3 4 5 6 7

void __fastcall TFPrinc::Button1Click(TObject *Sender) { TRect Dest = Rect(..., ..., ..., ...); TRect Srce = Rect(0, 0, PaintBox->Width, PaintBox->Height); Printer()->Canvas->CopyRect(Dest, PaintBox->Canvas, Srce); }

---

Désolé de ma non compréhension ^^'
J'attends vos réponses :D et Joyeux Noél à tous :)

Alors premiere chose pense aux Balises soit le # soit le symbole juste avant.
Desole je pensais que tu ete plus avance, henderson voulait dire ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

void __fastcall TForm1::Button1Click(TObject *Sender) { TPrinter *Prntr = Printer(); // Rect de l'imprimante(marge gauche, marge haute, largeur imprimante - marge droite, hauteur imprimante - marge basse); TRect Dest = Rect(20,20,Prntr->PageWidth - 20,Prntr->PageHeight - 20); // Rect du PaintBox(gauche, haut, largeur, hauteur); TRect Srce = Rect(0, 0, PaintBox1->Width, PaintBox1->Height); // on demarre l'impression Prntr->BeginDoc(); // on imprime Prntr->Canvas->CopyRect(Dest, PaintBox1->Canvas, Srce); // fin de l'impression Prntr->EndDoc(); }

---

Ah ben niquel, vraiment compréhensible avec les commentaires, je vous remercie.
Par contre, lors de la compilation (ça le faisait même sans ce buton) il me dise
[Linker Fatal Error] Fatal, Unable to open file 'DELPHIX90.BPI'
est ce que ça vous dit quelque chose oO?
car bon j'ai analyser chaque unité (cpp et .h) mais je ne vois pas d'ou viens l'erreur.
Si quelqu'un s'y connais, qu'il poste un ptit message :)
Sinon pas grave, un grand merci pour ces réponses.
Cordialement Cheva

sinon aussi pour le TPrinter
je prneds un TPrinterDialog ou un TPrinterSetupDialog?
je ne pense pas qu'il y est une importance avec le code?

Je viens de refaire l'essai et je n'ai pas d'erreur.
est tu sur d'etre en C++ il me semble que " 'DELPHIX90.BPI' " c'est une erreur Delphi
Les boites de dialogue TPrinterDialog et TPrinterSetupDialog donnent une plus belle presentation mais ne sont nullement necessaire

Oui je suis bien en c++ mais je ne comprends pas oO.
Sinon, faut -il inclure quelque chose de spécial?
Car j'ai voulu tester le bouton sur un autre progrmme qui utilise aussi une paintbox, cela me met aucune erreur mais m'envoi directement sur le CPU, sans voir l'executable ...

Salut !

Ne pas oublier d'inclure dans le header de TForm1 :

Code:

---

1 2	#include <Printers.hpp>

---

En tout cas, chez moi (BCB3 Pro) c'est indispensable.

En ce qui conercene l'erreur annoncée ...???
Il y a peut-être quelque chose d'autre en amont qui pose problème... ???
Si c'est dans la OnClick du bouton, alors il faudrait montrer le code.

A plus !

Salut !

Il existe aussi une autre solution.
Remplacer en lieu et place le TPaintBox actuel par un TPanel (Panel1) dont on fixe le BevelOuter sur bvLowered.
Rajouter dans la classe de TForm1, en public, les déclarations suivantes :

Code:

---

1 2 3 4 5 6 7 8 9

//Notre pseudo paintbox //Cette form va être créée dynamiquement TForm *PaintBox; //Une méthode pour dessiner sur le pseudo paintbox //C'est le prototype d'une méthode du type OnMouseDown que je nomme Dessiner //Mais que je rajoute, ici, manuellement void __fastcall Dessiner(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);

---

Dans le constructeur de TForm1, on va créer une form sans bords et sans barre de titre, dont le parent sera Panel1 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { PaintBox = new TForm(this); PaintBox->BorderStyle = bsNone; PaintBox->Color = clWhite; PaintBox->Parent = Panel1; PaintBox->Align = alClient; PaintBox->Visible = true; //On lui affecte comme OnMouseDown la méthode Dessiner PaintBox->OnMouseDown = Dessiner; }

---

La méthode pour dessiner, ici un simple cercle de couleur aléatoire à l'endroit du click sur cette form qui sert de PaintBox :
Et c'est juste un exemple...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

void __fastcall TForm1::Dessiner(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { TCanvas *C = PaintBox->Canvas; //Pour générer une couleur pseudo aléatoire //Juste pour cette démo TColor color = (TColor)((GetTickCount() *4) & 0xFFFFFF); C->Brush->Style = bsSolid; C->Brush->Color = color; C->Pen->Style = psSolid; C->Pen->Mode = pmCopy; C->Pen->Color = color; C->Ellipse(X-20, Y-20, X+20, Y+20); }

---

Donc s'il existe un bouton pour imprimer, voici sa OnClick :

Code:

---

1 2 3 4 5

void __fastcall TForm1::SpeedButton1Click(TObject *Sender) { PaintBox->Print(); }

---

Comme je n'ai pas d'imprimante sous la main, c'est à tester...

A plus !