anchor.diff:  begin
     if ColCount = 0 then
       Exit;
  +   OnPreparePopupMenu := PreparePopupMenu;
     case Button of
       mbRight:
         if (SelectionType <> stNone) and Assigned(FOnPreparePopupMenu) and
  
positive.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;
          FOnPreparePopupMenu(Self, LSelection, LPopup);
  
negative.code: 
  implementation
  
  uses Variants, UAutoScope, Dialogs, UUserInterface;
  
  resourcestring
    sTotal = 'Total: %d';
  