[volod3000]

Здравствуйте.

У меня Delphi XE.

В ScrollBox создаю RadioGroup .

Пробую менять цвет шрифта

Код:

1	TRadioGroup(RG1.Components[zz]).Font.color := RGB(255,255,255);

или так :

Код:

1 2	TRadioButton(RG1.Components[zz]).ParentFont := false; TRadioButton(RG1.Components[zz]).Font.Color := RGB(255,255,255);

или так, при создании RadioGroup :

Код:

1 2 3 4

RG1.Font.Name:='Tahoma'; RG1.Font.Size:=8; RG1.Font.Color := RGB(255,255,255); RG1.Font.Style:=[fsbold];

и ни чего не происходит .

Решил унаследовать цвет шрифта от родителя и изменить шрифт , как это правильно сделать.

Код:

1 2 3 4 5 6 7 8 9 10

type TRadioGroup = class(ExtCtrls.TRadioGroup)   protected     procedure Paint;override; end;   procedure TRadioGroup.Paint; begin    что сюда писать end;

[AlexSku]

Код:

1 2 3 4 5 6

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;

[Aristarh Dark]

Не изменишь ты шрифт у радиокнопки, можно только если манифест отключить.

[Страдалецъ]

Забавная проблемка и не менее интересны результаты:
Данный вариант работает правильно только в D7.
В D2007,D2009 задается только размер шрифта, а цвет не хочет меняться.
В D2010 это уже не просто не работает, а порождает эксепшин. (Возможно тут уже Win7x64 свою лепту привнес)
Вот такие странные результаты, но вот что интересно, исполняемый файл созданный в D7 без проблем запускается и правильно отрабатывается везде.

[Aristarh Dark]

Я ж сказал - это из-за манифеста. Сталкивался с уже этой проблемой. Так что тут вопросы мелкомягким.

[volod3000]

Всё, разобрался.
Всему виной AlphaControls, при подключении TsSkinManage он , почему-то, становится наследником шрифта (конкретно цвета) для TRadioGroup.
И, при смене компонента на TLMDRadioGroup (пакета LMD) , всё работает как надо.
Странная ситуация , но факт есть факт.

Спасибо !