From eb439247e16eb49ef8934f8806a5c85597898aec Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 5 Sep 2022 10:09:07 +0000
Subject: [PATCH] tvplanit: Consistent 3d mode for TVpContactGrid

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8449 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../tvplanit/source/vpcontactgridpainter.pas    | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/components/tvplanit/source/vpcontactgridpainter.pas b/components/tvplanit/source/vpcontactgridpainter.pas
index 1444ee926..a645fcd74 100644
--- a/components/tvplanit/source/vpcontactgridpainter.pas
+++ b/components/tvplanit/source/vpcontactgridpainter.pas
@@ -104,20 +104,11 @@ procedure TVpContactGridPainter.DrawBorders;
 var
   R: TRect;
 begin
-  R := RenderIn;
-  dec(R.Right, 1);
-  dec(R.Bottom, 1);
+  R := TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1));
   case FContactGrid.DrawingStyle of
-    dsFlat:
-      begin  { Draw a simple border rectangle }
-        DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
-      end;
-    ds3d:
-      begin  { Draw a 3d bevel }
-        DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
-        InflateRect(R, -1, -1);
-        DrawBevelRect(RenderCanvas, R, BevelDarkShadow, BevelFace);
-      end;
+    dsNoBorder: ;
+    dsFlat: DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
+    ds3D: DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
   end;
 end;