Текущий архив: 2008.07.13;
Скачать: CL | DM;

Вниз

Как изменить цвет выделения в ListBox , и цвет текста в выделен..   Найти похожие ветки 

← →
НаТаШа   (2008-06-16 05:39) [0]

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

---

← →
AlexanderMS ©   (2008-06-16 06:21) [1]

Поставить 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;

---

← →
AlexanderMS ©   (2008-06-16 06:35) [2]

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

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

---

← →
НаТаШа   (2008-06-16 06:39) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.07.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c