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; R: TRect;
begin begin
R := TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1)); R := TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1));
RenderCanvas.Pen.Width := 1;
case FMonthView.DrawingStyle of case FMonthView.DrawingStyle of
dsNoBorder: ; dsNoBorder: ;
dsFlat: DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow); dsFlat: DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
@ -139,7 +140,7 @@ begin
if ACol = 6 then begin if ACol = 6 then begin
// Draw bottom line // Draw bottom line
TPSMoveTo(RenderCanvas, Angle, RenderIn, ATextRect.Left, ATextRect.Bottom); 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 end else begin
// Draw right side and bottom lines // Draw right side and bottom lines
TPSMoveTo(RenderCanvas, Angle, RenderIn, ATextRect.Right, ATextRect.top); TPSMoveTo(RenderCanvas, Angle, RenderIn, ATextRect.Right, ATextRect.top);
@ -267,6 +268,7 @@ begin
RenderCanvas.Font.Size := ScaleY(RenderCanvas.Font.Size, DesignTimeDPI); RenderCanvas.Font.Size := ScaleY(RenderCanvas.Font.Size, DesignTimeDPI);
{$ENDIF} {$ENDIF}
RenderCanvas.Brush.Color := DayHeadAttrColor; RenderCanvas.Brush.Color := DayHeadAttrColor;
RenderCanvas.Pen.Color := RealLineColor;
strHeight := RenderCanvas.TextHeight('00'); strHeight := RenderCanvas.TextHeight('00');
{ build rect } { build rect }