anchor.diff:    if NewMouseCursor <> MouseCursor then
       MouseCursor := NewMouseCursor;
   
  +end;
  +
  +procedure TfpgListView.MsgPaint(var msg: TfpgMessageRec);
  +begin
  +  // Optimises painting and prevents Begin[End]Draw and OnPaint event firing
  +  // in not needed.
  +  if FUpdateCount = 0 then
  +    inherited MsgPaint(msg);
   end;
   
   procedure TfpgListView.HandleMouseScroll(x, y: integer;
  
positive.code:     procedure   DoColumnClick(Column: TfpgLVColumn; Button: Integer);
      procedure   HandleHeaderMouseMove(x, y: Integer; btnstate: word; Shiftstate: TShiftState);
    protected
      procedure   HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleRMouseDown(x, y: integer; shiftstate: TShiftState); override;
  
negative.code:     Dec(ClipRect.Height, FhScrollBar.Height);
      
    Canvas.SetClipRect(ClipRect);
    PaintItems;
  end;
  
  procedure TfpgListView.HandleResize(awidth, aheight: TfpgCoord);
  begin
    inherited HandleResize(awidth, aheight);
    UpdateScrollBarPositions;
  end;
  
  