anchor.diff:  uses
        {$IFDEF MSWindows} Windows, {$ENDIF}
        {$IFDEF Unix} LCLIntf, LCLType, {$ENDIF}
  -     Classes, Controls, KromUtils, Math, SysUtils, KromOGLUtils, Forms,
  +     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
  
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: procedure TKMapEdInterface.Barracks_EditWareCount(Sender:TObject; AButton:TMouseButton);
  var Res:TResourceType; Barracks:TKMHouseBarracks; Amt:byte;
  begin
    if not Panel_HouseBarracks.Visible then Exit;
  
    Res := BarracksResType[BarracksItem];
    Barracks := TKMHouseBarracks(fShownHouse);
  
    Amt := 0;
  