anchor.diff:  begin
     inherited;
     UpdateMouseOverPosition(X, Y);
  -  UpdateItemIndex(Shift);
  +  UpdateItemIndex(Shift, fOnChangeInvoked);
     //Lets do DoClick here instead of MouseUp event handler, because of some TKMColumnBox specific logic
     if (csDown in State) then
     begin
  
positive.code: 
      //Send Click events
      DoClick(X, Y, Shift, Button);
    end;
  end;
  
  
  procedure TKMColumnBox.MouseMove(X,Y: Integer; Shift: TShiftState);
  begin
    inherited;
    UpdateMouseOverPosition(X, Y);
    UpdateItemIndex(Shift);
  end;
  
  
  
negative.code:     fOnChange: TNotifyEvent;
      fOnCellClick: TPointEventFunc;
      fOnCellClickShift: TPointEventShiftFunc;
      fOnChangeInvoked: Boolean;
      function GetTopIndex: Integer;
      procedure SetTopIndex(aIndex: Integer);
      procedure SetBackAlpha(aValue: single);
  