Delphi的绘图功能[11] - TPen类（上）

Delphi的绘图功能[11] - TPen类（上）2011-12-15 cnblogs 万一//TPen 的主要属性有四:

Color、Width、Style、Mode

{Color: 颜色}

{Width: 宽度; 默认是 1; 如果 赋予 <= 0 的值, 会使用默认值}
{Style: 样式; Delphi 定义了笔样式枚举 TPenStyle, 包含以下样式:}
psSolid    = 0; {实线}
psDash    = 1; {段线; 要求笔宽<=1}
psDot     = 2; {点线; 要求笔宽<=1}
psDashDot   = 3; {线、点; 要求笔宽<=1}
psDashDotDot = 4; {线、点、点; 要求笔宽<=1}
psClear    = 5; {不可见}
psInsideFrame = 6; {实线; 但笔宽是向里扩展}
psUserStyle  = 7; {自定义, Delphi.Net 支持}
psAlternate  = 8; {交替, Delphi.Net 支持}

//下面的例子依次展示了各种样式:

var
 i,x,y,n: Integer;
begin
 x := 10;
 y := 15;
 n := ClientWidth - 2*x;
 Canvas.Pen.Color := clRed;
 for i := 0 to 8 do
 begin
  Canvas.Pen.Style := TPenStyle（i）;
  Canvas.MoveTo（x, y）;
  Canvas.LineTo（x + n, y）;
  y := y + 15;
 end;
end;

//效果图: