Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.03.2013, 12:40   #1
Dennis777
Форумчанин
 
Регистрация: 06.11.2009
Сообщений: 203
По умолчанию Изменить стиль шрифта для всех компонентов.

Собственно, в заголовке и есть вопрос. Подскажите реализацию пожалуйста.
Интересный проект по изучению английского:
Английский в формате путешествия по США
Dennis777 вне форума Ответить с цитированием
Старый 16.03.2013, 12:43   #2
Luuzuk
Форумчанин
 
Аватар для Luuzuk
 
Регистрация: 18.01.2012
Сообщений: 975
По умолчанию

Элементы управления наследуют стиль шрифта своего родительского элемента.
Т.е. если на Form1 лежит 100500 Label'ов, то изменение Font у Form1 автоматически распространится на все Label'ы (если у последних Font явно не указан другим)
----------------
Вы об этом?
Благодарить в репутацию. Проклинать — туда же
Luuzuk вне форума Ответить с цитированием
Старый 16.03.2013, 13:02   #3
Dennis777
Форумчанин
 
Регистрация: 06.11.2009
Сообщений: 203
По умолчанию

Для SpeedButtonов так не хочет прокатывать(

Там перебор по компонентам можно сделать, только я не знаю, как реализовать)

for i:=1 to 36 do
sSpeedButton[i].Font.Style:=[];

Вот так не работает)
Интересный проект по изучению английского:
Английский в формате путешествия по США
Dennis777 вне форума Ответить с цитированием
Старый 16.03.2013, 21:13   #4
Dennis777
Форумчанин
 
Регистрация: 06.11.2009
Сообщений: 203
По умолчанию

Неужели никто не знает?) Подскажите хотя бы, где поискать, почитать можно?)
Интересный проект по изучению английского:
Английский в формате путешествия по США
Dennis777 вне форума Ответить с цитированием
Старый 16.03.2013, 21:24   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Цитата:
Для SpeedButtonов так не хочет прокатывать
Наверно руки кривые. Если SpeedButton.ParentFont=True, то изменение фонта в контейнере-родителе меняет фонт и у кнопки
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 16.03.2013, 21:38   #6
Dennis777
Форумчанин
 
Регистрация: 06.11.2009
Сообщений: 203
По умолчанию

Нет. У меня стоит какой-то баганный скин из Альфа контролс, и оно не меняет, если просто у формы изменить. Без скина пашет, а так не хочет. Вот я и спрашиваю, как можно по другому сделать, перебором?

как правильно записать:
sSpeedButton[i]?

Для абстрагирования от кривости автора, предположим, что на форме лежат лейблы, баттоны и спидбаттоны, а поменять нужно только спидбаттон.
Интересный проект по изучению английского:
Английский в формате путешествия по США
Dennis777 вне форума Ответить с цитированием
Старый 16.03.2013, 21:46   #7
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Цитата:
Без скина пашет, а так не хочет
У AC компонент своя отрисовка всего, и ноги растут у взятия настроек шрифта от скина, в справке соотв. опцию поищи, и выключи.

Последний раз редактировалось Человек_Борща; 16.03.2013 в 21:48.
Человек_Борща вне форума Ответить с цитированием
Старый 16.03.2013, 21:47   #8
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Для расположенных на форме
Код:
  for i:=0 to ControlCount-1 do
    if Controls[i] is TSpeedButton then TSpeedButton(Controls[i]).Font.Style:=[];
Для расположенных на панели
Код:
  for i:=0 to Panel1.ControlCount-1 do
    if Panel1.Controls[i] is TSpeedButton then TSpeedButton(Panel1.Controls[i]).Font.Style:=[];
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 16.03.2013, 21:52   #9
Dennis777
Форумчанин
 
Регистрация: 06.11.2009
Сообщений: 203
По умолчанию

Аватар, спасибо большое. Так работает!)

Просто у них есть скины, которые норм работают, а есть некоторые, вот типа Air, которые местами подлагивают. Особенно когда с имейджами работаешь, не перерисовывает нормально. Но менять поздно, уже весь проект почти готов, сейчас вот только надо шрифты подредактировать, а то при изменении разрешения экрана кривовато порой отображается
Интересный проект по изучению английского:
Английский в формате путешествия по США
Dennis777 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как вставить стиль шрифта через переменную Тоба Общие вопросы Delphi 5 07.04.2012 03:58
Изменить стиль меню в Delphi PAVILI0N Помощь студентам 4 08.03.2012 18:53
Изменение размеров шрифта палитры компонентов и инcпектора объектов Иллидан Общие вопросы Delphi 0 13.07.2011 20:20
Как изменить цвет текста всех компонентов на форме s2dentishe Помощь студентам 2 09.01.2010 17:29
Как изменить стиль формы SeRhy Общие вопросы Delphi 5 21.01.2008 17:40