Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!
Как определить все доступные шрифты и их возможные размеры для определенного компонента и для отдельного текста в этом компоненте?

Вопрос задал: Евгений Eklmn (статус: Посетитель) Вопрос отправлен: 28 октября 2007, 19:24 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Трофимов Евгений!
Не понятно немного, что имеется ввиду "определенного компонента". Вообще то есть такой глобальный объект screen. А у него свойство Fonts. С помощью его можно получить полный список шрифтов.
Где то так можно получить список в Memo

var
  i: Integer;
begin
  Memo1.Clear;
  for i := 0 to Screen.Fonts.Count - 1 do
    Memo1.Lines.Add(Screen.Fonts[i]);

Ответ отправил: Вадим К (статус: Академик) Время отправки: 28 октября 2007, 20:39

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.