FontNames

[Nils_13]

Hi,

wie finde ich heraus, welche Fonts auf dem Computer installiert sind und stelle sie in einer ComboBox zur Auswahl für ein Richedit? Gibts da Kompos?

[Die Muhkuh]

Hi Nils,

Combobox1.Items := Screen.Fonts;

[Ultimator]

Eine kurze Suche nach fonts auflisten hätte es auch getan.

Junge, Such doch endlich mal

[Nils_13]

Hi,

habs jetzt gelöst.

Delphi-Quellcode:

function TForm1.CurrText: TTextAttributes;
begin
  if edit.SelLength > 0 then Result := edit.SelAttributes
  else Result := edit.DefAttributes;
end;

procedure TForm1.FontNameChange(Sender: TObject);
begin
  if FUpdating then Exit;
  CurrText.Name := FontName.Items[FontName.ItemIndex];
end;

thx for all!