Discussion :

[Gilbert Geyer]

Si le fond du RichEdit est en bleu léger pour faire joli sur l'écran :
1 - rien n'interdit de le switcher sur blanc juste avant l'impression et de le re-switcher sur bleu léger en fin de transfert sur le canvas du Printer.
2 - et si l'utilisateur veut gaspiller de l'encre y'a-k'à lui prévoir une DialogBox ouverte par la commande imprimer où on lui demande de choisir "Gaspiller de l'encre pour imprimer le fond en bleu léger : Oui/Non ?"

[Droïde Système7]

Re

un couple BeginDoc/BeginEnd dans une procédure en comportant déjà un, j'ai aussi tenté en faisant appel à un clic bouton contenant cet appel = plantage du pilote. J'ai pas eu le courage de tester sous compilo.

Bref, si j'ai bien saisi le sens de cette idée = ça plante

Mais j'ai peut-être mal interprété ton idée.

@+

[Gilbert Geyer]

1) A propos de "un couple BeginDoc/BeginEnd dans une procédure en comportant déjà un, ...." : Pourquoi cette bizarrerie ?

2) Au sujet de "Bref, si j'ai bien saisi le sens de cette idée ...Mais j'ai peut-être mal interprété ton idée " : tu parles de quelle idée ??

[Droïde Système7]

Re Gilbert,

1) A propos de "un couple BeginDoc/BeginEnd dans une procédure en comportant déjà un, ...." : Pourquoi cette bizarrerie ?

2) Au sujet de "Bref, si j'ai bien saisi le sens de cette idée ...Mais j'ai peut-être mal interprété ton idée " : tu parles de quelle idée ??

1) Je ne comprends pas trop pourquoi tu me demandes pourquoi

2) Celle-ci :

Code :

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

1
2
3
4
5
6
7
procedure Form1.Button2Click(Sender: TObject);
begin     with Printer do
          begin BeginDoc;
                RichEditToCanvas(RichEdit1, Canvas, Self.PixelsPerInch);
                EndDoc;
          end;
end;

Tu sais des fois la communication n'est pas facile, chacun a ses idées précises de la façon de procéder.

Je ne voudrais surtout pas que tu penses que je me moque de toi ou autre, tout au contraire.

Je ne demande qu'à comprendre et j'admire toujours les personnes qui tentent d'aider les autres sur ces forums.

Voili voilà @+

[Gilbert Geyer]

Voiçi la procédure RichEditToCanvas de chez Toory que j'utilise, elle ne comporte pas un deuxième couple BeginDoc...EndDoc;

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
procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerInch: Integer);
var       ImageCanvas: TCanvas;
          fmt: TFormatRange;
begin     ImageCanvas := Canvas;
          with fmt do
          begin hdc:= ImageCanvas.Handle;
                hdcTarget:= hdc;
                // rect needs to be specified in twips (1/1440 inch) as unit
                rc:= Rect(0, 0, ImageCanvas.ClipRect.Right * 1440 div PixelsPerInch,
                                ImageCanvas.ClipRect.Bottom * 1440 div PixelsPerInch);
                rcPage:= rc;
                chrg.cpMin := 0;
                chrg.cpMax := RichEdit.GetTextLen;
          end;
          SetBkMode(ImageCanvas.Handle, TRANSPARENT);
          RichEdit.Perform(EM_FORMATRANGE, 1, Integer(@fmt));
          // next call frees some cached data
          RichEdit.Perform(EM_FORMATRANGE, 0, 0);
end;

... j'ai l'impression que l'on ne parlait pas de la même chose.
... pour le reste t'inquiète pas, suffit d'appeler Chat un chat et on finit par se comprendre.

[Droïde Système7]

Gilbert,

En effet, casque lourd oublié, certainement l'effet des passages de rouleau à pâtisserie, nous ne parlions pas de la même chose

Grâce à ton dernier message ; tout devient lumière

Toi et Claudius, vous m'avez bien dépanné !

Sans oublier le code de chez http://www.swissdelphicenter.ch/torry/.

Désormais entre ce fameux couple d'enfer BeginDoc/EnDoc, je peux enfin placer la ligne d'appel suivante :

Code :

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

 RichEditToCanvas(RichEdit1, Canvas, 1440);

Et miracle : ça imprime impec le format .RTF.

Bien que mon back Windows soit un peu bleuté (plus doux pour les mirettes...), en paramétrant le back du RichEdit en blanc = impec de chez impec.

Waaaaahouuuuuuuuuuuuuuuu encore
Jean-Pierre

[Gilbert Geyer]

... Et sur l'autre discussion tu peux aussi trouver une info où l'on trouve du code tout prêt pour imprimer un Memo + des en-tête et/ou Pied-de-page avec fixation de la taille de la fonte ... mais c'est du Memo et pas du RichEdit.

[Droïde Système7]

zé vu, vi vi, Gilbert, je suis aux anges