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 Height = 532
Top = 48 Top = 48
Width = 780 Width = 780
ActivePage = TabSettings ActivePage = TabEvents
Align = alClient Align = alClient
TabIndex = 4 TabIndex = 0
TabOrder = 0 TabOrder = 0
object TabEvents: TTabSheet object TabEvents: TTabSheet
Caption = 'Events' Caption = 'Events'

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

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

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

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