anchor.diff:    
   end;
   
  -
   procedure TfpgListView.HandlePaint;
   var
    ClipRect: TfpgRect;
   begin
  -  if FUpdateCount > 0 then
  -    Exit;
  -
  -  Canvas.BeginDraw;
  -
     UpdateScrollBarPositions;
  -
     fpgStyle.DrawControlFrame(Canvas, 0, 0, Width, Height);
     
  -  ClipRect.Top := 2;
  -  ClipRect.Left := 2;
  -  ClipRect.Width := Width -4;
  +  ClipRect.Top    := 2;
  +  ClipRect.Left   := 2;
  +  ClipRect.Width  := Width -4;
     ClipRect.Height := Height -4;
     
     if ShowHeaders then
  
positive.code:     Dec(ClipRect.Height, FhScrollBar.Height);
      
    Canvas.SetClipRect(ClipRect);
    
    PaintItems;
    
    Canvas.EndDraw;
  end;
  
  procedure TfpgListView.HandleResize(awidth, aheight: TfpgCoord);
  begin
    inherited HandleResize(awidth, aheight);
  
    UpdateScrollBarPositions;
  end;
  
  
negative.code:   if bVisible and tVisible then
      Exit;
    
    if (iBottom >= FVScrollBar.Position + GetItemAreaHeight) then
      FVScrollBar.Position := iBottom - GetItemAreaHeight
    else
      FVScrollBar.Position := iTop;
  