Изменить цвет строки в компоненте TlistView???

← →
Jenya (2005-12-16 22:49) [0]

Здравствуйте....
Столкнулся с проблемой в Delphi нужно в компоненте TlistView изменить цвет выделенной одной строки...
т.е. кнопка при нажатии на которой цвет строки менялся на другой.
Типа :
Tlistview1.Font.color:=clred;

Но это команда меняет цвет всех строк... у нужно только выделенной... а в свойстве Tlistview1.selected. там нет параметра изменяющего цвет.

Если кто знает помогите пожалуйста..
Заранее огромно спасибо.

← →
FrykT © (2005-12-17 04:39) [1]

Свойство OwnerDraw поставь в True. Далее тебя ждёт полностью ручная отрисовка на канве. У меня была необходимость такое делать в стиле Репорта. Обрабатывал OnAdvancedDrawItem. Если еще и Данные выводиться будут, то скорее всего событие OnAdvancedCustomDrawItem. Но в любом случае, через канвас придётся выводить.

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.Selected = True then
begin
Sender.Selected.Selected:=false; // Будет виден цвет
sender.Canvas.Font.Color := ClRed;
end;

end;

Изменить цвет строки в компоненте TlistView??? Найти похожие ветки