ComboBox1.Items := (ordner).Fonts;

[horst]

wie kann ich mir die fonts eines ordners in einer combobox anzeigen lassen?
mit:
ComboBox1.Items := Screen.Fonts;
kriege ich ja die systemfonts.

[Nalincah]

Also in einem Ordner sind Fonts und die sollen in der combobox angezeigt werden?

[horst]

jepp 100%

[Nalincah]

ich probier mal was
moment

[Nalincah]

Guck dir das mal an

[Nalincah]

Vergiss das
ich bastel mal was edleres

[Nalincah]

Ich denk mal das ist genau das was du brauchst

[horst]

danke funktioniert
aber das funktioniert dann irgendwie nicht
memo1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex];

[Nalincah]

Ich glaub wie du das machen willst klappt das nur wenn die Fonts im Windows/Fonts Verzeichnis ist

Probier mal

Delphi-Quellcode:

var
s:string;
i:integer;
begin
  s := ComboBox1.Items[ComboBox1.ItemIndex];
  for i := length(s) downto 0 do
  begin
    if s[i] = '\' then
    break;
  end;
  Edit1.Font.Name := copy(s,i+1,length(s)
end;

Mehr weiss ich auch nicht

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[horst]

ne leider auch nicht, könnte mir auch vorstellen das das nur mit dem windows verzeichnis funktioniert.
big thx für deine hilfe