System Fonts in ComboBox einlesen

[K-Asche]

Hi@all,

ich möchte alle auf dem System befindlichen Fonts in eine ComboBox einlesen.
Gibt es eine Methode, welche sich sämtliche Fonts besorgt?

LG, Karsten

[dataspider]

Hi,

unit Printers einbinden und über printer.fonts einlesen.

Cu, Frank

[Der Jan]

Delphi-Quellcode:

ComboBox1.Items.Assign(Screen.Fonts);

sollte helfen.

[K-Asche]

Ok sowiet war ich jetzt auch schon, danke,
habe da aber noch 2 Probleme, einmal wie bekomm ich nun die Schriftnamen in die ComboBox.
Zur Info, bin gerade dabei mir ein eigenes Ctrl zu schreiben.

Delphi-Quellcode:

 FPrinter := TPrinter.Create;
  I := FPrinter.Fonts.Count;
  for A := 0 to I do Begin
    Items.Insert(A, FPrinter.Fonts.Text);
  End;

Wenn ich es so versuche bekomme ich eine Exception : Element hat kein übergeordnetes Fenster.

Zweitens sollen die Schriftarten so dargestellt werden, das man sieht wie sie aussehen, wie in Word halt.
Da ich Delphi Neuling bin steh ich gerade voll auf dem Schlauch :gruebel:
Weiß halt noch nicht wie ich die So darstellen soll.

[K-Asche]

Ok Prob Nr. 1 hat sich erledigt einfach CreateWnd überschrieben und dort die Schriften eingefügt.

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

[K-Asche]

Jau besten Dank, das hat wunderbar funktioniert!

Gibt es Jetzt auch noch die Möglichkeit, wie in Word, ein Icon angezeigt zu bekommen welches die Art der Schrift(TrueType etc); mit auszugeben?