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

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

Как изменить цвет выделения в ListBox , и цвет текста в выделен.. [D7, XP]

НаТаШа ©   (2008-06-16 05:39:00) 

ПРИВЕТ НАРОД ! Подскажите как можно изменить цвет выделения в листбоксе , и цвет выделеной строки , ОЧЕНЬ НУЖНО ! Зарание большое Вам Спасибо !

---

НаТаШа   (2008-06-16 06:39:00) [1]

Всё СПАСИБО ! Разобралася !

---

AlexanderMS   (2008-06-16 06:35:00) [2]

> изменить цвет выделения в листбоксе , и цвет выделеной строки

не понял, что есть что, но поможет ещё Font.Color. :)

---

AlexanderMS   (2008-06-16 06:21:00) [3]

Поставить Style = lbOwnerDrawFixedи поставить обработчик события OnDrawItem, примерно такой:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with ListBox1.Canvas do
   begin
     if odSelected in State
       then Brush.Color := clGreen // цвет выделения - зелёный
       else Brush.Color := Listbox1.Color;

     FillRect(Rect);
     if Index >= 0
       then TextOut(Rect.Left + 2, Rect.Top, ListBox1.Items[Index]);
   end;
end;

---

Наверх