anchor.diff:  procedure TKMapEdInterface.Create_Barracks_Page;
   var i:integer;
   begin
  -    Panel_HouseBarracks:=TKMPanel.Create(Panel_House,0,76,200,400);
  -      for i:=1 to 11 do
  -      begin
  -        Button_Barracks[i]:=TKMButtonFlat.Create(Panel_HouseBarracks, 8+((i-1)mod 6)*31,8+((i-1)div 6)*42,28,38,366+i);
  -        Button_Barracks[i].Tag := i;
  -        Button_Barracks[i].TexOffsetX:=1;
  -        Button_Barracks[i].TexOffsetY:=1;
  -        Button_Barracks[i].CapOffsetY:=2;
  -        Button_Barracks[i].Hint:=TypeToString(TResourceType(16+i));
  -        Button_Barracks[i].OnClick := Barracks_SelectWare;
  -      end;
  +  Panel_HouseBarracks:=TKMPanel.Create(Panel_House,0,76,200,400);
  +    for i:=1 to BarracksResCount do
  +    begin
  +      Button_Barracks[i]:=TKMButtonFlat.Create(Panel_HouseBarracks, 8+((i-1)mod 6)*31,8+((i-1)div 6)*42,28,38,0);
  +      Button_Barracks[i].Tag := i;
  +      Button_Barracks[i].TexID := 350 + Byte(BarracksResType[i]);
  +      Button_Barracks[i].TexOffsetX := 1;
  +      Button_Barracks[i].TexOffsetY := 1;
  +      Button_Barracks[i].CapOffsetY := 2;
  +      Button_Barracks[i].Hint := TypeToString(BarracksResType[i]);
  +      Button_Barracks[i].OnClick := Barracks_SelectWare;
  +    end;
       Button_BarracksDec100   := TKMButton.Create(Panel_HouseBarracks,116,218,20,20,'<', fnt_Metal);
       Button_BarracksDec      := TKMButton.Create(Panel_HouseBarracks,116,238,20,20,'-', fnt_Metal);
       Label_Barracks_WareCount:= TKMLabel.Create (Panel_HouseBarracks,156,230,100,30,'',fnt_Metal,kaCenter);
  
positive.code:   if not Panel_HouseBarracks.Visible then exit;
    if not (Sender is TKMButtonFlat) then exit; //Only FlatButtons
    if TKMButtonFlat(Sender).Tag = 0 then exit; //with set Tag
    for i:=1 to length(Button_Barracks) do
      Button_Barracks[i].Down := false;
    TKMButtonFlat(Sender).Down := true;
    BarracksItem := TKMButtonFlat(Sender).Tag;
    Barracks_EditWareCount(Sender, mbLeft);
  end;
  
negative.code: uses
       {$IFDEF MSWindows} Windows, {$ENDIF}
       {$IFDEF Unix} LCLIntf, LCLType, {$ENDIF}
       Classes, Controls, KromUtils, Math, StrUtils, SysUtils, KromOGLUtils, Forms,
       KM_Controls, KM_Defaults, KM_Houses, KM_Units, KM_Points;
  
  const //todo: to be adjoined with GameUI defaults
    BarracksResCount = 11;
    BarracksResType: array[1..BarracksResCount] of TResourceType =
      (rt_Shield, rt_MetalShield, rt_Armor, rt_MetalArmor, rt_Axe, rt_Sword,
       rt_Pike, rt_Hallebard, rt_Bow, rt_Arbalet, rt_Horse);
  
  type
    TKMapEdInterface = class
  