Strichstärke von Stiften ändern
Nach oben zu Stifte verwenden
Die Strichstärke in Pixel bestimmt die Dicke der Linien, die der Stift zeichnet.
Hinweis: Unter Windows werden breitere Strichstärken als 1 immer als durchgezogene Linien gezeichnet, unabhängig vom Wert der Eigenschaft Style.
Um die Strichstärke des Stiftes zu ändern, weisen Sie seiner Eigenschaft Width einen numerischen Wert zu.
Angenommen, Sie haben zum Setzen der Strichstärke eine Bildlaufleiste auf der Werkzeugleiste des Stiftes platziert. Außerdem möchten Sie eine Beschriftung aktualisieren, die sich neben der Bildlaufleiste befindet, so dass der Anwender eine Rückmeldung über die aktuelle Strichstärke erhält. Wenn Sie die Einstellung der Bildlaufleiste verwenden, um die Strichstärke des Stiftes festzulegen, müssen Sie die Strichstärke jedes Mal aktualisieren, wenn sich die Einstellung ändert.
Die Behandlungsroutine für das Ereignis OnChange dieser Bildlaufleiste könnte folgendermaßen aussehen:
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
}