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

tvplanit: Better variable name for page number in VpPrtPrv

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8538 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-12 11:27:47 +00:00
parent d061931e1f
commit 029833dbf2
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -476,7 +476,7 @@ var
lDate: TDateTime; lDate: TDateTime;
lContact, lTask: Integer; lContact, lTask: Integer;
lLastPage: Boolean; lLastPage: Boolean;
i: Integer; pageNum: Integer;
pageInfo: PVpPageInfo; pageInfo: PVpPageInfo;
begin begin
if FPageInfo.Count > 0 then if FPageInfo.Count > 0 then
@ -487,20 +487,22 @@ begin
lTask := 0; lTask := 0;
lLastPage := false; lLastPage := false;
// The first page uses the start parameters
GetMem(pageInfo, SizeOf(TVpPageInfo)); GetMem(pageInfo, SizeOf(TVpPageInfo));
pageInfo.Date := lDate; pageInfo.Date := lDate;
pageInfo.Contact := lContact; pageInfo.Contact := lContact;
pageInfo.Task := lTask; pageInfo.Task := lTask;
pageInfo.LastPage := lLastPage; pageInfo.LastPage := lLastPage;
FPageInfo.Add(pageInfo); FPageInfo.Add(pageInfo);
pageNum := 0;
i := 0; // The following pages must be rendered to determine the data for the PageInfo item.
while (not lLastPage) do begin while (not lLastPage) do begin
inc(i); inc(pageNum);
FControlLink.Printer.RenderPage( FControlLink.Printer.RenderPage(
RenderBmp.Canvas, RenderBmp.Canvas,
Rect(0, 0, RenderBmp.Width, RenderBmp.Height), Rect(0, 0, RenderBmp.Width, RenderBmp.Height),
i, pageNum,
lDate, lDate,
FEndDate, FEndDate,
lContact, lContact,
@ -508,6 +510,9 @@ begin
lLastPage lLastPage
); );
// When lLastPage is true the preceeding rendering process yielded an empty
// page. In all other case store the data returned by Printer.RenderPage in
// the PageInfo list.
if not lLastPage then if not lLastPage then
begin begin
GetMem(pageInfo, SizeOf(TVpPageInfo)); GetMem(pageInfo, SizeOf(TVpPageInfo));