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

tvplanit: Activate page advance buttons in PrintPreview for TaskList.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8517 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-06 12:33:46 +00:00
parent 98e2c53e4a
commit ef2a97abf4
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/source/vpprtfmt.pas
View File

@ -2115,6 +2115,7 @@ begin
FLastContact := StartContact; FLastContact := StartContact;
PaintToCanvasRect(ACanvas, ARect, ADate); PaintToCanvasRect(ACanvas, ARect, ADate);
ADate := GetNextDate(ADate); ADate := GetNextDate(ADate);
StartTask := FLastTask; // wp: added to enable switching pages in preview
LastPage := True; LastPage := True;
if FHaveDate and (ADate < EndDate) then if FHaveDate and (ADate < EndDate) then