anchor.diff:            Label_ResultsPlayerName1, Label_ResultsPlayerName2: array [0 .. MAX_LOBBY_PLAYERS - 1] of TKMLabel;
             Bar_Results: array [0 .. MAX_LOBBY_PLAYERS - 1, 0 .. 9] of TKMPercentBar;
             Image_ResultsRosette: array [0 .. MAX_LOBBY_PLAYERS - 1, 0 .. 9] of TKMImage;
  -      Panel_ChartsMP: TKMPanel;
  +      Panel_ChartsEconomy: TKMPanel;
           Chart_MPCitizens: TKMChart;
           Chart_MPHouses: TKMChart;
  +        Panel_ChartEconomyType: TKMPanel;
  +          Radio_ChartEconomyType: TKMRadioGroup;
         Panel_ChartsWares: TKMPanel;
           Columnbox_Wares: TKMColumnBox;
           Chart_MPWares: array [TWareType] of TKMChart; //One for each kind
  
positive.code: 
  
  procedure TKMMenuResultsMP.CreateChartEconomy;
  begin
    Panel_ChartsMP := TKMPanel.Create(Panel_ResultsMP, 0, PANES_TOP, 1024, 560);
    Panel_ChartsMP.Anchors := [anLeft];
      Chart_MPCitizens := TKMChart.Create(Panel_ChartsMP, 62, 0, 900, CHART_ECO_HEIGHT);
      Chart_MPCitizens.Caption := gResTexts[TX_GRAPH_CITIZENS];
      Chart_MPCitizens.LegendCaption := 'Players'; //Todo translate
      Chart_MPCitizens.Anchors := [anLeft];
  
      Chart_MPHouses := TKMChart.Create(Panel_ChartsMP, 62, CHART_ECO_HEIGHT + 25, 900, CHART_ECO_HEIGHT);
      Chart_MPHouses.Caption := gResTexts[TX_GRAPH_HOUSES];
      Chart_MPHouses.LegendCaption := 'Players'; //Todo translate
      Chart_MPHouses.Anchors := [anLeft];
  end;
  
  
  
negative.code:   ChartArmy: PKMChartArmyMP;
  begin
    fNoArmyChartData := True;
    Radio_ChartArmyType.ItemIndex := 0;
    for CKind := Low(TKMChartArmyKind) to High(TKMChartArmyKind) do
    begin
      SetLength(fColumnBoxArmy_Rows[CKind], Integer(High(TKMChartWarriorType)) + 1); // Set max length for columnbox rows for all chart kinds
  