Changement de la couleur du crayon
Remonter à Utilisation des crayons
La couleur du crayon est définie en mode exécution comme toute autre propriété Color. La couleur du crayon détermine la couleur des lignes qu'il dessine : lignes, polylignes et contour des formes, ainsi que d'autres types de lignes et polylignes. Pour modifier la couleur du crayon, donnez une valeur à la propriété Color du crayon.
Pour permettre à l'utilisateur de choisir une nouvelle couleur de crayon, vous devez placer une grille de couleurs dans la barre d'outils du crayon. Une grille de couleurs permet de spécifier une couleur de premier plan et une couleur d'arrière-plan. Si vous n'utilisez pas de grille, vous devez penser à fournir une couleur d'arrière-plan pour dessiner les intervalles entre les segments de lignes. La couleur d'arrière-plan provient de la propriété Color du pinceau.
Quand l’utilisateur choisit une nouvelle couleur en cliquant dans la grille, ce code modifie la couleur du crayon en réponse à l’événement OnClick :
procedure TForm1.PenColorClick(Sender: TObject);
begin
Canvas.Pen.Color := PenColor.ForegroundColor;
end;
void __fastcall TForm1::PenColorClick(TObject *Sender) {
Canvas->Pen->Color = PenColor->ForegroundColor;
}