Stiftfarbe ändern
Nach oben zu Stifte verwenden
Die Farbe eines Stiftes kann wie jede andere Farbeigenschaft (Color) zur Laufzeit gesetzt werden. Die Stiftfarbe legt die Farbe fest, in der der Stift Linien zeichnet. Dazu gehören sowohl Begrenzungslinien von Formen als auch normale Linien und Polygonzüge. Sie ändern die Stiftfarbe, indem Sie der Eigenschaft Color des Stiftes einen Wert zuweisen.
Damit der Anwender eine neue Farbe für den Stift auswählen kann, müssen Sie der Werkzeugleiste des Stiftes ein Farbgitter hinzufügen. Ein Farbgitter kann sowohl Vordergrund- als auch Hintergrundfarben setzen. Für einen Stiftstil ohne Gitter ist die Hintergrundfarbe zu berücksichtigen, die in den Lücken zwischen den Liniensegmenten gezeichnet wird. Die Hintergrundfarbe wird über die Farbeigenschaft des Pinsels festgelegt.
Da der Anwender eine neue Farbe auswählt, indem er auf das Farbgitter klickt, weist der folgende Quelltext dem Stift als Reaktion auf ein OnClick-Ereignis eine neue Farbe zu:
procedure TForm1.PenColorClick(Sender: TObject);
begin
Canvas.Pen.Color := PenColor.ForegroundColor;
end;
void __fastcall TForm1::PenColorClick(TObject *Sender) {
Canvas->Pen->Color = PenColor->ForegroundColor;
}