anchor.diff:  end;
   
   
  -function TKMWare.GetGUIColor: Cardinal;
  +function TKMWareSpec.GetGUIColor: Cardinal;
   const
     //Resources colors for Results charts
     //Made by naospor from kamclub.ru
  
positive.code: 
    TKMResWares = class
    private
      fList: array [TKMWareType] of TKMWare;
      procedure CalculateCostsTable;
      function GetWare(aIndex: TKMWareType): TKMWare;
    public
      constructor Create;
      destructor Destroy; override;
      property Wares[aIndex: TKMWareType]: TKMWare read GetWare; default;
      procedure ExportCostsTable(const aFilename: string);
  
      procedure ResetToDefaults;
  
negative.code: end;
  
  
  function TKMResWares.GetWare(aIndex: TKMWareType): TKMWareSpec;
  begin
    Result := fList[aIndex];
  end;
  