- 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?
DrawText(PrintPreview.Canvas.Handle,PChar(MyText),-1,Rect(x,,x,x,x),dwflag);
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;
Return to DELPHI AREA Projects
Users browsing this forum: No registered users and 1 guest