tvplanit: Fix TVpWeekView drawing glitches. Add Alignment property for weekview's day names.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8442 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpganttviewpainter.pas

@@ -116,35 +116,14 @@ var
   R: TRect;
 begin
   R := Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1);
-
+  R := TPSRotateRectangle(Angle, RenderIn, R);
   case FGanttView.DrawingStyle of
     dsNoBorder:
-      ;  // no border
+      ;     // no border
     dsFlat: // Draw a simple rectangular border
-      DrawBevelRect(
-        RenderCanvas,
-        TPSRotateRectangle(Angle, RenderIn, R),
-        BevelShadow,
-        BevelShadow
-      );
-    ds3D: // Draw a 3d bevel
-      begin
-        DrawBevelRect(
-          RenderCanvas,
-          TPSRotateRectangle(Angle, RenderIn, R),
-          BevelShadow,
-          BevelHighlight
-        );
-        (*
-        InflateRect(R, -1, -1);
-        DrawBevelRect(
-          RenderCanvas,
-          TPSRotateRectangle(Angle, RenderIn, R),
-          BevelDarkShadow,
-          clRed //BevelFace
-        );
-        *)
-      end;
+      DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
+    ds3D:   // Draw a 3d bevel (recessed)
+      DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
   end;
 end;