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

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

property Fonts: TStrings;

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

Пример:

USES Printers;
 
............
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
 ListBox1.Items := Screen.Fonts;
 ListBox2.Items := Printer.Fonts;
 
end;

Последние комментарии

  • buy cialis online in australia http://tadmedz.com cheap levitra pills http://cialisxtl.com cheap viagra 100mg
  • buy viagra over counter uk how to get cialis samples buy generic cialis uk
  • Трудно себе представить современного человека, ни разу не пробовавшего сыр. Этот продукт настолько привычен в нашем рационе, что мы даже не задумываемся, как он впервые попал на наш стол и какова история его появления. На нашем сайте собрано больше 50 сортов сыра с описаниями. Детальную информацию...

Счетчики