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

@@ -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,

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                                     }

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

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;

components/tvplanit/source/vpcontactgridpainter.pas

@@ -47,7 +47,6 @@ type
 implementation
 
 uses
-  StrUtils,
   VpCanvasUtils, VpMisc, VpSR;
 
 type

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

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;

components/tvplanit/source/vpvcard.pas

@@ -111,7 +111,7 @@ implementation
 
 uses
   StrUtils, DateUtils,
-  vpMisc;
+  VPBase, VpMisc;
 
 const
   ITEMS_DELIMITER = ';';