pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanit: Improved rendering of TVpMonthView, more consistent with the other planner controls.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9101 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-12-22 23:36:57 +00:00
parent 62c275375c
commit d1eec6730d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpmonthviewpainter.pas
View File

@ -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 }