Как обвести выделенный объект в TListView?

← →
creage (2005-02-01 19:26) [0]

Понимаю, что вопрос типа ламерских, но кто подскажет, как мне "корректно" обвести, т.е нарисовать квадратную рамку вокруг выделенного (Item.Selected) объекта в ListView? Нужно это для того, чтобы было видно что выделенный объект действительно выделен, а то я по итему кликну - он маркед, а кликну где-то в другом месте формы - он уже не маркед :(! А мне нужно всегда видеть, который из итемов селектед! Искал пути выделения Item.Selected - ничего не нашел(наверное плохо искал). Подскажите, как мне решить эту проблему!

← →
GrayFace © (2005-02-01 19:40) [1]

А они ведь на темном фоне рисуются. Чем тебя это не устраимает?

← →
creage (2005-02-01 20:09) [2]

В смысле? На каком еще темном фоне? У меня все рисуется на белом, если кликнуть иконку - она становится синей(маркед). Как только кликну где-то на другом месте формы - опять обычная иконка(не маркед)! Мне нужно, чтобы при любых действиях я зрительно видел, какой элементу меня сейчас текущий! Как это сделать?

← →
GrayFace © (2005-02-01 20:53) [3]

Спутал с ListBox.

Ну как-то так:
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); begin if Item.Selected and not (cdsSelected in State) then with ListView1.Canvas do begin Pen.Color:=clHighlight; Brush.Style:=bsClear; Rectangle(Item.DisplayRect(drLabel)); end; end;

HideSelection := False;

Как обвести выделенный объект в TListView? Найти похожие ветки