Discussion :

[tsp]

Bonjour,

j'aurais besoin de faire une impression papier d'un TScrollbox ainsi que ces composants. Pour ce faire j'utilise la fonction PaintTo de ma ScrollBox, afin de créer une image qu'il me sera facile d'imprimer après :

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
procedure TFrBon.btnImpressionClick(Sender: TObject);
Var
  Ticket : TBitMap;
begin
  inherited;
 
  Ticket := TBitMap.Create;
  Ticket.Width := scbTicket.Width;
  Ticket.Height := scbTicket.Height;
 
  scbTicket.PaintTo(Ticket.Canvas,0,0);
 
  Ticket.SaveToFile('c:\Test.bmp');
 
  freeAndNil(Ticket);
end;

Le problème est que sur mon TScrollBox, seuls les objets TImage sont enregistrés, or j'ai également des TRichEdit et ceux ci n'apparaissent pas, ni le texte, ni le contour.

Merci d'avance pour les pistes qui me permettraient de règler ce problème.

[BraDim]

Bonjour,

J'ai un peu le même souci.

j'utilise Delphi7 sur XP.

J'ai un RichEdit (écriture de différentes tailles et différentes couleurs sur fond noir), un label (où s'inscrit l'heure) et des panels de couleur sur un Form.
Lorsque je fais un Form.GetFormImage, tout s'affiche sur mon image sauf le Texte contenu dans le RichEdit.
Si je remplace le RichEdit par un memo classique, pas de souci pour le texte mais je n'ai pas la possibilité de "jouer" sur la police comme avec le RichEdit .

Quelqu'un a t il une solution? Résoudre ce problème d'affichage ou utiliser un autre composant avec les mêmes fonctions que le RichEdit?

Merci de vos réponses