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

tvplanit: Fix compilation error in prev commit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4887 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-01 20:45:03 +00:00
parent 6474f1bf95
commit d1c3eed2fa
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/examples/demo/demomain.lfm
View File

@ -25,9 +25,9 @@ object MainForm: TMainForm
Height = 532
Top = 48
Width = 780
ActivePage = TabSettings
ActivePage = TabEvents
Align = alClient
TabIndex = 4
TabIndex = 0
TabOrder = 0
object TabEvents: TTabSheet
Caption = 'Events'

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

@ -49,6 +49,7 @@ type
implementation
uses
LCLIntf,
VpCanvasUtils;
{ TBasePainter }

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

@ -35,7 +35,6 @@ type
procedure Clear;
function DrawAllDayEvents(ADate: TDateTime; DayRect: TRect; var EAIndex: Integer): Boolean;
procedure DrawBorders;
procedure DrawDotDotDot(ARect: TRect; AColor: TColor);
procedure DrawFocusRect(ADayIndex: Integer; DayRect: TRect);
procedure DrawDay(ADayIndex: Integer; var DayRect: TRect; var EAIndex: Integer);
procedure DrawDayHeader(ADayIndex: Integer; var TextRect: TRect);
@ -333,7 +332,7 @@ begin
{ in the available space }
if TextRect.Bottom - TextMargin > DayRect.Bottom then begin
{ Draw ". . ." }
DrawDotDotDot(RenderCanvas, DayRect, DotDotDotColor);
DrawDotDotDot(DayRect, DotDotDotColor);
break;
end;