anchor.diff:  begin
     if ColCount = 0 then
       Exit;
  -   OnPreparePopupMenu := PreparePopupMenu;
     case Button of
       mbRight:
         if (SelectionType <> stNone) and Assigned(FOnPreparePopupMenu) and
  
positive.code:     function GetSelectedRows : TArray<Variant>;
      procedure ControlsEnable(AEnable: boolean);
      function GetCanvas: TCanvas;
      procedure PreparePopupMenu(Sender: TObject; constref ASelection: TVisualGridSelection; out APopupMenu: TPopupMenu);
      procedure SetCells(ACol, ARow: Integer; AValue: Variant);
      procedure SetFetchDataInThread(AValue: boolean);
      procedure SetSortMode(AValue: TSortMode);
  
negative.code:         Dec(LRow);
          LSelection := Selection;
          for i := 0 to High(LSelection.Selections) do
            if not LContains then
            begin
              with LSelection.Selections[i] do
                LContains := (LCol >= Left) and (LRow >= Top) and (LCol <= Right) and (LRow <= Bottom);
              Break;
            end;
  
          if not LContains then
            Exit;
  