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

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

property Fonts: TStrings;

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

Пример:

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

Поддержка сайта

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

  • vitality ed pills cure for ed or natural ed medications treatment for erectile dysfunction or how to get amoxicillin can i buy amoxicillin over the counter or prednisone 20 mg tablets coupon prednisone 5mg coupon or vacuum pump for ed ed pills for sale
  • erectile dysfunction medication comparison of ed drugs ed cures that work otc ed pills https://canadianpharmacyvikky.com real viagra without a doctor prescription usa ed aids buy prescription drugs online without herbal remedies for ed
  • ed medications over the counter canadian pharmacy vikky best ed drugs new erectile dysfunction treatment https://canadianpharmacyvikky.com ed pills online

Счетчики