Fonts in Combobox laden

[logo123]

Hallo, kann mir jemand sagen, wie man alle Fonts, die im System gespeichert sind in einer combobox kaden kann?

[OldGrumpy]

Möchtest Du nur die Fontnamen, um eine Fontauswahl zu realisieren oder soll jeder Font in seiner eigenen Schriftart angezeigt werden usw.?

[Balu der Bär]

Eine einfache Fontauswahl wäre so möglich (BubbleSort dient nur zur Sortierung von A nach Z):

Delphi-Quellcode:

function EnumFontClBack(var lp: TEnumLogFont; var tm: TNewTextMetric; dwType: DWORD;
  lpData: lParam): Integer; stdcall;
begin
  Result := 1;
  with TForm2(lpData), Combobox1 do
  begin
    Items.Add(lp.elfLogFont.lfFaceName);
  end;
end;

procedure BubbleSort(Items: TStrings);
var
  done: boolean;
  i, n: integer;
  Dummy: string;
begin
  n := Items.Count;
  repeat
    done := true;
    for i := 0 to n - 2 do
      if Items[i] > Items[i + 1] then
      begin
        Dummy := Items[i];
        Items[i] := Items[i + 1];
        Items[i + 1] := Dummy;

        done := false;
      end;
  until done;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
EnumFontFamilies(Canvas.Handle, nil, @EnumFontClBack, Integer(Self));
BubbleSort(ComboBox1.Items);
end;

[logo123]

Es sollen nur die Namen der Fonts angezeigt werden.

[Balu der Bär]

Zitat:

Zitat von logo123

Es sollen nur die Namen der Fonts angezeigt werden.

Genau dies macht der obige Code.

[logo123]

Danke es hat geklappt

[Martin K]

:shock: Warum nicht so?
(Das ist dann übrigens schon sortiert!)

Delphi-Quellcode:

ComboBox1.Items := Screen.Fonts;

[Balu der Bär]

Warum einfach wenn's auch kompliziert geht? :P