anchor.diff:    FForm.ShowModal;
   end; { TDLUIXVCLFloatingFrame.Show }
   
  +procedure TDLUIXVCLFloatingFrame.UpdateClientSize(const rect: TRect);
  +begin
  +  FForm.ClientWidth  := Max(FForm.ClientWidth,  rect.Right);
  +  FForm.ClientHeight := Max(FForm.ClientHeight, rect.Bottom);
  +  FColumnTop := Max(FColumnTop, rect.Bottom);
  +end; { TDLUIXVCLFloatingFrame.UpdateClientSize }
  +
   { TDLUIXVCLFloatingEngine }
   
   constructor TDLUIXVCLFloatingEngine.Create;
  
positive.code:   FParent := parentFrame;
    FForm := TVCLFloatingForm.CreateNew(Application);
    FForm.BorderStyle := bsNone;
    FForm.ClientWidth := CButtonWidth;
    FForm.ClientHeight := 0;
    FForm.AlphaBlend := true;
    FForm.KeyPreview := true;
  
negative.code:   button.Parent := FForm;
    button.Width := CButtonWidth;
    button.Height := CButtonHeight;
    button.Left := FColumnLeft;
    button.Top := FColumnTop + IFF(FColumnTop = 0, 0, CButtonSpacing);
  
    if Supports(action, IDLUIXOpenAnalyzerAction, openAnalyzer) then begin
      if not IsHistoryAnalyzer(openAnalyzer.Analyzer) then
  