Как получить список доступных шрифтов в delphi?

@loyal 

Вы можете получить список доступных шрифтов в Delphi с помощью объекта Screen и свойства Fonts.

Вот пример кода:

1
2
3
4
5
6

var
  i: Integer;
begin
  for i := 0 to Screen.Fonts.Count - 1 do
    ShowMessage(Screen.Fonts[i]);
end;

Этот код перебирает все шрифты, доступные на компьютере, и выводит их имена в сообщении ShowMessage. Можно использовать другие методы для отображения списка шрифтов, например, для помещения списка в элемент управления списка (TListBox), используя его свойство Items:

1
2
3
4
5
6

var
  i: Integer;
begin
  for i := 0 to Screen.Fonts.Count - 1 do
    ListBox1.Items.Add(Screen.Fonts[i]);
end;

Этот код добавляет каждый шрифт в элемент управления списка ListBox1.

@loyal 

Есть и другой способ получения списка доступных шрифтов - используя функцию EnumFonts из модуля Windows. Этот способ позволяет получить дополнительную информацию о шрифте, такую как его стиль, наличие жирности и курсива, семейство шрифтов и так далее.

Вот пример кода:

1 2 3 4 5 6 7 8 9 10 11 12 13

uses Windows;

procedure EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric; FontType: Integer; Data: Pointer); stdcall; begin TStrings(Data).Add(LogFont.lfFaceName); end;

var Fonts: TStringList; begin Fonts := TStringList.Create; try EnumFonts(Canvas.Handle, nil, @EnumFontsProc, Pointer(Fonts)); ShowMessage(Fonts.Text); finally Fonts.Free; end; end;

Этот код использует функцию EnumFonts, чтобы перечислить все шрифты и добавить их имена в список Fonts. Затем он отображает список шрифтов в сообщении ShowMessage. Вы также можете использовать другие методы для отображения списка шрифтов, например, поместить их в элемент управления списка (TListBox) или использовать их для установки шрифта в элементе управления (например, TLabel) с помощью свойства Font.