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

tvplanit: Rename internal monthviewpainter variable.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8539 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-12 11:29:37 +00:00
parent 029833dbf2
commit 521c9e0d90
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/tvplanit/source/vpmonthviewpainter.pas
View File

@ -12,11 +12,11 @@ type
TVpMonthViewPainter = class(TVpBasePainter)
private
FMonthView: TVpMonthView;
FDisplayDate: TDateTime;
FScaledMonthMargin: Integer;
FScaledDaysMargin: Integer;
// local parameters of the old TVpMonthView method
DisplayDate: TDateTime;
DisplayMonth: Word;
RealColor: TColor;
BevelHighlight: TColor;
@ -167,7 +167,7 @@ begin
{$ENDIF}
fontstyle := RenderCanvas.Font.style;
if (DisplayDate = ADate) then begin
if (FDisplayDate = ADate) then begin
if FMonthView.Focused then begin
if ACol = 6 then begin
tmpRect := ATextRect;
@ -418,7 +418,7 @@ begin
TextRect.BottomRight := Point(TextRect.Left + mvColWidth, TextRect.Top + mvRowHeight);
// Determine the starting date and offset
DecodeDate(DisplayDate, Y, DisplayMonth, D);
DecodeDate(FDisplayDate, Y, DisplayMonth, D);
StartingDate := EncodeDate(Y, DisplayMonth, 1);
MonthStartsOn := DayOfWeek(StartingDate);
DayTag := Ord(FMonthView.WeekStartsOn);
@ -675,7 +675,7 @@ begin
end;
{ Acquire startdate and end date }
HeadStr := FormatDateTime(FMonthView.DateLabelFormat, DisplayDate);
HeadStr := FormatDateTime(FMonthView.DateLabelFormat, FDisplayDate);
{$IFDEF FPC}{$IF FPC_FULLVERSION < 30000}
HeadStr := SysToUTF8(HeadStr);
{$ENDIF}{$ENDIF}
@ -832,13 +832,13 @@ end;
procedure TVpMonthViewPainter.SetMeasurements;
var
h, scaledMargin: Integer;
h: Integer;
txt: String = VpProductName;
// We use the VpProductName since it is a good representation of some generic text
begin
inherited;
DisplayDate := IfThen(RenderDate = 0, Date, RenderDate);
FDisplayDate := IfThen(RenderDate = 0, Date, RenderDate);
with TVpMonthViewOpener(FMonthView) do
begin