anchor.diff:      end;
     end;
   
  +  Columnbox_Wares.ItemIndex := 0;
     Columnbox_Wares.ItemHeight := Min(Columnbox_Wares.Height div 15, 20);
  +  WareChange(nil);
   end;
   
   
  
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: 
  procedure TKMGUIMenuResultsMP.RefreshCharts;
  var
    I,K: Integer;
    R: TResourceType;
    G: TKMCardinalArray;
    WareAdded: Boolean;
  