delphi llPDFLib 添加虚线

llPDFLib 添加虚线

属性和方法

TPDFCanvas.SetColorStroke

procedure SetColorStroke(Color: TPDFColor);

设置直线和曲线的颜色。

参数

Color 直线和曲线的颜色。

TPDFCanvas.MoveTo

procedure MoveTo(X: Extended; Y: Extended);

将当前点移动到( X, Y )指定的位置。

参数

X X坐标移动下一点的位置。

Y Y坐标移动下一点的位置。

TPDFCanvas.LineTo

procedure LineTo(X: Extended; Y: Extended);

向路径添加一条线段，从当前点开始，到点( X, Y )结束。当前点设置为( X, Y )。

参数

X 直线终点的X坐标。

Y 直线终点的Y坐标。

TPDFCanvas.SetDash

procedure SetDash(DashSpec: AnsiString);

虚线模式控制用于描边路径的虚线和间隙的模式。在开始描边路径之前，要循环使用虚线数组，将虚线和间隙的长度相加。当累积长度等于破折号相位指定的值时，路径的描边就开始了，从该点开始循环使用破折号数组。

参数

DashSpec 虚线模式。

例子

添加虚线

uses llPDFDocument, llPDFCanvas;

procedure TForm1.Button7Click(Sender: TObject);
var
  Pdf: TPDFDocument;
begin
  Pdf := TPDFDocument.Create(nil);
  try
    //创建PDF文档
    Pdf.AutoLaunch := True;
    Pdf.FileName := 'C:\Users\Administrator\Desktop\ceshi.pdf';
    Pdf.BeginDoc;
    with Pdf.CurrentPage do
    begin
      //设置字体
      SetActiveFont('宋体', [], 16, GB2312_CHARSET);
      //设置字体颜色
      SetColor(ColorToPDFColor(clBlue));
      //SetColorStroke设置线颜色
      //（需要先调用SetColor再调用SetColorStroke，否则SetColor设置的颜色会覆盖SetColorStroke的颜色）
      SetColorStroke(ColorToPDFColor(clWindowText));
      //设置宽度
      SetLineWidth(2);
      //psSolid
      TextOut(20, 50, 0, 'psSolid');
      SetDash ('[ ] 0');
      MoveTo(130, 60);
      LineTo(350, 60);
      Stroke;
      //psDash
      TextOut(20, 80, 0, 'psDash');
      SetDash ('[4 4] 0');
      MoveTo(130, 90);
      LineTo(350, 90);
      Stroke;
      //psDot
      TextOut(20, 110, 0, 'psDot');
      SetDash ('[1 1] 0');
      MoveTo(130, 120);
      LineTo(350, 120);
      Stroke;
      //psDashDot
      TextOut(20, 140, 0, 'psDashDot');
      SetDash ('[4 1 1 1] 0');
      MoveTo(130, 150);
      LineTo(350, 150);
      Stroke;
      //psDashDotDot
      TextOut(20, 170, 0, 'psDashDotDot');
      SetDash ('[4 1 1 1 1 1] 0');
      MoveTo(130, 180);
      LineTo(350, 180);
      Stroke;
    end;
    Pdf.EndDoc;
  finally
    Pdf.Free;
  end;
end;