//+----------------------------------------------------------------------------+
//|  Описание : Установка объекта OBJ_HLINE горизонтальная линия               |
//+----------------------------------------------------------------------------+
//|  Параметры:                                                                |
//|    cl - цвет линии                                                         |
//|    nm - наименование               ("" - время открытия текущего бара)     |
//|    p1 - ценовой уровень            (0  - Bid)                              |
//|    st - стиль линии                (0  - простая линия)                    |
//|    wd - ширина линии               (0  - по умолчанию)                     |
//+----------------------------------------------------------------------------+
void SetHLine(long ident, color cl,string nm="",double p1=0,int st=0,int wd=1)
  {
   if(nm=="")
      nm=DoubleToString(iTime(_Symbol,PERIOD_CURRENT,0)+ident,0);
   if(p1<=0)
      p1=SymbolInfoDouble(_Symbol,SYMBOL_BID);
   if(ObjectFind(ident, nm)<0)
      ObjectCreate(ident, nm,OBJ_HLINE,0,0,0);
   ObjectSetDouble(0,nm,OBJPROP_PRICE,p1);
   ObjectSetInteger(0,nm,OBJPROP_COLOR,(int)cl);
   ObjectSetInteger(0,nm,OBJPROP_STYLE,(int)st);
   ObjectSetInteger(0,nm,OBJPROP_WIDTH,(int)wd);
  }