anchor.diff:    var
       [Managed(false)] FActionMap: IBidiDictionary<TObject, IDLUIXAction>;
       [Managed(false)] FForm     : TVCLFloatingForm;
  +    [Managed(false)] FListMap  : IDictionary<TComponent, IDLUIXVCLListStorage>;
     var
       FColumnTop     : integer;
       FColumnLeft    : integer;
  
positive.code:   end; { TVCLFloatingForm }
  
    IDLUIXVCLFloatingFrame = interface ['{43127F61-07EE-466F-BAB2-E39B811AFB2F}']
      function GetBounds_Screen(const action: IDLUIXAction): TRect;
    end; { IDLUIXVCLFloatingFrame }
  
    TDLUIXVCLFloatingFrame = class(TManagedInterfacedObject, IDLUIXFrame,
                                                             IDLUIXVCLFloatingFrame)
  
negative.code:   listBox.Height := CFilteredListHeight;
    listBox.Left := FColumnLeft;
    listBox.Top := searchBox.BoundsRect.Bottom + CSearchToListBoxSeparator;
    listBox.Style := lbVirtual;
    listBox.OnClick := HandleListBoxClick;
    listBox.OnKeyDown := HandleListBoxKeyDown;
    listBox.OnData := HandleListBoxData;
    listBox.OnDataFind := HandleListBoxDataFind;
    ApplyOptions(listBox, options);
  
    searchTimer := TTimer.Create(FForm);
  