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