TRadioGroup цвет шрифта

[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;

 

[volod3000]

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