anchor.diff:  
   {$MODE DELPHI}
   
  +{$modeswitch nestedprocvars}
  +
   {.$DEFINE VISUALGRID_DEBUG}
   
   interface
   
   uses
     Classes, SysUtils, StdCtrls, ExtCtrls, Controls, Grids, Types, Graphics,
  -  UCommon, UCommon.Data, UCommon.Collections, Generics.Collections, Generics.Defaults, Menus, ComboEx, Buttons, Math,
  +  UCommon, UCommon.Data, UAccounts, UWallet, UCommon.Collections, Generics.Collections, Generics.Defaults, Menus, ComboEx, Buttons, Math,
     LResources, syncobjs;
   
   const
  
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';
  