[HTTqp]

Всем привет. У меня 2 вопроса по курсору listview:



1 вопрос:Я делаю 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 := clWindow;
     end;
end;

но мне надо чтобы контур был не пунктирной обводкой(на картике это цифра 1) а сплошной черной линией, как это сделать?


2 вопрос:
Как убрать курсор на рисунке он под цифрой 2, он появляется когда ты еще не выбрал строку а лишь водишь по строкам, как от его убрать?