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

tvplanit: Less hints and warnings. Cosmetic changes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-12 18:00:32 +00:00
parent 6517dc0e2e
commit d616eba746
39 changed files with 427 additions and 399 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpcalendar.pas
View File

@@ -70,7 +70,7 @@ const
(clBlack, clBlack, clAqua, clGray, clBlack, clNavy, clBlack),
(clRed, clRed, clFuchsia, clGray, clBlue, clTeal, clBlack)
);
calDefWeekStarts = dtSunday;{ default start of the week }
calDefWeekStarts = dtSunday; { default start of the week }
type
TVpCalColors = class(TPersistent)
@@ -197,7 +197,7 @@ type
procedure calRebuildCalArray(ADate: TDateTime);
{-recalculate the contents of the calendar array}
procedure CalculateSizes(WorkCanvas: TCanvas; Angle: TVpRotationAngle;
Rect: TRect; var Row: TRowArray; var Col: TColArray; DisplayOnly: Boolean);
Rect: TRect; out Row: TRowArray; out Col: TColArray; DisplayOnly: Boolean);
procedure calRecalcSize (DisplayOnly: Boolean);
{-calcualte new sizes for rows and columns}
@@ -573,7 +573,7 @@ end;
{=====}
procedure TVpCustomCalendar.CalculateSizes(WorkCanvas: TCanvas;
Angle: TVpRotationAngle; Rect: TRect; var Row: TRowArray; var Col: TColArray;
Angle: TVpRotationAngle; Rect: TRect; out Row: TRowArray; out Col: TColArray;
DisplayOnly: Boolean);
{-calcualte new sizes for rows and columns}
var