From e2aa553c6c7a1439f7901955640dd259d1ff043c Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 17 Jun 2011 09:38:09 +0000
Subject: [PATCH] Fixes compilation of fpvviewer

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

diff --git a/applications/fpvviewer/fpvv_mainform.pas b/applications/fpvviewer/fpvv_mainform.pas
index 846c8be65..007d31de4 100644
--- a/applications/fpvviewer/fpvv_mainform.pas
+++ b/applications/fpvviewer/fpvv_mainform.pas
@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, EditBtn,
   StdCtrls, Spin, ExtCtrls, ComCtrls,
-  fpvv_drawer;
+  fpvv_drawer, fpimage, fpcanvas;
 
 type
 
@@ -126,7 +126,6 @@ end;
 procedure TfrmFPVViewer.buttonRenderingTestClick(Sender: TObject);
 var
   Vec: TvVectorialDocument;
-  lClYellow: TvColor = (Red: $FF; Green: $FF; Blue: $00; Alpha: FPValphaOpaque);
 begin
   notebook.PageIndex := 0;
 
@@ -138,7 +137,7 @@ begin
     Vec.AddAlignedDimension(Make2DPoint(50, 250), Make2DPoint(100, 200), Make2DPoint(150, 250), Make2DPoint(150, 200));
 
     Vec.StartPath(0, 0);
-    Vec.SetPenColor(lClYellow);
+    Vec.SetPenColor(colYellow);
     Vec.SetPenWidth(1);
     Vec.AddLineToPath(100, 100);
     Vec.EndPath();