anchor.diff:      DefaultPanel: string;
       FormFloat: TForm;
       OnChange: TNotifyEvent;
  +    OnHide: TNotifyEvent;
       constructor Create;
       destructor Destroy; override;
       property Floating: boolean read GetFloating;
  
positive.code:         alLeft:
            Splitter.Left:= ParentPanel.Width;
          alBottom:
            Splitter.Top:= ParentPanel.Parent.Height-ParentPanel.Height;
          alRight:
            Splitter.Left:= ParentPanel.Parent.Width-ParentPanel.Width;
          else
            begin end;
        end;
  
negative.code:       if Assigned(OnChange) then
          OnChange(nil);
      end;
    end
    else
    if Assigned(OnHide) then
      OnHide(nil);
  
    UpdateButtons;
  end;
  