[Lazarus] Patch for fpVectorial

[Leonardo M. Ramé]

Hi, the methods SetPenWidth and SetPenColor of
TvVectorialDocument doesn't seems to be applied when
DrawFPVectorialToCanvas is called.

I added a couple of lines to fpvtocanvas.pas to apply those settings. In
my project the patch works as I expect.

Here's the diff:

Index: fpvtocanvas.pas
===================================================================
--- fpvtocanvas.pas (revisión: 17687)
+++ fpvtocanvas.pas (copia de trabajo)
@@ -174,6 +174,8 @@
       case CurSegment.SegmentType of
       stMoveTo:
       begin
+        ADest.Pen.Width := ASource.Paths[i].Pen.Width;
+        ADest.Pen.Color := VColorToTColor(ASource.Paths[i].Pen.Color);
         ADest.MoveTo(CoordToCanvasX(Cur2DSegment.X),
CoordToCanvasY(Cur2DSegment.Y));
         {$ifdef FPVECTORIAL_TOCANVAS_DEBUG}
         Write(Format(' M%d,%d', [CoordToCanvasX(Cur2DSegment.X),
CoordToCanvasY(Cur2DSegment.Y)]));

Do you think the patch should be applied?.

-- 
Leonardo M. Ramé
http://leonardorame.blogspot.com