anchor.diff:  
   type
     TVCLFloatingForm = class(TForm)
  +  strict private
  +    FOnBackSpace: TProc;
     protected
  -    procedure ExitOnEscape(Sender: TObject; var Key: Word; Shift: TShiftState);
  +    procedure HandleKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     public
  +    constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); override;
       procedure UpdateMask;
  +    property OnBackSpace: TProc read FOnBackSpace write FOnBackSpace;
     end; { TVCLFloatingForm }
   
     IDLUIXVCLFloatingFrame = interface ['{43127F61-07EE-466F-BAB2-E39B811AFB2F}']
  
positive.code:     [Managed(false)] FActionMap: IBidiDictionary<TObject, IDLUIXAction>;
      [Managed(false)] FForm     : TVCLFloatingForm;
    var
      FEasing  : IEasing;
      FOnAction: TDLUIXFrameAction;
      FParent  : IDLUIXFrame;
    strict protected
      function  BuildButton(const action: IDLUIXAction): integer;
      function  BuildList(const listNavigation: IDLUIXListNavigationAction): integer;
      procedure ForwardAction(Sender: TObject);
      function  GetOnAction: TDLUIXFrameAction;
      procedure SetOnAction(const value: TDLUIXFrameAction);
    public
      constructor Create(const parentFrame: IDLUIXFrame);
  
negative.code:   Result := (FForm.ClientHeight = 0);
  end; { TDLUIXVCLFloatingFrame.IsEmpty }
  
  function TDLUIXVCLFloatingFrame.IsHistoryAnalyzer(const analyzer: IDLUIXAnalyzer):
    boolean;
  begin
    Result := TType.GetType((analyzer as TObject).ClassType).HasCustomAttribute<TBackNavigationAttribute>;
  end; { TDLUIXVCLFloatingFrame.IsHistoryAnalyzer }
  
  procedure TDLUIXVCLFloatingFrame.MarkActive(isActive: boolean);
  var
    newAlphaBlend: integer;
  