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

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

property Fonts: TStrings;

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

Пример:

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

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

  • Бутырский районИталия НеапольШатураИталия Ливорноо. ТиносХаной и ХошиминЭлистаСлободскойПлайя-дель-Кармен МексикаДиярбакыр ТурцияАлма-АтаГонконг ГонконгЯнтайЛез АркШартр ФранцияЦзямусыГольяновоКурск Центральный округЖанаозен КазахстанХайфа ИзраильТропарёво-НикулиноАкапулькоГренобль...
  • resource
  • Лимасол КипрЛарнакаСтокгольм ШвецияЧеркесскТулунДомодедовоМиконосЛакатамияЗеяMoscowКазахстан ПетропавловскМостолесБелорецкАринсальОрехово-Борисово ЮжноеРостокиноБугурусланЗеяВэйхайЛидаТурция АланияДжардини-Наксос ИталияФукуок ВьетнамПатрыCyprusЗеленоградМайрхофен & ЦиллертальЧкаловскКатания...

Счетчики