pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix compilation with Laz 1.6.4. Less hints.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6550 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-07-06 18:56:08 +00:00
parent 896c356040
commit 50ebf97861
8 changed files with 10 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/source/vpbase.pas
View File

@ -52,6 +52,9 @@ const
Vp_DayViewInit = Vp_First + 3; {Initialize the DayView} Vp_DayViewInit = Vp_First + 3; {Initialize the DayView}
type type
{$IF FPC_FullVersion < 30000}
TStringArray = array of string;
{$ENDIF}
TVpRotationAngle = (ra0, ra90, ra180, ra270); TVpRotationAngle = (ra0, ra90, ra180, ra270);
TVpItemMeasurement = (imAbsolutePixel, imPercent, imInches, imCentimeters); TVpItemMeasurement = (imAbsolutePixel, imPercent, imInches, imCentimeters);
TVpItemType = (itDayView, itWeekView, itMonthView, itCalendar, TVpItemType = (itDayView, itWeekView, itMonthView, itCalendar,

5
components/tvplanit/source/vpbasedatafiles.pas
View File

@ -8,7 +8,8 @@ unit VpBaseDataFiles;
interface interface
uses uses
Classes, SysUtils, Contnrs; Classes, SysUtils, Contnrs,
VpBase;
type type
TVpFileItem = class TVpFileItem = class
@ -57,7 +58,7 @@ const
implementation implementation
uses uses
VpBase, VpMisc; VpMisc;
{==============================================================================} {==============================================================================}
{ TVpFileItem } { TVpFileItem }

2
components/tvplanit/source/vpcontacteditdlg.pas
View File

@ -509,7 +509,7 @@ var
Comboboxes: TComboboxArray; Comboboxes: TComboboxArray;
largestLabelWidth: Integer; largestLabelWidth: Integer;
comboArrowWidth: Integer; comboArrowWidth: Integer;
i, w: Integer; i: Integer;
OldFont: TFont; OldFont: TFont;
hlabeldist: Integer = 8; // min distance from label to edge of owner hlabeldist: Integer = 8; // min distance from label to edge of owner
hdist: Integer = 4; // Horizontal distance between label and edit/combo hdist: Integer = 4; // Horizontal distance between label and edit/combo

1
components/tvplanit/source/vpcontactgrid.pas
View File

@ -1594,7 +1594,6 @@ end;
procedure TVpContactGrid.KeyDown(var Key: Word; Shift: TShiftState); procedure TVpContactGrid.KeyDown(var Key: Word; Shift: TShiftState);
var var
PopupPoint: TPoint; PopupPoint: TPoint;
idx: Integer;
contactCount: Integer; contactCount: Integer;
begin begin
contactCount := DataStore.Resource.Contacts.Count; contactCount := DataStore.Resource.Contacts.Count;

1
components/tvplanit/source/vpcontactgridpainter.pas
View File

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

3
components/tvplanit/source/vpdata.pas
View File

@ -2661,9 +2661,8 @@ end;
procedure TVpTask.LoadFromICalendar(AEntry: TVpICalToDo); procedure TVpTask.LoadFromICalendar(AEntry: TVpICalToDo);
var var
dt: Double;
cat: String; cat: String;
i, j, k: Integer; i: Integer;
ct: TVpCategoryType; ct: TVpCategoryType;
catFound: Boolean; catFound: Boolean;
begin begin

11
components/tvplanit/source/vpical.pas
View File

@ -152,8 +152,6 @@ implementation
uses uses
VpConst, VpBase; VpConst, VpBase;
const
ITEMS_DELIMITER = ';';
// Examples: 19970702T160000, or T123000, or 20120101 // Examples: 19970702T160000, or T123000, or 20120101
function iCalDateTime(AText: String; out IsUTC: Boolean): TDateTime; function iCalDateTime(AText: String; out IsUTC: Boolean): TDateTime;
@ -163,13 +161,11 @@ type
month: array[1..2] of char; month: array[1..2] of char;
day: array[1..2] of char; day: array[1..2] of char;
end; end;
PDateMask = ^TDatemask;
TTimeMask = packed record TTimeMask = packed record
hour: array[1..2] of char; hour: array[1..2] of char;
minute: array[1..2] of char; minute: array[1..2] of char;
second: array[1..2] of char; second: array[1..2] of char;
end; end;
PTimeMask = ^TTimeMask;
var var
shour, smin, ssec: String; shour, smin, ssec: String;
yr, mon, day, hr, min, sec: Integer; yr, mon, day, hr, min, sec: Integer;
@ -217,7 +213,6 @@ var
inDate: Boolean = true; inDate: Boolean = true;
p: PChar; p: PChar;
s: String; s: String;
n: Integer;
begin begin
Result := 0; Result := 0;
if AText = '' then if AText = '' then
@ -302,8 +297,6 @@ procedure TVpICalAlarm.Analyze;
var var
i: Integer; i: Integer;
item: TVpICalItem; item: TVpICalItem;
s: String;
isUTC: Boolean;
begin begin
inherited; inherited;
for i := 0 to FItems.Count-1 do begin for i := 0 to FItems.Count-1 do begin
@ -465,10 +458,8 @@ end;
procedure TVpICalToDo.Analyze; procedure TVpICalToDo.Analyze;
var var
i, j: Integer; i: Integer;
item: TVpICalItem; item: TVpICalItem;
L: TStrings;
s: String;
isUTC: Boolean; isUTC: Boolean;
begin begin
inherited; inherited;

2
components/tvplanit/source/vpvcard.pas
View File

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