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

tvplanit: No partial tasks in the last line of a page in the print-out.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8515 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-06 11:11:32 +00:00
parent 87cb6634be
commit 807a5140d7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -94,7 +94,7 @@ var
d2: Integer; // 2*Scale d2: Integer; // 2*Scale
{%H-}d1px, {%H-}d2px, d3px: Integer; {%H-}d1px, {%H-}d2px, d3px: Integer;
begin begin
tm := Round(FTaskList.TextMargin * Scale); tm := FScaledTextMargin;
{$IF VP_LCL_SCALING > 0} {$IF VP_LCL_SCALING > 0}
d1px := FTasklist.Scale96ToFont(1); d1px := FTasklist.Scale96ToFont(1);
@ -376,7 +376,7 @@ begin
{$ENDIF} {$ENDIF}
for I := StartLine to pred(tlAllTaskList.Count) do begin for I := StartLine to pred(tlAllTaskList.Count) do begin
task := tlAllTaskList[I]; task := tlAllTaskList[I];
if (LineRect.Top + Trunc(RowHeight * 0.5) <= RealBottom) then begin if (LineRect.Bottom <= RealBottom) then begin
// If this is the selected task and we are not in edit mode, // If this is the selected task and we are not in edit mode,
// then set background selection. // then set background selection.
if (task = FActiveTask) and if (task = FActiveTask) and