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

tvplanit: Add missing {$I vp.inc} in some of the new painter units. (Had caused a compilation issue).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4837 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-25 23:46:00 +00:00
parent 8025160806
commit d6961421d3
4 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpcalendarpainter.pas
View File

@ -1,5 +1,7 @@
unit VpCalendarPainter; unit VpCalendarPainter;
{$I vp.inc}
interface interface
uses uses
@ -297,7 +299,7 @@ begin
DecodeDate(RenderDate, Y, M, D); DecodeDate(RenderDate, Y, M, D);
try try
{$IFDEF VERSION6} {$IFDEF VERSION6}
if not TryEncodeDate (Y, M, clDay, lDate) then if not TryEncodeDate (Y, M, TVpCalendarOpener(FCalendar).clDay, lDate) then
lBadDate := true; lBadDate := true;
{$ELSE} {$ELSE}
lDate := EncodeDate(Y, M, TVpCalendarOpener(FCalendar).clDay); lDate := EncodeDate(Y, M, TVpCalendarOpener(FCalendar).clDay);

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

@ -1,5 +1,7 @@
unit VpContactGridPainter; unit VpContactGridPainter;
{$I vp.inc}
interface interface
uses uses

4
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -1,8 +1,8 @@
{$I vp.inc}
unit VpDayViewPainter; unit VpDayViewPainter;
interface interface
{$I vp.inc}
uses uses
SysUtils, LCLType, LCLIntf, Types, SysUtils, LCLType, LCLIntf, Types,

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

@ -1,5 +1,7 @@
unit VpTasklistPainter; unit VpTasklistPainter;
{$I vp.inc}
interface interface
uses uses