anchor.diff:    Button_HouseDeliveryMode.Enabled := fHouse.AllowDeliveryModeChange;
     Button_HouseDeliveryMode.Show;
   
  -  Button_HouseRepair.TexID := IfThen(fHouse.BuildingRepair, 39, 40);
  -  Button_HouseRepair.Show;
  +  House_RefreshRepair;
   
     Button_House_Worker.TexID  := gRes.Units[gRes.Houses[fHouse.HouseType].OwnerType].GUIIcon;
     HandleHouseClosedForWorker(fHouse);
  
positive.code: end;
  
  
  procedure TKMMapEdHouse.House_RefreshCommon;
  var
    HouseDat: TKMHouseSpec;
  
negative.code: procedure TKMMapEdHouse.House_RepairToggle(Sender: TObject);
  begin
    fHouse.BuildingRepair := not fHouse.BuildingRepair;
    House_RefreshRepair;
  end;
  
  
  