Strichstärke von Stiften ändern
Nach oben zu Mit Grafiken und Multimedia arbeiten - Index
Die Strichstärke in Pixel bestimmt die Dicke der Linien, die der Stift zeichnet.
Anmerkung: 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; { Strichstärke direkt festlegen } PenSize.Caption := IntToStr(PenWidth.Position); { Für die Beschriftung in String umwandeln } end;
void __fastcall TForm1::PenWidthChange(TObject *Sender) { Canvas->Pen->Width = PenWidth->Position; // Strichstärke direkt festlegen PenSize->Caption = IntToStr(PenWidth->Position); // in String umwandeln }