anchor.diff:  
   procedure TKMGUIMenuResultsMP.RefreshCharts;
   var
  -  I,K,Index: Integer;
  +  I,K: Integer;
     R: TResourceType;
     G: TKMCardinalArray;
     WareAdded: Boolean;
  
positive.code: 
  
  procedure TKMGUIMenuResultsMP.TabChange(Sender: TObject);
  var I: TResourceType;
  begin
    Panel_Bars.Visible := (Sender = Button_MPResultsBars);
    Panel_ChartsMP.Visible   :=(Sender = Button_MPResultsArmy)
  
negative.code:     end;
    end;
  
    Columnbox_Wares.ItemIndex := 0;
    Columnbox_Wares.ItemHeight := Min(Columnbox_Wares.Height div 15, 20);
    WareChange(nil);
  end;
  
  
  