TPRINTER/HARUPDF Pen

[byte-one]

If i use the same oPen in tprinter and fwpdf the linewidth of box(...) are different! In tprinter the line are much stronger.
It seems, that box(..) in tprinter not compatible with older versions in case of using a pen-object. If i use oPen:hPen then is ok!

[byte-one]

Mr. Nages, in TPrinter:

Code: Select all  Expand view  RUN

ParamPen( anoPen, lNew )
.....
         hPen  := CreatePen( PS_SOLID, aPen[ 2 ] * ::nLogPixelX() / 72, aPen[ 1 ] )   //this calculation should be dependent from cUnits!
.....

[nageswaragunupudi]

Please see pen.prg and suggest your modifications.

[byte-one]

Mr. Nages, i have made some modifications on printer.prg and fwpdf.prg to improve this effect! Can i send you (your email??) the files? All modifications are marked with BYTE-ONE.