From 521c9e0d90801b0931e16abd963706960abd591f Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 12 Oct 2022 11:29:37 +0000
Subject: [PATCH] tvplanit: Rename internal monthviewpainter variable.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8539 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpmonthviewpainter.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/components/tvplanit/source/vpmonthviewpainter.pas b/components/tvplanit/source/vpmonthviewpainter.pas
index c6348d11c..103c62d4f 100644
--- a/components/tvplanit/source/vpmonthviewpainter.pas
+++ b/components/tvplanit/source/vpmonthviewpainter.pas
@@ -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