[SOLVED]Draw Rectangle on Printer.Canvas?

[Gary Randall]

I'm trying to draw a rectangle with a heavy line weight on my Printer.Canvas but I only get  one pixel wide lines with the following code.  Isn't the line weight set by the Pen.Width?  The result is the same whether I use Rectangle, Frame, or individual MoveTo and LineTo commands.  Bug, undocumented feature, or my bad?

Code: Pascal  [Select][+][-]

1. [
2.         Printer.Canvas.Pen.Cosmetic := False;
3.         Printer.Canvas.Pen.Width := 4;
4.         Printer.Canvas.Pen.Color := clBlack;
5.         Printer.Canvas.Frame(DstTopLt.x, DstTopLt.y, DstBotRt.x, DstBotRt.y);
6. ]
7.  
8.  

[rvk]

Works for me (Laz1.6 FPC 3.0).

Did you try 2 rectangles besides each other and one with width := 1 and one with width := 4; (or 40) and see if it makes a difference.

Width := 4 isn't really a heavy line considering some printers print at 600 or 1200 dpi.

(I had to zoom in 800% for this example)

[Gary Randall]

Aww!  Don't know what I was thinking.  I'm printing to a PDFCreator virtual printer with a scale factor of 6.25.  That corresponds to a width of 25.  Once I applied the scale factor it worked.  Thanks for the help rvk!