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

Пользователь

от loyal , в категории: Другие , 10 месяцев назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от magdalen_kub , 10 месяцев назад

@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.