From d1eec6730d3a60f4c98c6a51b62005e29faa9a75 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 22 Dec 2023 23:36:57 +0000
Subject: [PATCH] TvPlanit: Improved rendering of TVpMonthView, more consistent
 with the other planner controls.

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

diff --git a/components/tvplanit/source/vpmonthviewpainter.pas b/components/tvplanit/source/vpmonthviewpainter.pas
index d6551324d..5c968375e 100644
--- a/components/tvplanit/source/vpmonthviewpainter.pas
+++ b/components/tvplanit/source/vpmonthviewpainter.pas
@@ -96,6 +96,7 @@ var
   R: TRect;
 begin
   R := TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1));
+  RenderCanvas.Pen.Width := 1;
   case FMonthView.DrawingStyle of
     dsNoBorder: ;
     dsFlat: DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
@@ -139,7 +140,7 @@ begin
   if ACol = 6 then begin
     // Draw bottom line
     TPSMoveTo(RenderCanvas, Angle, RenderIn, ATextRect.Left, ATextRect.Bottom);
-    TPSLineTo(RenderCanvas, Angle, RenderIn, RealRight - 2, ATextRect.Bottom);
+    TPSLineTo(RenderCanvas, Angle, RenderIn, RealRight, ATextRect.Bottom);
   end else begin
     // Draw right side and bottom lines
     TPSMoveTo(RenderCanvas, Angle, RenderIn, ATextRect.Right, ATextRect.top);
@@ -267,6 +268,7 @@ begin
   RenderCanvas.Font.Size := ScaleY(RenderCanvas.Font.Size, DesignTimeDPI);
   {$ENDIF}
   RenderCanvas.Brush.Color := DayHeadAttrColor;
+  RenderCanvas.Pen.Color := RealLineColor;
   strHeight := RenderCanvas.TextHeight('00');
 
   { build rect }