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}