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;