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: 
  procedure TfmMain.SetFloatBottom(AValue: boolean);
  begin
    if not Assigned(FFormFloatBottom) then
    begin
      FFormFloatBottom:= TForm.CreateNew(Self);
  
negative.code:   //UiOps.ScreenScale:= 200; ////test
    //UiOps_ScreenScale:= UiOps.ScreenScale;
  
    FBoundsFloatSide:= Rect(650, 50, 900, 700);
    FBoundsFloatBottom:= Rect(50, 480, 900, 700);
    FBoundsFloatGroups:= Rect(400, 100, 800, 750);
  
    ToolbarMain.ScalePercents:= UiOps.ScreenScale;
    ToolbarSideTop.ScalePercents:= UiOps.ScreenScale;
  