anchor.diff:  
   
   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);
  +const
  +  RADIO_ECO_HEIGHT = 80;
  +begin
  +  Panel_ChartsEconomy := TKMPanel.Create(Panel_ResultsMP, 0, PANES_TOP, 1024, CHART_HEIGHT);
  +  Panel_ChartsEconomy.Anchors := [anLeft];
  +    Chart_MPCitizens := TKMChart.Create(Panel_ChartsEconomy, 62, 0, 900, CHART_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 := TKMChart.Create(Panel_ChartsEconomy, 62, 0, 900, CHART_HEIGHT);
       Chart_MPHouses.Caption := gResTexts[TX_GRAPH_HOUSES];
       Chart_MPHouses.LegendCaption := 'Players'; //Todo translate
       Chart_MPHouses.Anchors := [anLeft];
  +    Chart_MPHouses.Hide;
  +
  +    Panel_ChartEconomyType := TKMPanel.Create(Panel_ChartsEconomy, 817, CHART_HEIGHT - RADIO_ECO_HEIGHT - 20, 150, RADIO_ECO_HEIGHT);
  +      with TKMShape.Create(Panel_ChartEconomyType, 0, 0, 150, RADIO_ECO_HEIGHT) do
  +      begin
  +        FillColor := icDarkestGrayTrans;
  +        LineColor := icGray;
  +        LineWidth := 1;
  +      end;
  +
  +      TKMLabel.Create(Panel_ChartEconomyType, 5, 8, 140, 20, 'Chart type', fnt_Metal, taCenter); // Todo translate
  +
  +      Radio_ChartEconomyType := TKMRadioGroup.Create(Panel_ChartEconomyType,5,35,140,40,fnt_Grey);
  +      Radio_ChartEconomyType.DrawChkboxOutline := True;
  +      Radio_ChartEconomyType.ItemIndex := 0;
  +      Radio_ChartEconomyType.Add(gResTexts[TX_GRAPH_CITIZENS]);
  +      Radio_ChartEconomyType.Add(gResTexts[TX_GRAPH_HOUSES]);
  +      Radio_ChartEconomyType.OnChange := RadioEconomyTypeChange;
  +end;
  +
  +
  +procedure TKMMenuResultsMP.RadioEconomyTypeChange(Sender: TObject);
  +begin
  +  EconomyChange(nil);
   end;
   
   
  
positive.code:     WareChange(nil);
    if Sender = Button_MPResultsArmy then
      ArmyChange(nil);
  end;
  
  
  
negative.code: 
      TKMLabel.Create(Panel_ChartArmy_Type, 5, 8, 140, 20, 'Chart type', fnt_Metal, taCenter); // Todo translate
  
      Radio_ChartArmyType := TKMRadioGroup.Create(Panel_ChartArmy_Type,5,35,140,80,fnt_Grey);
      Radio_ChartArmyType.DrawChkboxOutline := True;
      Radio_ChartArmyType.ItemIndex := 0;
      Radio_ChartArmyType.Add('Instantaneous');   // Todo translate
      Radio_ChartArmyType.Add('Total equipped');  // Todo translate
      Radio_ChartArmyType.Add('Defeated');        // Todo translate
      Radio_ChartArmyType.Add('Lost');            // Todo translate
      Radio_ChartArmyType.OnChange := RadioArmyTypeChange;
  end;
  
  
  procedure TKMMenuResultsMP.RadioArmyTypeChange(Sender: TObject);
  begin
    ArmyChange(nil);
  end;
  