//+------------------------------------------------------------------+
//|                                                       Charts.mq5 |
//|                                              Copyright 2020, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2020, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property indicator_chart_window

#property indicator_plots 0
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- indicator buffers mapping

//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
//---
   double pr=0,p1=0,p2=0;
   datetime t1=0,t2=0;
   string nm="",sm="";

   for(int i=0; i<ObjectsTotal(0,-1); i++)
     {
      if(ObjectGetInteger(0,ObjectName(0,i),OBJPROP_TYPE)==OBJ_HLINE)
        {
         nm=ObjectName(0,i);
         pr=ObjectGetDouble(0,ObjectName(0,i),OBJPROP_PRICE);
         sm=_Symbol;
         Print("\n Name: ",nm);
         Print("Price: ",pr);
         Print("Symbol: ",sm);
        }
     }

   int k=0;
   long curr=0,prev=ChartFirst();

   while(k<33)
     {
      curr=ChartNext(prev);
      if(curr<0)
         break;

      if(nm!="" && ChartSymbol(curr)==sm)
        {
         ObjectCreate(curr,nm,OBJ_HLINE,0,0,NormalizeDouble(pr,_Digits));
        }

      prev=curr;
      k++;
     }

//--- return value of prev_calculated for next call
   return(rates_total);
  }
//+------------------------------------------------------------------+

p1=ObjectGetDouble(0,ObjectName(0,i),OBJPROP_PRICE1);