|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
TRadioGroup цвет шрифта
Здравствуйте.
У меня Delphi XE. В ScrollBox создаю RadioGroup . Пробую менять цвет шрифта Код:
TRadioGroup(RG1.Components[zz]).Font.color := RGB(255,255,255); или так : Код:
TRadioButton(RG1.Components[zz]).ParentFont := false; TRadioButton(RG1.Components[zz]).Font.Color := RGB(255,255,255); или так, при создании RadioGroup : Код:
RG1.Font.Name:='Tahoma'; RG1.Font.Size:=8; RG1.Font.Color := RGB(255,255,255); RG1.Font.Style:=[fsbold]; и ни чего не происходит . Решил унаследовать цвет шрифта от родителя и изменить шрифт , как это правильно сделать. Код:
type TRadioGroup = class(ExtCtrls.TRadioGroup) protected procedure Paint;override; end; procedure TRadioGroup.Paint; begin что сюда писать end; |
#2
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin for I:= 0 to RadioGroup1.Items.Count - 1 do (RadioGroup1.Controls[i] as TRadioButton).Font.Color:= clWhite; end; |
#3
|
||||
|
||||
Не изменишь ты шрифт у радиокнопки, можно только если манифест отключить.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#4
|
||||
|
||||
Забавная проблемка и не менее интересны результаты:
Данный вариант работает правильно только в D7. В D2007,D2009 задается только размер шрифта, а цвет не хочет меняться. В D2010 это уже не просто не работает, а порождает эксепшин. (Возможно тут уже Win7x64 свою лепту привнес) Вот такие странные результаты, но вот что интересно, исполняемый файл созданный в D7 без проблем запускается и правильно отрабатывается везде. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
Я ж сказал - это из-за манифеста. Сталкивался с уже этой проблемой. Так что тут вопросы мелкомягким.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#6
|
||||
|
||||
Всё, разобрался.
Всему виной AlphaControls, при подключении TsSkinManage он , почему-то, становится наследником шрифта (конкретно цвета) для TRadioGroup. И, при смене компонента на TLMDRadioGroup (пакета LMD) , всё работает как надо. Странная ситуация , но факт есть факт. Спасибо ! |