Manipulate[
     RectangleChart[{{T, 100}, {L, 100}, {M, 100}, {K, 100}, {P, 100}, {B,
         100}}, BarSpacing -> None,
      ChartStyle -> {Brown, Gray, Yellow, LightGray, LightBrown,
        LightRed}], {T, 25, 40,
      Grid[{{Slider[##, Appearance -> Tiny],
          InputField[#, FieldSize -> Tiny]}}] &}, {L, 50, 240,
      Grid[{{Slider[##, Appearance -> Tiny],
          InputField[#, FieldSize -> Tiny]}}] &}, {M, 50, 300,
      Grid[{{Slider[##, Appearance -> Tiny],
          InputField[#, FieldSize -> Tiny]}}] &},
     {K, 25, 40,
      Grid[{{Slider[##, Appearance -> Tiny],
          InputField[#, FieldSize -> Tiny]}}] &}, {P, 35, 240,
      Grid[{{Slider[##, Appearance -> Tiny],
          InputField[#, FieldSize -> Tiny]}}] &}, {B, 20, 300,
      Grid[{{Slider[##, Appearance -> Tiny],
          InputField[#, FieldSize -> Tiny]}}] &}]