Changement de l'épaisseur du crayon
Remonter à Utilisation des crayons
L’épaisseur du crayon détermine la taille, exprimée en pixels, de la ligne qu’il dessine.
Remarque : Lorsque l'épaisseur est supérieure à un pixel, Windows dessine toujours une ligne continue, sans tenir compte de la valeur de la propriété Style du crayon.
Pour modifier l’épaisseur du crayon, affectez une valeur numérique à la propriété Width du crayon.
Supposons que la barre d'outils du crayon contienne une barre de défilement permettant de définir la largeur de celui-ci, et que vous vouliez mettre à jour le libellé attenant à la barre de défilement pour que l'utilisateur voit ce qu'il fait. Pour utiliser la position de la barre de défilement afin de déterminer l'épaisseur du crayon, il est nécessaire de changer l'épaisseur du crayon chaque fois que la position change.
Voici comment traiter l’événement OnChange de la barre de défilement :
procedure TForm1.PenWidthChange(Sender: TObject);
begin
Canvas.Pen.Width := PenWidth.Position; { set the pen width directly }
PenSize.Caption := IntToStr(PenWidth.Position); { convert to string for caption }
end;
void __fastcall TForm1::PenWidthChange(TObject *Sender) {
Canvas->Pen->Width = PenWidth->Position; // set the pen width directly
PenSize->Caption = IntToStr(PenWidth->Position); // convert to string
}