anchor.diff:    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 + ' >';
  +    if not IsHistoryAnalyzer(openAnalyzer.Analyzer) then
  +      button.Caption := action.Name + ' >'
  +    else begin
  +      button.Caption := '< ' + action.Name;
  +      FHistoryButton := button;
  +    end;
     end
     else
       button.Caption := action.Name;
  
positive.code:   Result := (FForm.ClientHeight = 0);
  end; { TDLUIXVCLFloatingFrame.IsEmpty }
  
  procedure TDLUIXVCLFloatingFrame.MarkActive(isActive: boolean);
  var
    newAlphaBlend: integer;
  
negative.code: 
  { TVCLFloatingForm }
  
  constructor TVCLFloatingForm.CreateNew(AOwner: TComponent; Dummy: Integer = 0);
  begin
    inherited;
    OnKeyDown := HandleKeyDown;
  end;
  
  procedure TVCLFloatingForm.HandleKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  begin
    if Key = VK_ESCAPE then
      Close
    else if Key = VK_BACK then
      if assigned(OnBackSpace) then
        OnBackSpace();
  end; { TVCLFloatingForm.HandleKeyDown }
  
  procedure TVCLFloatingForm.UpdateMask;
  var
  