Как поменять цвет курсора в ListView

[flug]

Здравствуйте!
Может кто знает как можно поменять цвет курсора в ListView.
Кроме как сделать так как приведено ниже в коде, мыслей пока больше нет.

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if Item.Focused=true then
     begin
      item.Selected:=false;
      Sender.Canvas.Brush.Color := clTeal;
     end;
end;

но при таком раскладе item.Selected всегда будет false, а это совсем плохо, и плюс наверно из-за этого не срабатывает редактирование item'а по клику.
Подскажите может есть другой способ.

[3D Hunter]

Копай свойство TCustomDrawState. В нем есть параметр odSelected или типа того. Код примерно такой:

if odSelected in State then Sender.Canvas.Brush.Color := clTeal;

[flug]

3D Hunter
Спасибо за наводку это то, что надо.
Только я обрадовался как начались проблемы, если в событии OnDrawItem всё прекрасно работает,

procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
if odSelected in State then
  begin
    ListView1.Canvas.Brush.Color := clTeal;
    ListView1.Canvas.FillRect(Rect);
  end;
  Sender.Canvas.Font.Color := clwhite;
  Sender.Canvas.TextOut( Rect.Left + 3, Rect.Top, ListView1.Items
end;

то в событии OnCustomDrawItem например вот так работать не хочет

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);

begin
 if odSelected in State then Sender.Canvas.Brush.Color := clTeal;
end;

ругается и пишет Incompatible types, не понимаю в чём проблема.

Ещё не могу понять как OnDrawItem отрисовать subitems, так как они сливаются с фоном.

p.s.
Народ, выручайте ведь и другим пригодится, ведь про ручную отрисовку ListView так мало информации.