Сombobox + шрифты

[Polotenchik]

Добрый вечер! Подскажите, как сделать выпадающий список виндовских шрифтов?

[Пепел Феникса]

EnumFonts
или EnumFontFamilies

[Kotofff]

Если не нужно каждый шрифт отображать в виде самого себя, можно так:

ComboBox1.Items.Assign(Screen.Fonts);

[mihali4]

Сообщение от Пепел Феникса

EnumFonts
или EnumFontFamilies

Гораздо проще:

ComboBox1.Items:=Screen.Fonts;
ComboBox1.ItemIndex:=0;

Сообщение от Kotofff

Если не нужно каждый шрифт отображать в виде самого себя, можно так:

ComboBox1.Items.Assign(Screen.Fonts);

Не-а... Не получится, чтобы каждый итемс отображался своим шрифтом...

[Polotenchik]

Всем большое спасибо! Буду пробовать.

[raxp]

если отрисовывать... truetype да, некоторые нет...

[Stilet]

Когда-то делал такую вот баланду.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormActivate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin

 StringGrid1.RowCount:=Screen.Fonts.Count+1;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

     if acol=0 then begin
      StringGrid1.Font.Size:=16;
      StringGrid1.Font.Name:=Screen.Fonts[arow];
      StringGrid1.Canvas.TextOut(rect.Left,rect.Top,StringGrid1.Font.Name);
     end;


end;

end.

Не очень сложно переделать на ComboBox