You've already forked lazarus-ccr
tvplanit: No partial tasks in the last line of a page in the print-out.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8515 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -94,7 +94,7 @@ var
|
||||
d2: Integer; // 2*Scale
|
||||
{%H-}d1px, {%H-}d2px, d3px: Integer;
|
||||
begin
|
||||
tm := Round(FTaskList.TextMargin * Scale);
|
||||
tm := FScaledTextMargin;
|
||||
|
||||
{$IF VP_LCL_SCALING > 0}
|
||||
d1px := FTasklist.Scale96ToFont(1);
|
||||
@ -376,7 +376,7 @@ begin
|
||||
{$ENDIF}
|
||||
for I := StartLine to pred(tlAllTaskList.Count) do begin
|
||||
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,
|
||||
// then set background selection.
|
||||
if (task = FActiveTask) and
|
||||
|
Reference in New Issue
Block a user