From d1c3eed2fabf6303200177deb3ab111f1ecc5a55 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 1 Jul 2016 20:45:03 +0000
Subject: [PATCH] tvplanit: Fix compilation error in prev commit.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4887 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/examples/demo/demomain.lfm   | 4 ++--
 components/tvplanit/source/vpbasepainter.pas     | 1 +
 components/tvplanit/source/vpweekviewpainter.pas | 3 +--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/tvplanit/examples/demo/demomain.lfm b/components/tvplanit/examples/demo/demomain.lfm
index e71bc757e..68d5c7c95 100644
--- a/components/tvplanit/examples/demo/demomain.lfm
+++ b/components/tvplanit/examples/demo/demomain.lfm
@@ -25,9 +25,9 @@ object MainForm: TMainForm
       Height = 532
       Top = 48
       Width = 780
-      ActivePage = TabSettings
+      ActivePage = TabEvents
       Align = alClient
-      TabIndex = 4
+      TabIndex = 0
       TabOrder = 0
       object TabEvents: TTabSheet
         Caption = 'Events'
diff --git a/components/tvplanit/source/vpbasepainter.pas b/components/tvplanit/source/vpbasepainter.pas
index 376e1fb12..272546fe2 100644
--- a/components/tvplanit/source/vpbasepainter.pas
+++ b/components/tvplanit/source/vpbasepainter.pas
@@ -49,6 +49,7 @@ type
 implementation
 
 uses
+  LCLIntf,
   VpCanvasUtils;
 
 { TBasePainter }
diff --git a/components/tvplanit/source/vpweekviewpainter.pas b/components/tvplanit/source/vpweekviewpainter.pas
index 80066dca9..5cf2d80f2 100644
--- a/components/tvplanit/source/vpweekviewpainter.pas
+++ b/components/tvplanit/source/vpweekviewpainter.pas
@@ -35,7 +35,6 @@ type
     procedure Clear;
     function DrawAllDayEvents(ADate: TDateTime; DayRect: TRect; var EAIndex: Integer): Boolean;
     procedure DrawBorders;
-    procedure DrawDotDotDot(ARect: TRect; AColor: TColor);
     procedure DrawFocusRect(ADayIndex: Integer; DayRect: TRect);
     procedure DrawDay(ADayIndex: Integer; var DayRect: TRect; var EAIndex: Integer);
     procedure DrawDayHeader(ADayIndex: Integer; var TextRect: TRect);
@@ -333,7 +332,7 @@ begin
         { in the available space }
         if TextRect.Bottom - TextMargin > DayRect.Bottom then begin
           { Draw ". . ." }
-          DrawDotDotDot(RenderCanvas, DayRect, DotDotDotColor);
+          DrawDotDotDot(DayRect, DotDotDotColor);
           break;
         end;