anchor.diff:    end; //for namedLocation
   
     if assigned(button) then
  -    Result := button.BoundsRect.Bottom;
  +    Result.BottomRight := button.BoundsRect.BottomRight
  +  else
  +    Result := TRect.Empty;
   end; { TDLUIXVCLFloatingFrame.BuildList }
   
   procedure TDLUIXVCLFloatingFrame.Close;
  
positive.code: uses
    Winapi.Windows,
    System.Types, System.RTTI, System.SysUtils, System.Classes, System.Math,
    Vcl.StdCtrls, Vcl.Controls, Vcl.Forms,
    Spring, Spring.Collections, Spring.Reflection,
    GpStuff, GpEasing,
    DelphiLensUI.UIXAnalyzer.Intf, DelphiLensUI.UIXAnalyzer.Attributes,
  
negative.code:   TDLUIXVCLFloatingFrame = class(TManagedInterfacedObject, IDLUIXFrame,
                                                             IDLUIXVCLFloatingFrame)
    strict private const
      CAlphaBlendActive         = 255;
      CAlphaBlendInactive       =  64;
      CButtonHeight             =  81;
      CButtonSpacing            =  15;
      CButtonWidth              = 201;
      CColumnSpacing            =  15;
      CFilteredListWidth        = 201;
      CFilteredListHeight       = 313;
      CFrameSpacing             =  21;
      CInactiveFrameOverlap     =  21;
      CListButtonHeight         =  25;
      CListButtonSpacing        =   3;
      CListButtonWidth          = 254;
      CSearchBoxHeight          =  21;
      CSearchToListBoxSeparator =   1;
    var
      [Managed(false)] FActionMap: IBidiDictionary<TObject, IDLUIXAction>;
      [Managed(false)] FForm     : TVCLFloatingForm;
    var
      FColumnTop     : integer;
      FColumnLeft    : integer;
      FEasing        : IEasing;
      FEasingPos     : IEasing;
      FForceNewColumn: boolean;
      FHistoryButton : TButton;
      FOnAction      : TDLUIXFrameAction;
      FOriginalLeft  : Nullable<integer>;
      FParent        : IDLUIXFrame;
      FTargetLeft    : Nullable<integer>;
    strict protected
      function  BuildButton(const action: IDLUIXAction): TRect;
      function  BuildFilteredList(const filteredList: IDLUIXFilteredListAction): TRect;
      function  BuildList(const listNavigation: IDLUIXListNavigationAction): TRect;
      procedure EaseAlphaBlend(start, stop: integer);
      procedure EaseLeft(start, stop: integer);
      procedure ForwardAction(Sender: TObject);
  