对目录文字到页码的连线进行优化，由文字"."改成画线方式

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;