Вопросы и Ответы
34. Как получить список доступных шрифтов?
Вы можете получить два списка доступных шрифтов. Один список для экранных шрифтов, а второй - для шрифтов принтера. Списки доступных шрифтов находятся в свойствах:
property Fonts: TStrings;
объектов TScreen и TPrinter, соответственно.
............
procedure
TForm1.FormCreate(Sender: TObject); ListBox1.Items
:= Screen.Fonts; end; ............ P.S. Не забудте добавить модуль Printers в строку
Uses....
begin
ListBox2.Items := Printer.Fonts;
...предыдущая страница следующая...
оглавление