Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > отдельный шрифт для RadioGroup

Автор: Rodman 16.10.2007, 14:39

Дароф.

в RadioGroup есть 10 записей.
Возможно ли надпись возле каждой из радиокнопок чередовать: жирный или не жирный.

т.е. типа

* 1
* 2
* 3
* 4
* 5
* 6
* 7
* 8
* 9
* 10

Сенкс

Автор: Anark1 16.10.2007, 14:55

Как мне кажется, нет. Это можно было бы реализовать при помощи тэгов. Но их поддержка в данном компоненте не реализована.

Автор: Alexeis 16.10.2007, 14:56

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  For i := 0 to RadioGroup1.ComponentCount - 1
  do
    if (Odd(i))
    then
      (RadioGroup1.Components[i] as TRadioButton).Font.Style :=
             (RadioGroup1.Components[i] as TRadioButton).Font.Style + [fsBold];
end;

Автор: Rodman 16.10.2007, 15:02

в точку!

Сенкс!