DELPHI AREA Forum

I use Drawtext function to draw a string on the print preview canvas.

Code: Select all

DrawText(PrintPreview.Canvas.Handle,PChar(MyText),-1,Rect(x,,x,x,x),dwflag);


but it doesn't work!
how can I draw a string with specified format on the TPrintPreview.Canvas?

Hi Sezar,
you have to call 'BeginDoc' to get access to the canvas. After your DrawText-command just finish with 'EndDoc'.

regards, P_G

thanks for your reply.
I've tested your instructions,but it doesn't work!
only way to print a text on the TPrinPreview.Canvas is using "TextOut" method,but it can not draw a formatted text!

Textout is fine. You can format your text by doing something like this:

Code: Select all

 PrintPreview1.BeginDoc;
 PrintPreview1.Canvas.Font.Color := clred;
 PrintPreview1.Canvas.Font.Size := 12;
 PrintPreview1.Canvas.Font.Name := 'Arial';
 PrintPreview1.Canvas.Font.Style := [fsBold, fsItalic];
 PrintPreview1.Canvas.TextOut(10,10, 'Test');
 PrintPreview1.EndDoc;

regards, P_G

You CAN use DrawText.

Does the passed rectangle contain the correct coordinates?