| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TRadioGroup: раскрасить item ы [D5, Win2k]

Страницы:   < 1 2 >

Alx2 ©   (2002-05-14 14:30:00) 

Ребята, научите красить итемы в TRadioGroup.
У меня на форме этих RadioGroupов целая куча и количество итемов в каждом тоже немаленькое. Хотелось бы у выбранного итема не просто точку проставлять, а всю строчку покрасить, чтобы заметнее его сделать. Новый компонент лепить - не хочу :(
Может решение где-то рядом?

---

Anatoly Podgoretsky   (2002-05-14 15:15:00) [21]

Johnmen © (14.05.02 15:02)
Не трогай генофонд :-)

---

Игорь Шевченко   (2002-05-14 15:09:00) [22]

Исходники править - это сакс и мастдай :-)

Лучше использовать другой компонент, нету у стандартного RadioGroup свойств для изменения атрибутов выделенного item"а

С уважением,

---

Johnmen   (2002-05-14 15:02:00) [23]

Конечно ! Поправить несложно, сложнее - найти, где поправить...

---

Alx2   (2002-05-14 14:58:00) [24]

Предлагаешь исходники поправить?

---

Johnmen   (2002-05-14 14:51:00) [25]

Аналогичную задачу когда-то решал - ковырял исходники в части отрисовки переключаемых радиобутонов....Все получалось, как надо...

---

Alx2   (2002-05-14 14:38:00) [26]

Вот это не спасает:

Procedure TLogoAppForm.RadioGroup4Click(Sender: TObject);
Var K: Integer;
RG: TRadioGroup;
RB: TRadioButton;
Begin
If Sender Is TRadioGroup Then
Begin
RG := Sender As TRadioGroup;
For K := 0 To RG.ControlCount - 1 Do
If RG.Controls[K] Is TRadioButton Then
Begin
RB := RG.Controls[K] As TRadioButton;
If RB.checked Then
RB.COLOR := clLime
Else
RB.COLOR := clBtnFace
End;
End;
End;

Так как надо чтобы он сам при изменении статуса красился.

---

Страницы:   < 1 2 >

Наверх