anchor.diff:  
   procedure TfmMain.SetFloatGroups(AValue: boolean);
   begin
  -  InitFloatGroups;
  -  FFormFloatGroups.Visible:= AValue;
  +  if GetFloatGroups<>AValue then
  +  begin
  +    InitFloatGroups;
  +    FFormFloatGroups.Visible:= AValue;
  +  end;
   end;
   
   
  
positive.code:     GroupsFl.Mode:= gmOne;
  
      //GroupsFl.OnTabFocus:= @DoOnTabFocus; //error
      GroupsFl.OnTabAdd:= @DoOnTabAdd; //gives error
      GroupsFl.OnTabClose:= @DoOnTabClose;
      GroupsFl.OnTabMove:= @DoOnTabMove;
      GroupsFl.OnTabPopup:= @DoOnTabPopup;
  
negative.code: 
      DoApplyThemeToGroups(GroupsFl);
      DoApplyUiOpsToGroups(GroupsFl);
    end;
  end;
  
  