From 9a48e7adbbb470e8ebe9e8eea915af5645631d69 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 11 Apr 2011 07:19:49 +0000
Subject: [PATCH] fpvectorial: Adds some more pen information

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1563 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpvviewer/fpvectorialsrc/fpvectorial.pas | 8 +++++---
 applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas | 2 +-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/applications/fpvviewer/fpvectorialsrc/fpvectorial.pas b/applications/fpvviewer/fpvectorialsrc/fpvectorial.pas
index 201858150..a505c9bab 100644
--- a/applications/fpvviewer/fpvectorialsrc/fpvectorial.pas
+++ b/applications/fpvviewer/fpvectorialsrc/fpvectorial.pas
@@ -76,7 +76,9 @@ type
     Previous: TPathSegment;
     Next: TPathSegment;
     // Data fields
-    Color: TvColor;
+    PenColor: TvColor;
+    PenStyle: TFPPenStyle;
+    PenWidth: Integer;
   end;
 
   {@@
@@ -548,7 +550,7 @@ begin
   segment.SegmentType := st2DLine;
   segment.X := AX;
   segment.Y := AY;
-  segment.Color := clvBlack;
+  segment.PenColor := clvBlack;
 
   AppendSegmentToTmpPath(segment);
 end;
@@ -561,7 +563,7 @@ begin
   segment.SegmentType := st2DLine;
   segment.X := AX;
   segment.Y := AY;
-  segment.Color := AColor;
+  segment.PenColor := AColor;
 
   AppendSegmentToTmpPath(segment);
 end;
diff --git a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
index 19a483128..db6f1e5a2 100644
--- a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
+++ b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
@@ -189,7 +189,7 @@ begin
       end;
       st2DLine, st3DLine:
       begin
-        ADest.Pen.Color := {$ifdef USE_LCL_CANVAS}VColorToTColor(Cur2DSegment.Color);{$else}VColorToFPColor(Cur2DSegment.Color);{$endif}
+        ADest.Pen.Color := {$ifdef USE_LCL_CANVAS}VColorToTColor(Cur2DSegment.PenColor);{$else}VColorToFPColor(Cur2DSegment.PenColor);{$endif}
         ADest.LineTo(CoordToCanvasX(Cur2DSegment.X), CoordToCanvasY(Cur2DSegment.Y));
         ADest.Pen.Color := clBlack;
         {$ifdef FPVECTORIAL_TOCANVAS_DEBUG}