[lazarus] Printer unit attached

[Michael.VanCanneyt at Wisa.be]

On 12 Nov 2002, Tony Maro wrote:

> Well, I got a basic pen and brush property functioning with color and
> pattern / fill support.  A fill pattern contains it's own
> TPostScriptCanvas that you can draw on (probably using other fills to
> make more complex objects) and can be attached to the Brush or Pen
> property of a canvas for use.
>
> I need someone a little more familiar with PostScript to look at the
> TPSPen.AsString function.  I can't get "Uncolored" patterns to work.  If
> you specify that a pattern will not contain it's own colors, and try to
> use it, postscript spews errors.  Colored patterns work just fine.  I've
> compared against some sample code I have but my brain is just fried on
> this one.
>
> Because of the way postscript works I'm using the same object for both
> pen and brush right now, but the next step is to make the pen handle
> movements of the cursor and that will then change.
>
> I separated the postscript code from the hacked TPrinter object code
> into a unit called "ps.pas"

I will have a look at it and see how to fit it in the FCL.
I may send some proposals for changes first, though :-)

Michael.