Eigenschaft: Font.Style (TLabel)

Verweis:	Font-Dialog Bedienung Font.Size Font.Name
Uses:
Eingabe:	Parameter fsBold, fsItalic, fsUnderline, fsStrikeOut in Kombination möglich.
Ausgabe:	Schrift mit dem im Parameter angegebenen Aussehen.
Funktion:	Kann eine Schrift in verschiedenen Zuständen darstellen.

Beispiel 1

Vorbereitung: Erstellen sie eine IDE Anwendung und ziehen Sie eine TListBox und einen TButton auf die Form.Erstellen Sie zusätzlich ein OnActivate-Ereignis für die Form und ein Onclick-Ereignis für den Button.

procedure TForm1.FormActivate(Sender: TObject);
begin
  Button1.Align := alBottom;
  Listbox1.Align := alClient;
  Listbox1.Clear;
  ListBox1.Sorted := True;
  ListBox1.Items := Screen.Fonts;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := Listbox1.Items[tag];
  Button1.Font.Name := Button1.Caption;
  Button1.Font.Style := [fsBold, fsItalic, fsUnderline, fsStrikeOut];
  if tag = ListBox1.Items.Count - 1 then tag := 0
  else
    tag := tag + 1;
end;

Mit dem Quelltext werden bei jedem Klick auf den Button die Schrift in der Button.Caption angezeigt. Dabei sind alle Parameter eingeschaltet. Nun können Sie sehen welche Schriften, welche Parameter unterstützen. Da die Schriften durch programmtechnische Tricks erzeugt werden, sind dies eigentlich keine richtigen Schriftarten. Diese werden nur durch die Parameter generiert. Wenn Sie beispielsweise eine Schriftart haben die es auch in dickgeschrieben gibt wie „Arial“ und „ArialBlack“ so ist die Schriftart „ArialBlack“ der Schriftart „Arial“ mit dem Style := [fsBold] vorzuziehen. Denn ArialBlack wurde extra dafür konzipiert und sieht daher besser aus. Wenn Sie die Styles einer Schrift ausschalten wollen übergeben sie einfach mit:

Button1.Font.Style := [];  

nichts. Eine leere Klammer löscht alle Parameter. Weil es sich bei Fontstyle um ein Set handelt. Dem set of TFontStyle zu finden in der Unit Graphics. 🙂