anchor.diff:      procedure RadioEconomyTypeChange(Sender: TObject);
       procedure RadioWareTypeChange(Sender: TObject);
       procedure RadioArmyTypeChange(Sender: TObject);
  +
  +    function GetChartLegendDetailedTitles(aStatType: TKMStatType; aLineI: Integer): TStringArray;
  +    function GetChartLegendDetailedColors(aStatType: TKMStatType; aLineI: Integer): TKMCardinalArray;
   
       procedure Reinit;
       procedure ReinitPlayersToShow;
  
positive.code:   procedure AddToNewTeam(aFirstHandId: Integer; aPlayersList: TStringList);
    var
      PlayersList: TStringList;
    begin
      PlayersList := TStringList.Create;
      PlayersList.AddStrings(aPlayersList);
      fListToShow[st_ByTeams].AddObject(IntToStr(aFirstHandId), PlayersList);
      fNamesToShow[st_ByTeams, fListToShow[st_ByTeams].Count - 1] := gResTexts[TX_LOBBY_HEADER_TEAM] + ' ' + IntToStr(fListToShow[st_ByTeams].Count);
      fColorsToShow[st_ByTeams, fListToShow[st_ByTeams].Count - 1] := gHands[aFirstHandId].FlagColor;
    end;
  
    procedure AddToTeam(aTeamI: Integer; aPlayersList: TStringList);
    var
      PlayersList: TStringList;
    begin
      PlayersList := TStringList(fListToShow[st_ByTeams].Objects[aTeamI]);
      PlayersList.AddStrings(aPlayersList);
    end;
  
  var
  
negative.code: 
        if HandId in Teams[J] then
        begin
          DoShowTeam := True; //Team could be hidden in case we show stats during the game
          if TeamIsNew then
          begin
            TeamIsNew := False;
            AddToNewTeam(HandId, PlayersList);
          end else
            AddToTeam(HandId, TeamI, PlayersList);
        end;
      end;
  
      if not TeamIsNew then //check if there was empty teams
        Inc(TeamI);
  
      if DoShowTeam and (J <> Low(Teams)) then
        fChartSeparatorsPos[st_ByTeams].Add(IntToStr(J));
    end;
  
    //Remove detailed chart legend, if we have only 1 player in the team
    for I := 0 to fListToShow[st_ByTeams].Count - 1 do
    begin
      if fTeamMembersCounts[I] = 1 then
      begin
        fTeamMembersCounts[I] := 0;
        fNamesToShow[st_ByTeams, I] := fTeamMembersNames[I, 0];
      end;
    end;
  
    if fListToShow[st_ByTeams].Count <= 1 then
      fChartSeparatorsPos[st_ByTeams].Clear; //In case we have only 1 team to show (f.e. when stats are shown during the game)
  end;
  