TCanvas.Pen Property

Specifies the kind of pen the canvas uses for drawing lines and outlining shapes.

Pascal

property Pen: TPen;

C++

__property TPen Pen;

Description

Set Pen to specify the pen to use for drawing lines and outlining shapes in the image. The value of Pen is a TPen object. Set the properties of the TPen object to specify the color, style, width, and mode of the pen.

Note: Setting the Pen property assigns the specified TPen object, rather than replacing the current TPen object.

C++ Examples:

Copy Code

/*
This example paints a white five-pointed star in a paintbox 
control:
*/
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
  TPaintBox *pPB = dynamic_cast<TPaintBox *>(Sender);
  TPoint points[6];
  pPB->Canvas->Pen->Color = clWhite;
  points[0].x = 40;
  points[0].y = 10;
  points[1].x = 20;
  points[1].y = 60;
  points[2].x = 70;
  points[2].y = 30;
  points[3].x = 10;
  points[3].y = 30;
  points[4].x = 60;
  points[4].y = 60;
  points[5].x = 40;
  points[5].y = 10;
  pPB->Canvas->Polyline(points,5);
}

Delphi Examples:

Copy Code

{
This example paints a white five-pointed star in a paintbox 
control:
} 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  with Sender as TPaintBox do
  begin
    Canvas.Pen.Color := clWhite;
    Canvas.Polyline([Point(40, 10), Point(20, 60), Point(70, 30),
    Point(10, 30), Point(60, 60), Point(40, 10)]);
  end;
end;