Как изменить цвет выделения в 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]

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

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