From 57f673f4570ad0b7d25fb7e9e88a982334a1c5fc Mon Sep 17 00:00:00 2001 From: csh Date: Fri, 15 Nov 2024 15:29:34 +0800 Subject: [PATCH] =?UTF-8?q?=E5=AF=B9=E7=9B=AE=E5=BD=95=E6=96=87=E5=AD=97?= =?UTF-8?q?=E5=88=B0=E9=A1=B5=E7=A0=81=E7=9A=84=E8=BF=9E=E7=BA=BF=E8=BF=9B?= =?UTF-8?q?=E8=A1=8C=E4=BC=98=E5=8C=96=EF=BC=8C=E7=94=B1=E6=96=87=E5=AD=97?= =?UTF-8?q?"."=E6=94=B9=E6=88=90=E7=94=BB=E7=BA=BF=E6=96=B9=E5=BC=8F?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- utils/TSToc.tsf | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/utils/TSToc.tsf b/utils/TSToc.tsf index 38e407e..8433b5b 100644 --- a/utils/TSToc.tsf +++ b/utils/TSToc.tsf @@ -34,19 +34,18 @@ end; function TSToc.AddPageNumber(page: TSPage); begin number := tostring(page.Number); - symbol := "."; tspage_.PdfPage.SetFontAndSize(font_, ppr_.RPr.Sz.Val); - w := tspage_.PdfPage.TextWidth(symbol); number_sz := tspage_.PdfPage.TextWidth(number); x := rect_[2] - number_sz; tspage_.PdfPage.BeginText(); tspage_.PdfPage.TextOut(x, y_, number); tspage_.PdfPage.EndText(); - while x_ < x - w do - begin - tspage_.PdfPage.BeginText(); - tspage_.PdfPage.TextOut(x_, y_, symbol); - tspage_.PdfPage.EndText(); - x_ += w; - end + + tspage_.PdfPage.SetRGBStroke(0, 0, 0); + tspage_.PdfPage.SetDash(array(0.5, 2), 2, 0); + tspage_.PdfPage.SetLineWidth(0.5); + tspage_.PdfPage.SetLineCap(TSPdfEnumerations.ROUND_END); + tspage_.PdfPage.MoveTo(x_+1, y_); + tspage_.PdfPage.LineTo(x-0.5, y_); + tspage_.PdfPage.Stroke(); end;