From b47cb1562e06fcf8bc87fb2c0796ab20d6adee70 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 11 Apr 2011 07:29:07 +0000
Subject: [PATCH] Fixes compilation without the LCL

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

diff --git a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
index db6f1e5a2..1e5f07301 100644
--- a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
+++ b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
@@ -189,9 +189,9 @@ begin
       end;
       st2DLine, st3DLine:
       begin
-        ADest.Pen.Color := {$ifdef USE_LCL_CANVAS}VColorToTColor(Cur2DSegment.PenColor);{$else}VColorToFPColor(Cur2DSegment.PenColor);{$endif}
+        {$ifdef USE_LCL_CANVAS}ADest.Pen.Color := VColorToTColor(Cur2DSegment.PenColor);{$endif}
         ADest.LineTo(CoordToCanvasX(Cur2DSegment.X), CoordToCanvasY(Cur2DSegment.Y));
-        ADest.Pen.Color := clBlack;
+        {$ifdef USE_LCL_CANVAS}ADest.Pen.Color := clBlack;{$endif}
         {$ifdef FPVECTORIAL_TOCANVAS_DEBUG}
         Write(Format(' L%d,%d', [CoordToCanvasX(Cur2DSegment.X), CoordToCanvasY(Cur2DSegment.Y)]));
         {$endif}