anchor.diff:  
   procedure TfmMain.SetFloatSide(AValue: boolean);
   begin
  +  if GetFloatSide=AValue then exit;
  +
     if not Assigned(FFormFloatSide) then
     begin
       FFormFloatSide:= TForm.CreateNew(Self);
  
positive.code: 
    PanelLeftTitle.Visible:= not AValue;
    FFormFloatSide.Visible:= AValue;
    FFormFloatSide.Caption:= FLastSidebarPanel;
  
    if AValue then
    begin
  
negative.code: 
  procedure TfmMain.SetFloatBottom(AValue: boolean);
  begin
    if GetFloatBottom=AValue then exit;
  
    if not Assigned(FFormFloatBottom) then
    begin
      FFormFloatBottom:= TForm.CreateNew(Self);
  