[volod3000]

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

У меня 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;

[AlexSku]

Код:

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) , всё работает как надо.
Странная ситуация , но факт есть факт.

Спасибо !