From 50ebf9786134899340ce26b2ee5d92389b0631d9 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 6 Jul 2018 18:56:08 +0000
Subject: [PATCH] tvplanit: Fix compilation with Laz 1.6.4. Less hints.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6550 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpbase.pas               |  3 +++
 components/tvplanit/source/vpbasedatafiles.pas      |  5 +++--
 components/tvplanit/source/vpcontacteditdlg.pas     |  2 +-
 components/tvplanit/source/vpcontactgrid.pas        |  1 -
 components/tvplanit/source/vpcontactgridpainter.pas |  1 -
 components/tvplanit/source/vpdata.pas               |  3 +--
 components/tvplanit/source/vpical.pas               | 11 +----------
 components/tvplanit/source/vpvcard.pas              |  2 +-
 8 files changed, 10 insertions(+), 18 deletions(-)

diff --git a/components/tvplanit/source/vpbase.pas b/components/tvplanit/source/vpbase.pas
index d338cd011..f6f03430f 100644
--- a/components/tvplanit/source/vpbase.pas
+++ b/components/tvplanit/source/vpbase.pas
@@ -52,6 +52,9 @@ const
   Vp_DayViewInit        = Vp_First + 3;   {Initialize the DayView}
 
 type
+ {$IF FPC_FullVersion < 30000}
+  TStringArray = array of string;
+ {$ENDIF}
   TVpRotationAngle = (ra0, ra90, ra180, ra270);
   TVpItemMeasurement = (imAbsolutePixel, imPercent, imInches, imCentimeters);
   TVpItemType = (itDayView, itWeekView, itMonthView, itCalendar,
diff --git a/components/tvplanit/source/vpbasedatafiles.pas b/components/tvplanit/source/vpbasedatafiles.pas
index 64a575df9..57ea7ea57 100644
--- a/components/tvplanit/source/vpbasedatafiles.pas
+++ b/components/tvplanit/source/vpbasedatafiles.pas
@@ -8,7 +8,8 @@ unit VpBaseDataFiles;
 interface
 
 uses
-  Classes, SysUtils, Contnrs;
+  Classes, SysUtils, Contnrs,
+  VpBase;
 
 type
   TVpFileItem = class
@@ -57,7 +58,7 @@ const
 implementation
 
 uses
-  VpBase, VpMisc;
+  VpMisc;
 
 {==============================================================================}
 {                              TVpFileItem                                     }
diff --git a/components/tvplanit/source/vpcontacteditdlg.pas b/components/tvplanit/source/vpcontacteditdlg.pas
index d513b3023..326cb8d8f 100644
--- a/components/tvplanit/source/vpcontacteditdlg.pas
+++ b/components/tvplanit/source/vpcontacteditdlg.pas
@@ -509,7 +509,7 @@ var
   Comboboxes: TComboboxArray;
   largestLabelWidth: Integer;
   comboArrowWidth: Integer;
-  i, w: Integer;
+  i: Integer;
   OldFont: TFont;
   hlabeldist: Integer = 8;  // min distance from label to edge of owner
   hdist: Integer = 4;    // Horizontal distance between label and edit/combo
diff --git a/components/tvplanit/source/vpcontactgrid.pas b/components/tvplanit/source/vpcontactgrid.pas
index 94c9a6bc0..957d9030d 100644
--- a/components/tvplanit/source/vpcontactgrid.pas
+++ b/components/tvplanit/source/vpcontactgrid.pas
@@ -1594,7 +1594,6 @@ end;
 procedure TVpContactGrid.KeyDown(var Key: Word; Shift: TShiftState);
 var
   PopupPoint: TPoint;
-  idx: Integer;
   contactCount: Integer;
 begin
   contactCount := DataStore.Resource.Contacts.Count;
diff --git a/components/tvplanit/source/vpcontactgridpainter.pas b/components/tvplanit/source/vpcontactgridpainter.pas
index d27dee24b..b8207ed52 100644
--- a/components/tvplanit/source/vpcontactgridpainter.pas
+++ b/components/tvplanit/source/vpcontactgridpainter.pas
@@ -47,7 +47,6 @@ type
 implementation
 
 uses
-  StrUtils,
   VpCanvasUtils, VpMisc, VpSR;
 
 type
diff --git a/components/tvplanit/source/vpdata.pas b/components/tvplanit/source/vpdata.pas
index 6cf46c677..16ad56f19 100644
--- a/components/tvplanit/source/vpdata.pas
+++ b/components/tvplanit/source/vpdata.pas
@@ -2661,9 +2661,8 @@ end;
 
 procedure TVpTask.LoadFromICalendar(AEntry: TVpICalToDo);
 var
-  dt: Double;
   cat: String;
-  i, j, k: Integer;
+  i: Integer;
   ct: TVpCategoryType;
   catFound: Boolean;
 begin
diff --git a/components/tvplanit/source/vpical.pas b/components/tvplanit/source/vpical.pas
index f9d8ac6de..e36785b70 100644
--- a/components/tvplanit/source/vpical.pas
+++ b/components/tvplanit/source/vpical.pas
@@ -152,8 +152,6 @@ implementation
 uses
   VpConst, VpBase;
 
-const
-  ITEMS_DELIMITER = ';';
 
 // Examples: 19970702T160000, or T123000, or 20120101
 function iCalDateTime(AText: String; out IsUTC: Boolean): TDateTime;
@@ -163,13 +161,11 @@ type
     month: array[1..2] of char;
     day: array[1..2] of char;
   end;
-  PDateMask = ^TDatemask;
   TTimeMask = packed record
     hour: array[1..2] of char;
     minute: array[1..2] of char;
     second: array[1..2] of char;
   end;
-  PTimeMask = ^TTimeMask;
 var
   shour, smin, ssec: String;
   yr, mon, day, hr, min, sec: Integer;
@@ -217,7 +213,6 @@ var
   inDate: Boolean = true;
   p: PChar;
   s: String;
-  n: Integer;
 begin
   Result := 0;
   if AText = '' then
@@ -302,8 +297,6 @@ procedure TVpICalAlarm.Analyze;
 var
   i: Integer;
   item: TVpICalItem;
-  s: String;
-  isUTC: Boolean;
 begin
   inherited;
   for i := 0 to FItems.Count-1 do begin
@@ -465,10 +458,8 @@ end;
 
 procedure TVpICalToDo.Analyze;
 var
-  i, j: Integer;
+  i: Integer;
   item: TVpICalItem;
-  L: TStrings;
-  s: String;
   isUTC: Boolean;
 begin
   inherited;
diff --git a/components/tvplanit/source/vpvcard.pas b/components/tvplanit/source/vpvcard.pas
index 89ba0fd6a..57aa72b6f 100644
--- a/components/tvplanit/source/vpvcard.pas
+++ b/components/tvplanit/source/vpvcard.pas
@@ -111,7 +111,7 @@ implementation
 
 uses
   StrUtils, DateUtils,
-  vpMisc;
+  VPBase, VpMisc;
 
 const
   ITEMS_DELIMITER = ';';