[Lazarus] Patch for fpVectorial
Leonardo M. Ramé
l.rame at griensu.com
Wed Jun 8 02:14:19 CEST 2011
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
More information about the Lazarus
mailing list