[lazarus] Printer unit attached

[Tony Maro]

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"

Thanks,

Tony


-------------- next part --------------
A non-text attachment was scrubbed...
Name: gz00003.gz
Type: application/octet-stream
Size: 15504 bytes
Desc: "printer.tgz"
Url : http://localhost/pipermail/lazarus/attachments/20021112/de0a5f79/gz00003.obj