anchor.diff:    Chart_MPCitizens.Visible := Sender = Button_MPResultsEconomy;
     Chart_MPHouses.Visible   := Sender = Button_MPResultsEconomy;
   
  -  for I := 0 to MAX_PLAYERS - 1 do
  -    Chart_MPWares[I].Visible := (Sender = Button_MPResultsWares) and (Radio_MPResultsWarePlayer.ItemIndex = I);
  -
  -  Radio_MPResultsWarePlayer.Visible := Sender = Button_MPResultsWares;
  +  for I := WARE_MIN to WARE_MAX do
  +    Chart_MPWares[I].Visible := (Sender = Button_MPResultsWares) and (Radio_Wares.ItemIndex = Byte(I));
  +
  +  Radio_Wares.Visible := Sender = Button_MPResultsWares;
     //Image_MPResultsBackplate.Visible  := Sender = Button_MPResultsWares;
   
     Button_MPResultsBars.Down := Sender = Button_MPResultsBars;
  
positive.code: 
  procedure TKMGUIMenuResultsMP.Create_ResultsMP(aParent: TKMPanel);
  var
    I: Integer;
  begin
    Panel_ResultsMP := TKMPanel.Create(aParent, 0, 0, aParent.Width, aParent.Height);
    Panel_ResultsMP.Stretch;
  
negative.code: 
  
  procedure TKMGUIMenuResultsMP.TabChange(Sender: TObject);
  var I: TResourceType;
  begin
    Panel_Bars.Visible := (Sender = Button_MPResultsBars);
    Panel_ChartsMP.Visible   :=(Sender = Button_MPResultsArmy)
  