Может кто сталкивался со следующей проблемой:

Есть компонент TTreeView с количеством items, достаточным, чтобы
появились горизонтальный и вертикальный скроллбары.
Отрисовка происходит в событии OnCustomDrawItem.

Так вот, если начинаю скроллить по вертикали — все нормально, по
горизонтали — появляется рябь. Есть ли ли способ решить проблему, не
переходя на VirtualTreeView?

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var DC : HDC;
    R : TRect;
begin
   DefaultDraw := false;

   DC := GetDC(TreeView1.Handle);

   R := Node.DisplayRect(false);
   MoveToEx(DC, R.Left, R.Top, nil);
   LineTo(DC, R.Right, R.Bottom);

   ReleaseDC(TreeView1.Handle, DC);
end;