System Fonts in ComboBox einlesen

[toms]

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TComboBox(Control) do
  begin
    Canvas.FillRect(rect);
    Canvas.Font.Style := [fsbold];
    Canvas.Font.Name  := Items[Index];
    Canvas.TextOut(rect.Left, rect.Top, Items[Index]);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  { Den ComboBox Style noch im Objekt Inspector auf csOwnerDrawFixed setzen }
  ComboBox1.Items := Screen.Fonts;
end;