Reference IPen

  IPen = interface
  public
    function GetColor: TColorF;
    procedure SetColor(const Value: TColorF);
    function GetBrush: IBrush;
    procedure SetBrush(Value: IBrush);
    function GetWidth: Float;
    procedure SetWidth(Value: Float);
    function GetMiterLimit: Float;
    procedure SetMiterLimit(Value: Float);
    function GetLineCap: TLineCap;
    procedure SetLineCap(const Value: TLineCap);
    function GetLineJoin: TLineJoin;
    procedure SetLineJoin(const Value: TLineJoin);
    { The color of the stroke }
    property Color: TColorF read GetColor write SetColor;
    { A brush to stroke with in place of the color }
    property Brush: IBrush read GetBrush write SetBrush;
    { The width of the stroke }
    property Width: Float read GetWidth write SetWidth;
    { How far a miter join can reach before it is cut off }
    property MiterLimit: Float read GetMiterLimit write SetMiterLimit;
    { How the ends of lines are drawn }
    property LineCap: TLineCap read GetLineCap write SetLineCap;
    { How lines are joined at corners }
    property LineJoin: TLineJoin read GetLineJoin write SetLineJoin;
  end;