anchor.diff:    FParent := parentFrame;
     FForm := TVCLFloatingForm.CreateNew(Application);
     FForm.BorderStyle := bsNone;
  -  FForm.ClientWidth := CButtonWidth;
  +  FForm.ClientWidth := 0;
     FForm.ClientHeight := 0;
     FForm.AlphaBlend := true;
     FForm.KeyPreview := true;
  
positive.code:     end;
  end; { TDLUIXVCLFloatingFrame.Create }
  
  function TDLUIXVCLFloatingFrame.BuildButton(const action: IDLUIXAction): integer;
  var
    button      : TButton;
    openAnalyzer: IDLUIXOpenAnalyzerAction;
  
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);
  