Single Post - Внутренний шрифт в плагинах/утилитах...

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Внутренний шрифт в плагинах/утилитах...

Author

Message

Maximus

Posted: Thu Jul 13, 2006 10:54 Post subject:

Решил проблему так:

Code:

fdFont->Font=fmMain->Font;
if(fdFont->Execute())
{
fmMain->Font=fdFont->Font;
for(int i=0;i<fmMain->ComponentCount;i++)
{
TControl *Component=(TControl *)fmMain->Components[i];
if(Component->HasParent() && !Component->ClassNameIs("TMenuItem"))
Component->Repaint();
}
}

Подразумевается, что у всех компонентов ParentFont==true.
fdFont - это FontDialog; fmMain - это форма.
Возможно кроме TMenuItem в условии придется добавить еще какие-то классы, если они используются и при вызове для них Repaint() вываливается ошибка.