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% :dancer:

[Nalincah]

ich probier mal was
moment

[Nalincah]

Guck dir das mal an

[Nalincah]

Vergiss das
ich bastel mal was edleres :D

[Nalincah]

Ich denk mal das ist genau das was du brauchst

[horst]

danke funktioniert :bounce2:
aber das funktioniert dann irgendwie nicht ;)

Delphi-Quellcode:

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 ;)

[Nalincah]

Vielleicht kannst du versuchen die font in das windows\fonts-verzeichnis zu kopieren, dann benutzen und danach wieder löschen. Weiß aber nicht wie. Such mal was in der Libary bei kopieren.

[horst]

die idee ist gut, nur was ist wenn der fontordner 600 mb groß ist

[Nalincah]

der windows/font oderner oder der den du ausliest?

[horst]

den ich versuche auszulesen ...

[Nalincah]

Du sollst ja auch nicht alle kopieren, sondern immer nur die, die benutzt wirst. Pass aber auf. Wenn in deinem Ordner ne Font "Arial.ttf" ist und du die in "C:\Windows\Fonts\" kopieren willst gibts die da ja meistens schon. Wenn du die jetzt überschreibst und danach löscht ist sie weg. Also nur reinkopieren wenn es die Schrift noch nicht gibt

[horst]

stimmt das könnte ich versuchen ...merci