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