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

tvplanit: Fix truncated focus rectangle in bottom row of TVpMonthView

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8765 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-15 21:59:53 +00:00
parent eec167171d
commit 0ceb87ed80
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -117,13 +117,12 @@ begin
todayDate := Date(); todayDate := Date();
DecodeDate(ADate, Y, M, D); DecodeDate(ADate, Y, M, D);
if (ACol = 6) then begin WriteLn(ATextRect.Top, ', ', ATextRect.Bottom, ', ', RealBottom);
if (ACol = 6) then
ATextRect.Right := ATextRect.Right + 8; ATextRect.Right := ATextRect.Right + 8;
tmpRect := ATextRect;
if ATextRect.Bottom > RealBottom then tmpRect := ATextRect;
tmpRect.Bottom := RealBottom;
end else
tmpRect := ATextRect;
if ARow = 0 then if ARow = 0 then
inc(tmpRect.Top); inc(tmpRect.Top);
@ -245,6 +244,8 @@ begin
// then all the way to the left // then all the way to the left
ATextRect.TopLeft := Point(RealLeft + 1, ATextRect.Bottom + 1); ATextRect.TopLeft := Point(RealLeft + 1, ATextRect.Bottom + 1);
ATextRect.BottomRight := Point(ATextRect.Left + mvColWidth, ATextRect.Top + mvRowHeight); ATextRect.BottomRight := Point(ATextRect.Left + mvColWidth, ATextRect.Top + mvRowHeight);
if (ATextRect.Bottom > RealBottom - 1) then
ATextRect.Bottom := RealBottom - 1;
end else begin end else begin
// Slide rect one column to the right // Slide rect one column to the right
ATextRect.Left := ATextRect.Right + 1; ATextRect.Left := ATextRect.Right + 1;