anchor.diff:      procedure   DoColumnClick(Column: TfpgLVColumn; Button: Integer);
       procedure   HandleHeaderMouseMove(x, y: Integer; btnstate: word; Shiftstate: TShiftState);
     protected
  +    procedure   MsgPaint(var msg: TfpgMessageRec); message FPGM_PAINT;
       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;
  
positive.code:   if bVisible and tVisible then
      Exit;
    
    if  (iBottom >= FVScrollBar.Position + GetItemAreaHeight) then
      FVScrollBar.Position := iBottom - GetItemAreaHeight
    else
      FVScrollBar.Position := iTop;
  
negative.code: 
  { TfpgLVItems }
  
  function Min(AInt, BInt: Integer): Integer;
  begin
    if AInt < Bint then
      Result := AInt
  