Borland C++ Builder VCL FAQ - Список всех шрифтов, установленных в системе (VCL вариант)

ОГЛАВЛЕНИЕ


Список всех шрифтов, установленных в системе (VCL вариант)

Список всех шрифтов, установленных в системе, содержится в свойстве Fonts глобальной переменной Screen. Нижеприведенный пример показывает заполнение именами шрифтов выпадающего списка:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    for (int i = 0; i < Screen->Fonts->Count; i++)
      ComboBox1->Items->Add(Screen->Fonts->Strings[i]);
}

Но лучше так:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
      ComboBox1->Items->Assign(Screen->Fonts);
}