wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 34 -> Версия для печати

Вопрос и Ответ 34

Вопрос и Ответ 34

Вопросы и Ответы

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

      Вы можете получить два списка доступных шрифтов. Один список для экранных шрифтов, а второй - для шрифтов принтера. Списки доступных шрифтов находятся в свойствах:

      property Fonts: TStrings;

      объектов TScreen и TPrinter, соответственно.

      Пример:

      ............

      procedure TForm1.FormCreate(Sender: TObject);
      begin

        ListBox1.Items := Screen.Fonts;
        ListBox2.Items := Printer.Fonts;

      end;

      ............

      P.S. Не забудте добавить модуль Printers в строку Uses....

...предыдущая страница следующая...
оглавление

Rambler's Top100