C++ C++ C# C# ASP.NET Security ASP.NET Security ASM ASM Скачать Скачать Поиск Поиск Хостинг Хостинг  
  Программа для работы с LPT портом...
Язык: .NET — ©Alexey...
  "ASP.NET Atlas" – AJAX в исполнении Micro...
Язык: .NET — ©legigor@mail.ru...
  "Невытесняющая" Многопоточность...
Язык: C/C++ — ©...
  01.05.2010 — Update World C++: Сборник GPL QT исходников
  15.12.2007 — Весь сайт целиком можно загрузить по ссылкам из раздела Скачать
Хостинг:
Windows 2003, ASP.NET 2.0
бесплатный и от 80 руб./мес


   Отправить письмо
Кулабухов Артем, Беларусь




 Как узнать, какие шрифты установлены в системе / Система (OC) / Borland C++

Как узнать, какие шрифты установлены в системе?

Автор: OlegGG, trainer
Исходная ссылка: - - -

Как получить список всех установленных шрифтов?
Использовать TScreen::Fonts.
Пример:
Memo1->Lines->Text = "В системе установлены следующие шрифты:\n\n" + Screen->Fonts->Text;


Как получить список только моноширинных шрифтов?
/* функция-перечислитель для шрифтов */
int CALLBACK EnumFontsProc(LOGFONT * lplf, TEXTMETRIC * lptm, DWORD dwType, LPARAM lpData){
   if( (lptm->tmPitchAndFamily&TMPF_FIXED_PITCH) == 0 ) {
	 TStrings * strlist = (TStrings *)lpData;
	 strlist->Add(lplf->lfFaceName);
   }
   return TRUE;
}
/* обработчик нажатия на кнопку, по которому будем создавать список шрифтов */
void __fastcall TForm1::Button1Click(TObject *Sender) {
   /* Очищаем TMemo */
   Memo1->Lines->Clear();
   /* инициируем перечисление */
   EnumFonts(Canvas->Handle,NULL,(FONTENUMPROC)&EnumFontsProc,(LPARAM)Memo1->Lines);
   /* теперь в Memo1 отображен список моноширинных шрифтов */
}