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 }