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:   button.Top := FForm.ClientHeight + IFF(FForm.ClientHeight = 0, 0, CButtonSpacing);
  
    if Supports(action, IDLUIXOpenAnalyzerAction, openAnalyzer) then begin
      isBack := TType.GetType((openAnalyzer.Analyzer as TObject).ClassType).HasCustomAttribute<TBackNavigationAttribute>;
      if isBack then
        button.Caption := '< ' + action.Name
      else
        button.Caption := action.Name + ' >';
    end
    else
      button.Caption := action.Name;
  
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;
  