[volod3000]

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

Пробую изменить цвет или строки , или шрифта , так :

PHP код:

TRadioButton(RadioGroup1.Controls[RadioGroup1.ItemIndex]).Color :=
 RGB(Random(255), Random(255), Random(255)); 


PHP код:

TRadioButton(RadioGroup1.Controls[1]).Color := RGB(179,52,208); 


PHP код:

(sRadioGroup1.Controls[1] as TRadioButton).Font.Color:= RGB(179,52,208); 


Но эффекта ноль, почему, подскажите ?

[PhoeniX]

RadioGroup1.Repaint вызывать не пробовал?

[volod3000]

Сообщение от DJ PhoeniX

RadioGroup1.Repaint вызывать не пробовал?

Пробовал, пишу так :

PHP код:

SetLength(pfiles, 14);        
for t := 0 to High(pfiles) do
  begin
    pfiles[t] := 'Привет , это № '+ IntToStr(t+1) ;
  
  end;
       RadioGroup1.Items.Clear;
for i := 0 to High(pfiles) do  begin

    RadioGroup1.Items.Add(pfiles[i]);
   

  end;
    (RadioGroup1.Controls[0] as TRadioButton).Font.Color:= RGB(179,52,208);
     RadioGroup1.Repaint; 


Эффекта нет.

[volod3000]

Это выражение работает :

PHP код:

(RadioGroup1.Controls[1] as TRadioButton).Font.Size:= 13;
    (RadioGroup1.Controls[1] as TRadioButton).Font.Style := [fsBold]; 


А , вот это нет:

PHP код:

(RadioGroup1.Controls[1] as TRadioButton).Font.Color := clRed; 


Почему, что не так ?

[lmikle]

Попробуй убрать манифест. Думаю дело в том, что тут тема перекрывает отрисовку. Хотя фиг его знает...

[volod3000]

Сообщение от lmikle

Попробуй убрать манифест. Думаю дело в том, что тут тема перекрывает отрисовку. Хотя фиг его знает...

Да, Вы ,видимо правы, наверно только так:

PHP код:

procedure Paint;override;