Как изменить выделение строки в ListView?

← →
Chaser © (2006-02-20 10:46) [0]

Как изменить цвет выделения (фокуса) строки в ListView (по умолчанию он синего цвета)?
Как изменить цвет текста в определенной строке ListView?

← →
ЮЮ © (2006-02-20 11:00) [1]

ListView.Style = lbOwnerDraw... и в OnDrawItem рисуй, как вздумается

← →
API (2006-02-20 13:04) [2]

Как изменить цвет выделения (фокуса) строки в ListView (по умолчанию он синего цвета)?

Правой кнопкой мыши на рабочем столе... меню "Свойства" - закладка "Оформление" - кнопка "Дополнительно" - список "Элемент": "Выделенный пункт меню" - "Цвет 1": (выбирайте)

← →
Chaser © (2006-02-20 13:08) [3]

> API (20.02.06 13:04) [2]
>
> Как изменить цвет выделения (фокуса) строки в ListView (по
> умолчанию он синего цвета)?
>
> Правой кнопкой мыши на рабочем столе... меню "Свойства"
> - закладка "Оформление" - кнопка "Дополнительно" - список
> "Элемент": "Выделенный пункт меню" - "Цвет 1": (выбирайте)

Так мне надо в моей программе, а не в системе, так я и сам могу.

← →
Chaser © (2006-02-20 13:11) [4]

А как в OnDrawItem рисовать-то, пример есть?

← →
Demona (2006-02-20 22:41) [5]

Например так:
procedure TForm1.List1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with PlayList1.Canvas do begin //bg if State=[odSelected, odFocused] then Brush.Color:=$00C62200 else Brush.Color:=clBlack; FillRect(Rect); if index=TestList1[0].chan_stat[1] (*plaing song index*) then begin Font.Color:=$00FFFFFF; Font.Style:=Font.Style; TextOut(Rect.TopLeft.X,Rect.TopLeft.Y, PlayList1.Items[index]); end else begin Font.Color:=$0000DD87; Font.Style:=Font.Style; TextOut(Rect.TopLeft.X,Rect.TopLeft.Y, PlayList1.Items[index]); end; end; end;

Учти, что на некоторых цветовых схемах выделения вообще видно не будет.

Как изменить выделение строки в ListView? Найти похожие ветки