TPen::Width

Especifica a largura máxima de um pen em pixels.

__property int Width = {read=GetWidth, write=SetWidth, default=1};

Você pode usar a propriedade Width para dar à linha maior ou menor espessura. Se Width for colocado para um valor menor do que 1, o valor de pen automaticamente será remetido para 1.

Nota: O valor de Width influencia os possíveis valores válidos de Style.

O exemplo a seguir desenha muitos grupos, geralmente sobrepostos, de retângulos, retângulos arredondados e elipses de vários tamanhos e cores em um form maximizado, preenchendo totalmente o screen:

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <stdlib.h> // para random() e randomize(): valores aleatórios

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

int x, y;

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)
{
WindowState = wsMaximized; // janela maximizada
Timer1->Interval = 600; // intervalo de tempo para Timer
randomize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 x = random(Screen->Width - 10);
 y = random(Screen->Height - 10);
 Canvas->Pen->Color = (Graphics::TColor) random(65535);

 Canvas->Pen->Width = random(50); // Pen terá largura variável

 int Dx = random(400); // variáveis para os pixels
 int Dy = random(400); // do arredondamento do retângulo

 Canvas->Brush->Color = random(65535); // cor aleatória p retângulo arredondado
 Canvas->RoundRect(x, y, x + Dx, y + Dy, Dx/2, Dy/2);
 Canvas->Brush->Color = random(65535); // cor aleatória para o retângulo
 Canvas->Ellipse(x, y, x + random(400), y + random(400));
 Canvas->Brush->Color = random(65535); // cor aleatória para a elípse
 Canvas->Rectangle(x, y, x + random(400), y + random(400));

}
//---------------------------------------------------------------------------