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.MarkActive }
  
  procedure TDLUIXVCLFloatingFrame.SetOnAction(const value: TDLUIXFrameAction);
  begin
    FOnAction := value;
  
negative.code: uses
    Winapi.Windows,
    System.Types, System.RTTI, System.SysUtils, System.Classes, System.Math,
    Vcl.StdCtrls, Vcl.Controls, Vcl.Forms, Vcl.WinXCtrls,
    Spring, Spring.Collections, Spring.Reflection,
    GpStuff, GpEasing,
    DelphiLensUI.UIXAnalyzer.Intf, DelphiLensUI.UIXAnalyzer.Attributes,
  