[Stalker2-42]

Сообщение от Страдалецъ

Так попробуй:

Попробовал, но через таймер, примерно 300 мс.

Код:

procedure ABC(uTimerID, uMsg, dwUser, dw1, dw2 : Integer); stdcall;
Const
  HotArea = 10;
begin
  if P.Y in[LVRect.Bottom - HotArea..LVRect.Bottom] then
    SendMessage(LV, WM_VSCROLL, SB_LINEDOWN, 0);
  if P.Y in [{0..HotArea}24..50] then
    SendMessage(LV, WM_VSCROLL, SB_LINEUP, 0);
  ListView_RedrawItems(LV, indexlv - 5, IndexLV + 5); // без этого остаются следы
  UpdateWindow(lv);  //
end;

IndexLV -- возвращает номер item над которым мышка.
IndexLV := ListView_HitTest()

И во время движения содержимого ListView исчезает изображение переносимого итема, что с redraw, что без него.

Как можно исправить?