页码起始页为1

This commit is contained in:
csh 2024-11-25 09:55:15 +08:00
parent f251782186
commit 3b16e6969f
1 changed files with 2 additions and 1 deletions

View File

@ -269,7 +269,8 @@ begin
current_page_ := new TSPage(); current_page_ := new TSPage();
current_page_.Index := len; current_page_.Index := len;
current_page_.PdfPage := page; current_page_.PdfPage := page;
current_page_.Number := flag ? sect_ware_.SectPr.PgNumType.Start : page_array_[len-1].Number + 1; current_page_.Number := flag ? ifnil(sect_ware_.SectPr.PgNumType.Start) ? 1 : sect_ware_.SectPr.PgNumType.Start : page_array_[len-1].Number + 1;
// println("len = {}, Number = {}", len, current_page_.Number);
page_array_[len] := current_page_; page_array_[len] := current_page_;
// 页眉页脚 // 页眉页脚