anchor.diff:  
   {Toggle ware delivery for separate resources (wood, leather) in Armor workshop}
   procedure TKMGUIGameHouse.House_ArmorWSDeliveryToggle(Sender: TObject);
  -var I: Byte;
  -    WareType: TWareType;
  +var I: Integer;
       ArmorWS: TKMHouseArmorWorkshop;
   begin
  -  WareType := wt_None;
     ArmorWS := TKMHouseArmorWorkshop(gMySpectator.Selected);
     for I := 1 to 2 do
     begin
  -    if (I = 1) then WareType := wt_Wood
  -    else if (I = 2) then WareType := wt_Leather;
  -
       if Sender = ResRow_Common_Resource_WS[I] then
  -      gGame.GameInputProcess.CmdHouse(gic_HouseArmorWSDeliveryToggle, ArmorWS, WareType);
  -
  -    Image_ArmorWS_Accept[I].Visible := not ArmorWS.AcceptWareForDelivery(WareType);
  +      gGame.GameInputProcess.CmdHouse(gic_HouseArmorWSDeliveryToggle, ArmorWS, WORKSHOP_WARE[I]);
  +
  +    Image_ArmorWS_Accept[I].Visible := not ArmorWS.AcceptWareForDelivery(WORKSHOP_WARE[I]);
     end;
   end;
   
  
positive.code:           
    //Show Demand
    Label_Common_Demand_WS.Show;
    Label_Common_Demand_WS.Top := Base+Line*LineAdv+6;
    inc(Line);
  
    for I := 1 to 2 do
  
negative.code:         else ResRow_Costs[I].TexID2 := gRes.Wares[WarfareCosts[Res, 2]].GUIIcon;
  
          ResRow_Costs[I].Show;
          ResRow_Costs[I].Top := Base + Line * LINE_HEIGHT - 2*I - 6; //Pack them closer so they fit on 1024x576
          inc(Line);
        end;
      end;
  