Страница 48 из 96
Список всех шрифтов, установленных в системе (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);
}