让新闻交易轻松上手（第3部分）：执行交易·综合运用

class="macro">#include "ChartProperties.mqh"
class="type">class="kw">color TextObj_color;
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|ObjectProperties class                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CObjectProperties:class="kw">public CChartProperties
  {
class="kw">private:
   class=class="str">"cmt">//Simple  chart objects structure
   class="kw">struct ObjStruct
     {
      class="type">long                ChartId;
      class="type">class="kw">string              Name;
     } Objects[];class=class="str">"cmt">//ObjStruct variable array
   class=class="str">"cmt">//-- Add chart object to Objects array
   class="type">void                AddObj(class="type">long chart_id,class="type">class="kw">string name)
     {
      ArrayResize(Objects,Objects.Size()+class="num">1,Objects.Size()+class="num">2);
      Objects[Objects.Size()-class="num">1].ChartId=chart_id;
      Objects[Objects.Size()-class="num">1].Name=name;
     }
class="kw">protected:
   class="type">void                DeleteObj()
     {
      for(class="type">uint i=class="num">0;i<Objects.Size();i++)
        {
         ObjectDelete(Objects[i].ChartId,Objects[i].Name);
        }
     }
class="kw">public:
                     CObjectProperties(class="type">void) {}class=class="str">"cmt">//Class constructor
   class=class="str">"cmt">//-- Create Rectangle chart object
   class="type">void                Square(class="type">long chart_ID,class="type">class="kw">string name,class="type">int x_coord,class="type">int y_coord,class="type">int width,class="type">int height,ENUM_ANCHOR_POINT Anchor);
   class=class="str">"cmt">//-- Create text chart object
   class="type">void                TextObj(class="type">long chartID,class="type">class="kw">string name,class="type">class="kw">string text,class="type">int x_coord,class="type">int y_coord,
                                ENUM_BASE_CORNER Corner=CORNER_LEFT_UPPER,class="type">int fontsize=class="num">10);
   class=class="str">"cmt">//-- Create Event object
   class="type">void                EventObj(class="type">long chartID,class="type">class="kw">string name,class="type">class="kw">string description,class="type">class="kw">datetime eventdate);
   class=class="str">"cmt">//-- Class destructor removes all chart objects created previously
                    ~CObjectProperties(class="type">void)
     {
      DeleteObj();
     }
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Create text chart object                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+

class="type">void CObjectProperties::TextObj(class="type">long chartID,class="type">class="kw">string name,class="type">class="kw">string text,class="type">int x_coord,class="type">int y_coord,
                                      ENUM_BASE_CORNER Corner=CORNER_LEFT_UPPER,class="type">int fontsize=class="num">10)
  {
   ObjectDelete(chartID,name);class=class="str">"cmt">//Delete previous object with the same name and chart id
   if(ObjectCreate(chartID,name,OBJ_LABEL,class="num">0,class="num">0,class="num">0))class=class="str">"cmt">//Create object label
     {
      AddObj(chartID,name);class=class="str">"cmt">//Add object to array
      ObjectSetInteger(chartID,name,OBJPROP_XDISTANCE,x_coord);class=class="str">"cmt">//Set x Distance/coordinate
      ObjectSetInteger(chartID,name,OBJPROP_YDISTANCE,y_coord);class=class="str">"cmt">//Set y Distance/coordinate
      ObjectSetInteger(chartID,name,OBJPROP_CORNER,Corner);class=class="str">"cmt">//Set object&class="macro">#x27;s corner anchor
      ObjectSetString(chartID,name,OBJPROP_TEXT,text);class=class="str">"cmt">//Set object&class="macro">#x27;s text
      ObjectSetInteger(chartID,name,OBJPROP_COLOR,TextObj_color);class=class="str">"cmt">//Set object&class="macro">#x27;s class="type">class="kw">color
      ObjectSetInteger(chartID,name,OBJPROP_FONTSIZE,fontsize);class=class="str">"cmt">//Set object&class="macro">#x27;s font-size
     }
   else
     {
      Print("Failed to create object: ",name);
     }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Create Rectangle chart object                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CObjectProperties::Square(class="type">long chart_ID,class="type">class="kw">string name,class="type">int x_coord,class="type">int y_coord,class="type">int width,class="type">int height,ENUM_ANCHOR_POINT Anchor)
  {
   class="kw">const class="type">int            sub_window=class="num">0;            class=class="str">"cmt">// subwindow index
   class="kw">const class="type">int            x=x_coord;               class=class="str">"cmt">// X coordinate
   class="kw">const class="type">int            y=y_coord;               class=class="str">"cmt">// Y coordinate
   class="kw">const class="type">class="kw">color          back_clr=(isLightMode)?clrWhite:clrBlack;class=class="str">"cmt">// background class="type">class="kw">color
   class="kw">const ENUM_BORDER_TYPE border=BORDER_SUNKEN;  class=class="str">"cmt">// border type
   class="kw">const class="type">class="kw">color          clr=clrRed;              class=class="str">"cmt">// flat border class="type">class="kw">color (Flat)
   class="kw">const ENUM_LINE_STYLE style=STYLE_SOLID;      class=class="str">"cmt">// flat border style

class="kw">const class="type">int                line_width=class="num">0;           class=class="str">"cmt">// flat border width
  class="kw">const class="type">bool               back=class="kw">false;               class=class="str">"cmt">// in the background
  class="kw">const class="type">bool               selection=class="kw">false;          class=class="str">"cmt">// highlight to move
  class="kw">const class="type">bool               hidden=true;              class=class="str">"cmt">// hidden in the object list
  ObjectDelete(chart_ID,name);class=class="str">"cmt">//Delete previous object with the same name and chart id
  if(ObjectCreate(chart_ID,name,OBJ_RECTANGLE_LABEL,sub_window,class="num">0,class="num">0))class=class="str">"cmt">//create rectangle object label
   {
   AddObj(chart_ID,name);class=class="str">"cmt">//Add object to array
   ObjectSetInteger(chart_ID,name,OBJPROP_XDISTANCE,x);class=class="str">"cmt">//Set x Distance/coordinate
   ObjectSetInteger(chart_ID,name,OBJPROP_YDISTANCE,y);class=class="str">"cmt">//Set y Distance/coordinate
   ObjectSetInteger(chart_ID,name,OBJPROP_XSIZE,width);class=class="str">"cmt">//Set object&class="macro">#x27;s width/x-size
   ObjectSetInteger(chart_ID,name,OBJPROP_YSIZE,height);class=class="str">"cmt">//Set object&class="macro">#x27;s height/y-size
   ObjectSetInteger(chart_ID,name,OBJPROP_BGCOLOR,back_clr);class=class="str">"cmt">//Set object&class="macro">#x27;s background class="type">class="kw">color
   ObjectSetInteger(chart_ID,name,OBJPROP_BORDER_TYPE,border);class=class="str">"cmt">//Set object&class="macro">#x27;s border type
   ObjectSetInteger(chart_ID,name,OBJPROP_ANCHOR,Anchor);class=class="str">"cmt">//Set objects anchor point
   ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr);class=class="str">"cmt">//Set object&class="macro">#x27;s class="type">class="kw">color
   ObjectSetInteger(chart_ID,name,OBJPROP_STYLE,style);class=class="str">"cmt">//Set object&class="macro">#x27;s style
   ObjectSetInteger(chart_ID,name,OBJPROP_WIDTH,line_width);class=class="str">"cmt">//Set object&class="macro">#x27;s flat border width
   ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back);class=class="str">"cmt">//Set if object is in foreground or not
   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection);class=class="str">"cmt">//Set if object is selectable/dragable
   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection);class=class="str">"cmt">//Set if object is Selected
   ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden);class=class="str">"cmt">//Set if object is hidden in object list
   ChartRedraw(chart_ID);
   }
  else
   {
   Print("Failed to create object: ",name);
   }
}

class="macro">#define NEWS_DATABASE_MEMORY        StringFormat("Calendar_%s_%d_%s.sqlite",broker,ChartID(),(MQLInfoInteger(MQL_TESTER)?"TESTER":"REAL"))
enum Choice
  {
  Yes,class=class="str">"cmt">//YES
  Noclass=class="str">"cmt">//NO
  };
enum DayOfTheWeek
  {
  Monday,class=class="str">"cmt">//MONDAY
  Tuesday,class=class="str">"cmt">//TUESDAY
  Wednesday,class=class="str">"cmt">//WEDNESDAY
  Thursday,class=class="str">"cmt">//THURSDAY
  Friday,class=class="str">"cmt">//FRIDAY
  AllDaysclass=class="str">"cmt">//ALL DAYS
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Convert enumeration Choice into a boolean value                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool Answer(Choice choose)
  {
  class="kw">return (choose==Yes)?true:class="kw">false;
  }

class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|TimeVariables class                                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CTimeVariables
  {
class="kw">private:
   class=class="str">"cmt">//---Array to store candlestick times
   class="type">class="kw">datetime            CandleTime[class="num">2000];
class="kw">public:
                     CTimeVariables(class="type">void);
   class=class="str">"cmt">//---Set Array index time
   class="type">void            SetTime(class="type">uint index,class="type">class="kw">datetime time);
   class=class="str">"cmt">//---Get Array index time
   class="type">class="kw">datetime            GetTime(class="type">uint index);
   };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Constructor                                                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
CTimeVariables::CTimeVariables()
  {
   for(class="type">uint i=class="num">0; i<CandleTime.Size(); i++)
     {
      CandleTime[i]=D&class="macro">#x27;class="num">1970.01.class="num">01&class="macro">#x27;;
     }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Set Array index time                                               |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTimeVariables::SetTime(class="type">uint index,class="type">class="kw">datetime time)
  {
   if(index>=class="num">0&&index<CandleTime.Size())
     {
      CandleTime[index] = time;
     }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Get Array index time                                               |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">datetime CTimeVariables::GetTime(class="type">uint index)
  {
   class="kw">return (index>=class="num">0&&index<CandleTime.Size())?CandleTime[index]:class="type">class="kw">datetime(class="num">0);
  }

class=class="str">"cmt">//-- Enumeration for DST schedule
enum DSTSchedule
  {
   AutoDst_Selection,class=class="str">"cmt">//AUTO DST
   CustomDst_Selectionclass=class="str">"cmt">//CUSTOM DST
  } MyDST;
DST_type MySchedule;class=class="str">"cmt">//Variable for custom DST schedule
class="type">int                ReturnHour(class="type">class="kw">datetime time);class=class="str">"cmt">//Returns the Hour for a specific date
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Returns the Hour for a specific date                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int CTimeManagement::ReturnHour(class="type">class="kw">datetime time)
  {
   class="kw">return Time(time).hour;
  }
class="type">int                ReturnMinute(class="type">class="kw">datetime time);class=class="str">"cmt">//Returns the Minute for a specific date
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Returns the Minute for a specific date                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int CTimeManagement::ReturnMinute(class="type">class="kw">datetime time)
  {
   class="kw">return Time(time).min;
  }
class="type">int                ReturnSecond(class="type">class="kw">datetime time);class=class="str">"cmt">//Returns the Second for s specific date
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Returns the Second for s specific date                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int CTimeManagement::ReturnSecond(class="type">class="kw">datetime time)
  {
   class="kw">return Time(time).sec;
  }
class=class="str">"cmt">//-- Will convert class="type">class="kw">datetime to class="type">MqlDateTime
   class="type">MqlDateTime        Time(class="type">class="kw">datetime Timetoformat);
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Will convert class="type">class="kw">datetime to class="type">MqlDateTime                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">MqlDateTime CTimeManagement::Time(class="type">class="kw">datetime Timetoformat)
  {
   TimeToStruct(Timetoformat,timeFormat);
   class="kw">return timeFormat;
  }
class=class="str">"cmt">//-- Will class="kw">return a class="type">class="kw">datetime with changes to the hour,minute and second
   class="type">class="kw">datetime           Time(class="type">class="kw">datetime time,class="type">int Hour,class="type">int Minute,class="type">int Second);
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Will class="kw">return a class="type">class="kw">datetime with changes to the hour,minute and second |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">datetime CTimeManagement::Time(class="type">class="kw">datetime time,class="type">int Hour,class="type">int Minute,class="type">int Second)
  {
   timeFormat=Time(time);
   timeFormat.hour=Hour;
   timeFormat.min=Minute;
   timeFormat.sec=Second;
   class="kw">return StructToTime(timeFormat);
  }
class=class="str">"cmt">//-- Will class="kw">return a class="type">class="kw">datetime with changes to the hour and minute

class="type">class="kw">datetime CTimeManagement::Time(class="type">class="kw">datetime time,class="type">int Hour,class="type">int Minute)
  {
  timeFormat=Time(time);
  timeFormat.hour=Hour;
  timeFormat.min=Minute;
  class="kw">return StructToTime(timeFormat);
  }

class="type">bool CTimeManagement::TimeIsInRange(class="type">class="kw">datetime BeginTime,class="type">class="kw">datetime EndTime)
  {
  if(BeginTime<=TimeTradeServer()&&EndTime>=TimeTradeServer())
    {
    class="kw">return true;
    }
  class="kw">return class="kw">false;
  }

class="type">bool CTimeManagement::TimePreEvent(class="type">class="kw">datetime PreEventTime,class="type">class="kw">datetime EventTime)
  {
  if(PreEventTime<=TimeTradeServer()&&EventTime>TimeTradeServer())
    {
    class="kw">return true;
    }
  class="kw">return class="kw">false;
  }

class="type">MqlDateTime CTimeManagement::Today(class="type">int Hour,class="type">int Minute)
  {
  TimeTradeServer(today);
  today.hour=Hour;
  today.min=Minute;
  class="kw">return today;
  }

class="type">MqlDateTime CTimeManagement::Today(class="type">int Hour,class="type">int Minute,class="type">int Second)
  {
   TimeTradeServer(today);
   today.hour=Hour;
   today.min=Minute;
   today.sec=Second;
   class="kw">return today;
  }
class=class="str">"cmt">//-- Check current day of the week
   class="type">bool                isDayOfTheWeek(DayOfTheWeek Day);
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Check current day of the week                                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTimeManagement::isDayOfTheWeek(DayOfTheWeek Day)
  {
   class="kw">switch(Day)
     {
     case  Monday:class=class="str">"cmt">//Monday
        if(DayOfWeek(TimeTradeServer())==MONDAY)
          {
           class="kw">return true;
          }
        class="kw">break;
     case Tuesday:class=class="str">"cmt">//Tuesday
        if(DayOfWeek(TimeTradeServer())==TUESDAY)
          {
           class="kw">return true;
          }
        class="kw">break;
     case Wednesday:class=class="str">"cmt">//Wednesday
        if(DayOfWeek(TimeTradeServer())==WEDNESDAY)
          {
           class="kw">return true;
          }
        class="kw">break;
     case Thursday:class=class="str">"cmt">//Thursday
        if(DayOfWeek(TimeTradeServer())==THURSDAY)
          {
           class="kw">return true;
          }
        class="kw">break;
     case Friday:class=class="str">"cmt">//Friday
        if(DayOfWeek(TimeTradeServer())==FRIDAY)
          {
           class="kw">return true;
          }
        class="kw">break;
     case AllDays:class=class="str">"cmt">//All days
        class="kw">return true;
        class="kw">break;
     class="kw">default:class=class="str">"cmt">//Unknown
        class="kw">break;
     }
   class="kw">return class="kw">false;
  }
class=class="str">"cmt">//-- Return enumeration Day of week for a certain date
   ENUM_DAY_OF_WEEK   DayOfWeek(class="type">class="kw">datetime time);
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Return enumeration Day of week for a certain date                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
ENUM_DAY_OF_WEEK CTimeManagement::DayOfWeek(class="type">class="kw">datetime time)
  {
   class="kw">return (ENUM_DAY_OF_WEEK)Time(time).day_of_week;
  }

class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|CandleProperties class                                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CCandleProperties : class="kw">public CChartProperties
  {
class="kw">private:
   CTimeManagement   Time;class=class="str">"cmt">//TimeManagement object
   CTimeVariables    CTV;class=class="str">"cmt">//Timevariables object
class="kw">public:
   class="type">class="kw">double            Open(class="type">int CandleIndex,ENUM_TIMEFRAMES Period=PERIOD_CURRENT,class="type">class="kw">string SYMBOL=NULL);class=class="str">"cmt">//Retrieve Candle Open-Price
   class="type">class="kw">double            Close(class="type">int CandleIndex,ENUM_TIMEFRAMES Period=PERIOD_CURRENT,class="type">class="kw">string SYMBOL=NULL);class=class="str">"cmt">//Retrieve Candle Close-Price
   class="type">class="kw">double            High(class="type">int CandleIndex,ENUM_TIMEFRAMES Period=PERIOD_CURRENT,class="type">class="kw">string SYMBOL=NULL);class=class="str">"cmt">//Retrieve Candle High-Price
   class="type">class="kw">double            Low(class="type">int CandleIndex,ENUM_TIMEFRAMES Period=PERIOD_CURRENT,class="type">class="kw">string SYMBOL=NULL);class=class="str">"cmt">//Retrieve Candle Low-Price
   class="type">bool              IsLargerThanPreviousAndNext(class="type">class="kw">datetime CandleTime,class="type">int Offset,class="type">class="kw">string SYMBOL);class=class="str">"cmt">//Determine if one candle is larger than two others
   class="type">bool              NewCandle(class="type">int index,ENUM_TIMEFRAMES period=PERIOD_CURRENT,class="type">class="kw">string SYMBOL=NULL);class=class="str">"cmt">//Check if a new candle is present
   };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Check if a new candle is present                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CCandleProperties::NewCandle(class="type">int index,ENUM_TIMEFRAMES period=PERIOD_CURRENT,class="type">class="kw">string SYMBOL=NULL)
  {
   if(CTV.GetTime(index) == iTime(((SYMBOL==NULL)?Symbol():SYMBOL),period,class="num">0))
     {
      class="kw">return class="kw">false;class=class="str">"cmt">//Candle time are equal no new candles have formed
     }
   else
     {
     class=class="str">"cmt">//--- Candle time has changed set the new time
      CTV.SetTime(index,iTime(((SYMBOL==NULL)?Symbol():SYMBOL),period,class="num">0));
      class="kw">return true;
     }
  }

class="macro">#include "Timemanagement.mqh"
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Sessions Class                                                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CSessions:CTimeManagement
  {
class="kw">public:
                    CSessions(class="type">void) {}
                   ~CSessions(class="type">void) {}
  class=class="str">"cmt">//--- Check if trading Session has began
  class="type">bool              isSessionStart(class="type">int offsethour=class="num">0,class="type">int offsetmin=class="num">0);
  class=class="str">"cmt">//--- Check if trading Session has ended
  class="type">bool              isSessionEnd(class="type">int offsethour=class="num">0,class="type">int offsetmin=class="num">45);
  class=class="str">"cmt">//--- Get Session End class="type">class="kw">datetime
  class="type">class="kw">datetime          SessionEnd(class="type">int offsethour=class="num">0,class="type">int offsetmin=class="num">45);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Check if trading Session has started                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CSessions::isSessionStart(class="type">int offsethour=class="num">0,class="type">int offsetmin=class="num">0)
  {
class=class="str">"cmt">//--- Declarations
class="type">class="kw">datetime datefrom,dateto,DateFrom[],DateTo[];
class=class="str">"cmt">//--- Find all session times
  for(class="type">int i=class="num">0; i<class="num">10; i++)
    {
      class=class="str">"cmt">//--- Get the session dates for the current symbol and Day of week
      if(SymbolInfoSessionTrade(Symbol(),DayOfWeek(TimeTradeServer()),i,datefrom,dateto))
        {
          class=class="str">"cmt">//--- Check if the end date&class="macro">#x27;s hour is at midnight
          if(ReturnHour(dateto)==class="num">00||ReturnHour(dateto)==class="num">24)
            {
              class=class="str">"cmt">//--- Adjust the date to one minute before midnight
              dateto = Time(TimeTradeServer(),class="num">23,class="num">59);
            }
          class=class="str">"cmt">//--- Re-adjust DateFrom Array size
          ArrayResize(DateFrom,class="type">int(ArraySize(DateFrom))+class="num">1,class="type">int(ArraySize(DateFrom))+class="num">2);
          class=class="str">"cmt">//--- Assign the last array index datefrom value
          DateFrom[class="type">int(ArraySize(DateFrom))-class="num">1] = datefrom;
          class=class="str">"cmt">//--- Re-adjust DateTo Array size

   ArrayResize(DateTo,class="type">int(ArraySize(DateTo))+class="num">1,class="type">int(ArraySize(DateTo))+class="num">2);
   class=class="str">"cmt">//--- Assign the last array index dateto value
   DateTo[class="type">int(ArraySize(DateTo))-class="num">1] = dateto;
   }
   }
class=class="str">"cmt">//--- Check if there are session times
   if(DateFrom.Size()>class="num">0)
   {
   class=class="str">"cmt">/* Adjust DateFrom index zero date as the first index date will be the earliest date
   from the whole array, we add the offset to this date only*/
   DateFrom[class="num">0] = TimePlusOffset(DateFrom[class="num">0],MinutesS(startoffsetmin));
   DateFrom[class="num">0] = TimePlusOffset(DateFrom[class="num">0],HoursS(startoffsethour));
   class=class="str">"cmt">//--- Iterate through the whole array
   for(class="type">uint i=class="num">0; i<DateFrom.Size(); i++)
     {
     class=class="str">"cmt">//--- Check if the current time is within the trading session
     if(TimeIsInRange(DateFrom[i],DateTo[i]))
       {
       class="kw">return true;
       }
     }
   }
   else
   {
   class=class="str">"cmt">//--- If there are no trading session times
   class="kw">return true;
   }
   class="kw">return class="kw">false;
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Check if trading Session has ended                               |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CSessions::isSessionEnd(class="type">int offsethour=class="num">0,class="type">int offsetmin=class="num">45)
  {
class=class="str">"cmt">//--- Declarations
  class="type">class="kw">datetime datefrom,dateto,DateTo[],lastdate=class="num">0,sessionend;
class=class="str">"cmt">//--- Find all session times
  for(class="type">int i=class="num">0; i<class="num">10; i++)
    {
    class=class="str">"cmt">//--- Get the session dates for the current symbol and Day of week
    if(SymbolInfoSessionTrade(Symbol(),DayOfWeek(TimeTradeServer()),i,datefrom,dateto))
      {
      class=class="str">"cmt">//--- Check if the end date&class="macro">#x27;s hour is at midnight
      if(ReturnHour(dateto)==class="num">00||ReturnHour(dateto)==class="num">24)
        {
        class=class="str">"cmt">//--- Adjust the date to one minute before midnight
        dateto = Time(TimeTradeServer(),class="num">23,class="num">59);
        }
      class=class="str">"cmt">//--- Re-adjust DateTo Array size
      ArrayResize(DateTo,class="type">int(ArraySize(DateTo))+class="num">1,class="type">int(ArraySize(DateTo))+class="num">2);
      class=class="str">"cmt">//--- Assign the last array index dateto value
      DateTo[class="type">int(ArraySize(DateTo))-class="num">1] = dateto;
      }
    }
class=class="str">"cmt">//--- Check if there are session times

class="type">class="kw">datetime CSessions::SessionEnd(class="type">int offsethour=class="num">0,class="type">int offsetmin=class="num">45)
  {
class=class="str">"cmt">//--- Declarations
  class="type">class="kw">datetime datefrom,dateto,DateTo[],lastdate=class="num">0,sessionend;
class=class="str">"cmt">//--- Find all session times
  for(class="type">int i=class="num">0;i<class="num">10;i++)
    {
    class=class="str">"cmt">//--- Get the session dates for the current symbol and Day of week
    if(SymbolInfoSessionTrade(Symbol(),DayOfWeek(TimeTradeServer()),i,datefrom,dateto))
      {
      class=class="str">"cmt">//--- Check if the end date&class="macro">#x27;s hour is at midnight
      if(CTV.ReturnHour(dateto)==class="num">00||CTV.ReturnHour(dateto)==class="num">24)
        {
        class=class="str">"cmt">//--- Adjust the date to one minute before midnight
        dateto = Time(TimeTradeServer(),class="num">23,class="num">59);
        }
      class=class="str">"cmt">//--- Re-adjust DateTo Array size
      ArrayResize(DateTo,class="type">int(ArraySize(DateTo))+class="num">1,class="type">int(ArraySize(DateTo))+class="num">2);
      class=class="str">"cmt">//--- Assign the last array index dateto value
      DateTo[class="type">int(ArraySize(DateTo))-class="num">1] = dateto;
      }
    }
class=class="str">"cmt">//--- Check if there are session times
  if(DateTo.Size()>class="num">0)
    {
    class=class="str">"cmt">//--- Assign lastdate a class="kw">default value
    lastdate = DateTo[class="num">0];

  class=class="str">"cmt">//--- Iterate through the whole array
  for(class="type">uint i=class="num">0; i<DateTo.Size(); i++)
    {
     class=class="str">"cmt">//--- Check for the latest date in the array
     if(DateTo[i]>lastdate)
       {
        lastdate = DateTo[i];
       }
    }
   }
  else
   {
    class=class="str">"cmt">//--- If there are no trading session times
    class="kw">return class="num">0;
   }
  class=class="str">"cmt">/* get the current time and modify the hour and minute time to the lastdate variable
  and assign the new class="type">class="kw">datetime to sessionend variable*/
  sessionend = Today(ReturnHour(lastdate),ReturnMinute(lastdate));
class=class="str">"cmt">//--- Re-adjust the sessionend dates with the minute and hour offsets
  sessionend = TimeMinusOffset(sessionend,MinutesS(offsetmin));
  sessionend = TimeMinusOffset(sessionend,HoursS(offsethour));
class=class="str">"cmt">//--- class="kw">return sessionend date
  class="kw">return sessionend;
  }

<span class="keyword">class="type">int</span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DBMemoryConnection;<span class="comment">class=class="str">"cmt">//In memory database handle</span>
<span class="comment">class=class="str">"cmt">//--- Enumeration for Calendar Importance</span>
<span class="keyword">enum</span> <span style="background-class="type">class="kw">color:rgb(class="num">255, class="num">246, class="num">200);">Calendar_Importance</span>
&nbsp;&nbsp;{
&nbsp;&nbsp; Calendar_Importance_None,<span class="comment">class=class="str">"cmt">//NONE</span>
&nbsp;&nbsp; Calendar_Importance_Low,<span class="comment">class=class="str">"cmt">//LOW</span>
&nbsp;&nbsp; Calendar_Importance_Moderate,<span class="comment">class=class="str">"cmt">//MODERATE</span>
&nbsp;&nbsp; Calendar_Importance_High,<span class="comment">class=class="str">"cmt">//HIGH</span>
&nbsp;&nbsp; Calendar_Importance_All<span class="comment">class=class="str">"cmt">//ALL</span>
&nbsp;&nbsp;} myImportance;
<span class="comment">class=class="str">"cmt">//--- Enumeration for Calendar Sector</span>
<span class="keyword">enum</span> <span style="background-class="type">class="kw">color:rgb(class="num">255, class="num">246, class="num">200);">Event_Sector</span>
&nbsp;&nbsp;{
&nbsp;&nbsp; Event_Sector_None,<span class="comment">class=class="str">"cmt">//NONE</span>
&nbsp;&nbsp; Event_Sector_Market,<span class="comment">class=class="str">"cmt">//MARKET</span>
&nbsp;&nbsp; Event_Sector_Gdp,<span class="comment">class=class="str">"cmt">//GDP</span>
&nbsp;&nbsp; Event_Sector_Jobs,<span class="comment">class=class="str">"cmt">//JOBS</span>
&nbsp;&nbsp; Event_Sector_Prices,<span class="comment">class=class="str">"cmt">//PRICES</span>
&nbsp;&nbsp; Event_Sector_Money,<span class="comment">class=class="str">"cmt">//MONEY</span>
&nbsp;&nbsp; Event_Sector_Trade,<span class="comment">class=class="str">"cmt">//TRADE</span>
&nbsp;&nbsp; Event_Sector_Government,<span class="comment">class=class="str">"cmt">//GOVERNMENT</span>
&nbsp;&nbsp; Event_Sector_Business,<span class="comment">class=class="str">"cmt">//BUSINESS</span>
&nbsp;&nbsp; Event_Sector_Consumer,<span class="comment">class=class="str">"cmt">//CONSUMER</span>
&nbsp;&nbsp; Event_Sector_Housing,<span class="comment">class=class="str">"cmt">//HOUSING</span>
&nbsp;&nbsp; Event_Sector_Taxes,<span class="comment">class=class="str">"cmt">//TAXES</span>
&nbsp;&nbsp; Event_Sector_Holidays,<span class="comment">class=class="str">"cmt">//HOLIDAYS</span>
&nbsp;&nbsp; Event_Sector_ALL<span class="comment">class=class="str">"cmt">//ALL</span>
&nbsp;&nbsp;} mySector;
<span class="comment">class=class="str">"cmt">//--- Enumeration for Calendar Event Frequency</span>
<span class="keyword">enum</span> <span style="background-class="type">class="kw">color:rgb(class="num">255, class="num">246, class="num">200);">Event_Frequency</span>
&nbsp;&nbsp;{
&nbsp;&nbsp; Event_Frequency_None,<span class="comment">class=class="str">"cmt">//NONE</span>
&nbsp;&nbsp; Event_Frequency_Week,<span class="comment">class=class="str">"cmt">//WEEK</span>
&nbsp;&nbsp; Event_Frequency_Month,<span class="comment">class=class="str">"cmt">//MONTH</span>
&nbsp;&nbsp; Event_Frequency_Quarter,<span class="comment">class=class="str">"cmt">//QUARTER</span>
&nbsp;&nbsp; Event_Frequency_Year,<span class="comment">class=class="str">"cmt">//YEAR</span>
&nbsp;&nbsp; Event_Frequency_Day,<span class="comment">class=class="str">"cmt">//DAY</span>
&nbsp;&nbsp; Event_Frequency_ALL<span class="comment">class=class="str">"cmt">//ALL</span>
&nbsp;&nbsp;} myFrequency;
<span class="comment">class=class="str">"cmt">//--- Enumeration for Calendar Event type</span>
<span class="keyword">enum</span> <span style="background-class="type">class="kw">color:rgb(class="num">255, class="num">246, class="num">200);">Event_Type</span>
&nbsp;&nbsp;{
&nbsp;&nbsp; Event_Type_Event,<span class="comment">class=class="str">"cmt">//EVENT</span>
&nbsp;&nbsp; Event_Type_Indicator,<span class="comment">class=class="str">"cmt">//INDICATOR</span>
&nbsp;&nbsp; Event_Type_Holiday,<span class="comment">class=class="str">"cmt">//HOLIDAY</span>
&nbsp;&nbsp; Event_Type_All<span class="comment">class=class="str">"cmt">//ALL</span>
&nbsp;&nbsp;} myType;
<span class="comment">class=class="str">"cmt">//--- Enumeration for Calendar Event Currency</span>
<span class="keyword">enum</span> <span style="background-class="type">class="kw">color:rgb(class="num">255, class="num">246, class="num">200);">Event_Currency</span>
&nbsp;&nbsp;{
&nbsp;&nbsp; Event_Currency_Symbol,<span class="comment">class=class="str">"cmt">//SYMBOL CURRENCIES</span>
&nbsp;&nbsp; Event_Currency_Margin,<span class="comment">class=class="str">"cmt">//SYMBOL MARGIN</span>
&nbsp;&nbsp; Event_Currency_Base,<span class="comment">class=class="str">"cmt">//SYMBOL BASE</span>
&nbsp;&nbsp; Event_Currency_Profit,<span class="comment">class=class="str">"cmt">//SYMBOL PROFIT</span>
&nbsp;&nbsp; Event_Currency_ALL,<span class="comment">class=class="str">"cmt">//ALL CURRENCIES</span>
&nbsp;&nbsp; Event_Currency_NZD_NZ,<span class="comment">class=class="str">"cmt">//NZD -&gt; NZ</span>
&nbsp;&nbsp; Event_Currency_EUR_EU,<span class="comment">class=class="str">"cmt">//EUR -&gt; EU</span>
&nbsp;&nbsp; Event_Currency_JPY_JP,<span class="comment">class=class="str">"cmt">//JPY -&gt; JP</span>
&nbsp;&nbsp; Event_Currency_CAD_CA,<span class="comment">class=class="str">"cmt">//CAD -&gt; CA</span>
&nbsp;&nbsp; Event_Currency_AUD_AU,<span class="comment">class=class="str">"cmt">//AUD -&gt; AU</span>
&nbsp;&nbsp; Event_Currency_CNY_CN,<span class="comment">class=class="str">"cmt">//CNY -&gt; CN</span>
&nbsp;&nbsp; Event_Currency_EUR_IT,<span class="comment">class=class="str">"cmt">//EUR -&gt; IT</span>
&nbsp;&nbsp; Event_Currency_SGD_SG,<span class="comment">class=class="str">"cmt">//SGD -&gt; SG</span>

  Event_Currency_EUR_DE,class=class="str">"cmt">//EUR -> DE
  Event_Currency_EUR_FR,class=class="str">"cmt">//EUR -> FR
  Event_Currency_BRL_BR,class=class="str">"cmt">//BRL -> BR
  Event_Currency_MXN_MX,class=class="str">"cmt">//MXN -> MX
  Event_Currency_ZAR_ZA,class=class="str">"cmt">//ZAR -> ZA
  Event_Currency_HKD_HK,class=class="str">"cmt">//HKD -> HK
  Event_Currency_INR_IN,class=class="str">"cmt">//INR -> IN
  Event_Currency_NOK_NO,class=class="str">"cmt">//NOK -> NO
  Event_Currency_USD_US,class=class="str">"cmt">//USD -> US
  Event_Currency_GBP_GB,class=class="str">"cmt">//GBP -> GB
  Event_Currency_CHF_CH,class=class="str">"cmt">//CHF -> CH
  Event_Currency_KRW_KR,class=class="str">"cmt">//KRW -> KW
  Event_Currency_EUR_ES,class=class="str">"cmt">//EUR -> ES
  Event_Currency_SEK_SE,class=class="str">"cmt">//SEK -> SE
  Event_Currency_ALL_WWclass=class="str">"cmt">//ALL -> WW
 } myCurrency;

  Event_Currency_EUR_DE,class=class="str">"cmt">//EUR -> DE
  Event_Currency_EUR_FR,class=class="str">"cmt">//EUR -> FR
  Event_Currency_BRL_BR,class=class="str">"cmt">//BRL -> BR
  Event_Currency_MXN_MX,class=class="str">"cmt">//MXN -> MX
  Event_Currency_ZAR_ZA,class=class="str">"cmt">//ZAR -> ZA
  Event_Currency_HKD_HK,class=class="str">"cmt">//HKD -> HK
  Event_Currency_INR_IN,class=class="str">"cmt">//INR -> IN
  Event_Currency_NOK_NO,class=class="str">"cmt">//NOK -> NO
  Event_Currency_USD_US,class=class="str">"cmt">//USD -> US
  Event_Currency_GBP_GB,class=class="str">"cmt">//GBP -> GB
  Event_Currency_CHF_CH,class=class="str">"cmt">//CHF -> CH
  Event_Currency_KRW_KR,class=class="str">"cmt">//KRW -> KW
  Event_Currency_EUR_ES,class=class="str">"cmt">//EUR -> ES
  Event_Currency_SEK_SE,class=class="str">"cmt">//SEK -> SE
  Event_Currency_ALL_WWclass=class="str">"cmt">//ALL -> WW
 } myCurrency;
class=class="str">"cmt">//--- Structure variable to store Calendar next Event data
Calendar UpcomingNews;
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|News class                                                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CNews : class="kw">private CCandleProperties
  {
  class=class="str">"cmt">//Private Declarations Only accessable by this class/header file
class="kw">private:
  class=class="str">"cmt">//-- To keep track of what is in our database
  enum CalendarComponents
    {
      AutoDST_Table,class=class="str">"cmt">//AutoDST Table
      CalendarAU_View,class=class="str">"cmt">//View for DST_AU
      CalendarNONE_View,class=class="str">"cmt">//View for DST_NONE
      CalendarUK_View,class=class="str">"cmt">//View for DST_UK
      CalendarUS_View,class=class="str">"cmt">//View for DST_US
      EventInfo_View,class=class="str">"cmt">//View for Event Information
      Currencies_View,class=class="str">"cmt">//View for Currencies
      Record_Table,class=class="str">"cmt">// Record Table
      TimeSchedule_Table,class=class="str">"cmt">//TimeSchedule Table
      MQL5Calendar_Table,class=class="str">"cmt">//MQL5Calendar Table
      AutoDST_Trigger,class=class="str">"cmt">//Table Trigger for AutoDST
      Record_Triggerclass=class="str">"cmt">//Table Trigger for Record
    };
  class=class="str">"cmt">//-- structure to retrieve all the objects in the database
  class="kw">struct SQLiteMaster
    {
      class="type">class="kw">string      type;class=class="str">"cmt">//will store object&class="macro">#x27;s type
      class="type">class="kw">string      name;class=class="str">"cmt">//will store object&class="macro">#x27;s name
      class="type">class="kw">string      tbl_name;class=class="str">"cmt">//will store table name
      class="type">int         rootpage;class=class="str">"cmt">//will store rootpage
      class="type">class="kw">string      sql;class=class="str">"cmt">//Will store the sql create statement
    } DBContents[];class=class="str">"cmt">//Array of type SQLiteMaster
  class=class="str">"cmt">//--  MQL5CalendarContents inherits from SQLiteMaster structure
  class="kw">struct MQL5CalendarContents:SQLiteMaster
    {
      CalendarComponents  Content;
      class="type">class="kw">string      insert;class=class="str">"cmt">//Will store the sql insert statement
    } CalendarContents[class="num">12],DBMemory;class=class="str">"cmt">//Array to Store objects in our database
  CTimeManagement    CTime;class=class="str">"cmt">//TimeManagement Object declaration
  CDaylightSavings_UK  Savings_UK;class=class="str">"cmt">//DaylightSavings Object for the UK and EU
  CDaylightSavings_US  Savings_US;class=class="str">"cmt">//DaylightSavings Object for the US

  CDaylightSavings_AU      Savings_AU;class=class="str">"cmt">//DaylightSavings Object for the AU
  class="type">bool                    AutoDetectDST(DST_type &dstType);class=class="str">"cmt">//Function will determine Broker DST
  DST_type                DSTType;class=class="str">"cmt">//variable of DST_type enumeration declared in the CommonVariables class/header file
  class="type">bool                    InsertIntoTables(class="type">int db,Calendar &Evalues[]);class=class="str">"cmt">//Function for inserting Economic Data in to a database&class="macro">#x27;s table
  class="type">void                    CreateAutoDST(class="type">int db);class=class="str">"cmt">//Function for creating and inserting Recommend DST for the Broker into a table
  class="type">bool                    CreateCalendarTable(class="type">int db,class="type">bool &tableExists);class=class="str">"cmt">//Function for creating a table in a database
  class="type">bool                    CreateTimeTable(class="type">int db,class="type">bool &tableExists);class=class="str">"cmt">//Function for creating a table in a database
  class="type">void                    CreateCalendarViews(class="type">int db);class=class="str">"cmt">//Function for creating views in a database
  class="type">void                    CreateRecordTable(class="type">int db);class=class="str">"cmt">//Creates a table to store the record of when last the Calendar database was updated/created
  class="type">class="kw">string                  DropRequest;class=class="str">"cmt">//Variable for dropping tables in the database
  class=class="str">"cmt">//-- Function for retrieving the MQL5CalendarContents structure for the enumartion type CalendarComponents
  MQL5CalendarContents CalendarStruct(CalendarComponents Content)
    {
     MQL5CalendarContents Calendar;
     for(class="type">uint i=class="num">0;i<CalendarContents.Size();i++)
       {
        if(CalendarContents[i].Content==Content)
          {
           class="kw">return CalendarContents[i];
          }
       }
     class="kw">return Calendar;
    }
  class=class="str">"cmt">//--- To Store Calendar DB Data
  class="kw">struct CalendarData
    {
     class="type">int          EventId;class=class="str">"cmt">//Event Id
     class="type">class="kw">string       Country;class=class="str">"cmt">//Event Country
     class="type">class="kw">string       EventName;class=class="str">"cmt">//Event Name
     class="type">class="kw">string       EventType;class=class="str">"cmt">//Event Type
     class="type">class="kw">string       EventImportance;class=class="str">"cmt">//Event Importance
     class="type">class="kw">string       EventCurrency;class=class="str">"cmt">//Event Currency
     class="type">class="kw">string       EventCode;class=class="str">"cmt">//Event Code
     class="type">class="kw">string       EventSector;class=class="str">"cmt">//Event Sector
     class="type">class="kw">string       EventForecast;class=class="str">"cmt">//Event Forecast Value
     class="type">class="kw">string       EventPreval;class=class="str">"cmt">//Event Previous Value
     class="type">class="kw">string       EventImpact;class=class="str">"cmt">//Event Impact
     class="type">class="kw">string       EventFrequency;class=class="str">"cmt">//Event Frequency

      class="type">class="kw">string        DST_UK;class=class="str">"cmt">//DST UK
      class="type">class="kw">string        DST_US;class=class="str">"cmt">//DST US
      class="type">class="kw">string        DST_AU;class=class="str">"cmt">//DST AU
      class="type">class="kw">string        DST_NONE;class=class="str">"cmt">//DST NONE
   } DB_Data[],DB_Cal;class=class="str">"cmt">//Structure variables
   class=class="str">"cmt">//--- Will Retrieve all relevant Calendar data for DB in Memory from DB in Storage
   class="type">void              GetCalendar(CalendarData &Data[])
   {
   class=class="str">"cmt">//--- Open calendar DB in Storage
   class="type">int db=DatabaseOpen(NEWS_DATABASE_FILE, DATABASE_OPEN_READWRITE | DATABASE_OPEN_CREATE| DATABASE_OPEN_COMMON);
   if(db==INVALID_HANDLE)class=class="str">"cmt">//Checks if the database was able to be opened
     {
     class=class="str">"cmt">//if opening the database failed
     if(!FileIsExist(NEWS_DATABASE_FILE,FILE_COMMON))class=class="str">"cmt">//Checks if the database Calendar exists in the common folder
       {
       class="kw">return;class=class="str">"cmt">//Returns true when the database was failed to be opened and the file doesn&class="macro">#x27;t exist in the common folder
       }
     }
   class=class="str">"cmt">//--- Get filtered calendar DB data
   class="type">class="kw">string SqlRequest = StringFormat("Select MQ.EventId,MQ.Country,MQ.EventName,MQ.EventType,MQ.EventImportance,MQ.EventCurrency,"
                                   "MQ.EventCode,MQ.EventSector,MQ.EventForecast,MQ.EventPreValue,MQ.EventImpact,MQ.EventFrequency,"
                                   "TS.DST_UK,TS.DST_US,TS.DST_AU,TS.DST_NONE from %s MQ "
                                   "Inner Join %s TS on TS.ID=MQ.ID "
                                   "Where %s and %s and %s and %s and %s;",
                                   CalendarStruct(MQL5Calendar_Table).name,CalendarStruct(TimeSchedule_Table).name,
                                   Request_Importance(myImportance),Request_Frequency(myFrequency),
                                   Request_Sector(mySector),Request_Type(myType),Request_Currency(myCurrency));
   class=class="str">"cmt">//--- Process Sql request
   class="type">int Request = DatabasePrepare(db,SqlRequest);
   if(Request==INVALID_HANDLE)
     {
     class=class="str">"cmt">//--- Print details if request failed.
     Print("DB: ",NEWS_DATABASE_FILE, " request failed with code ", GetLastError());

  DST_type        GetAutoDST()
    {
     class="type">class="kw">string Sch_Dst;
     class=class="str">"cmt">//--- open the database &class="macro">#x27;Calendar&class="macro">#x27; in the common folder
     class="type">int db=DatabaseOpen(NEWS_DATABASE_FILE, DATABASE_OPEN_READONLY|DATABASE_OPEN_COMMON);
     if(db==INVALID_HANDLE)class=class="str">"cmt">//Checks if &class="macro">#x27;Calendar&class="macro">#x27; failed to be opened
       {
        if(!FileIsExist(NEWS_DATABASE_FILE,FILE_COMMON))class=class="str">"cmt">//Checks if &class="macro">#x27;Calendar&class="macro">#x27; database exists
          {
           Print("Could not find Database!");
           class="kw">return DST_NONE;class=class="str">"cmt">//class="kw">return class="kw">default value when failed.
          }
       }
     class=class="str">"cmt">//--- Sql query to get AutoDST value
     class="type">class="kw">string request_text="SELECT DST FROM &class="macro">#x27;AutoDST&class="macro">#x27;";
     class=class="str">"cmt">//--- Process sql request
     class="type">int request=DatabasePrepare(db,request_text);
     if(request==INVALID_HANDLE)
       {
        Print("DB: ",NEWS_DATABASE_FILE, " request failed with code ", GetLastError());
        DatabaseClose(db);class=class="str">"cmt">//Close Database
        class="kw">return DST_NONE;class=class="str">"cmt">//class="kw">return class="kw">default value when failed.
       }
     class=class="str">"cmt">//--- Read Sql request output data
     if(DatabaseRead(request))
       {
        class=class="str">"cmt">//-- Store the first column data into class="type">class="kw">string variable Sch_Dst
        if(!DatabaseColumnText(request,class="num">0,Sch_Dst))
          {
           Print("DatabaseRead() failed with code ", GetLastError());

class=class="str">"cmt">//--- class="kw">switch statement for Event_Sector enumeration
class="kw">switch(Sector)
  {
   case Event_Sector_ALL:class=class="str">"cmt">//String Request for all event sectors
     class="kw">return constant+"<>&class="macro">#x27;"+EnumToString(mySector)+"&class="macro">#x27;";
     class="kw">break;
   class="kw">default:class=class="str">"cmt">//String Request for any event sector
     class="kw">return constant+"=&class="macro">#x27;"+EnumToString(SECTOR(mySector))+"&class="macro">#x27;";
     class="kw">break;
  }
 }
 class=class="str">"cmt">//--- Retrieve Sql request class="type">class="kw">string for calendar event type
 class="type">class="kw">string        Request_Type(Event_Type Type)
  {
   class=class="str">"cmt">//--- Constant request prefix class="type">class="kw">string
   class="kw">const class="type">class="kw">string constant="MQ.EventType";
   class=class="str">"cmt">//--- class="kw">switch statement for Event_Type enumeration
   class="kw">switch(Type)
     {
      case Event_Type_All:class=class="str">"cmt">//String Request for all event types
        class="kw">return constant+"<>&class="macro">#x27;"+EnumToString(myType)+"&class="macro">#x27;";
        class="kw">break;
      class="kw">default:class=class="str">"cmt">//String request for any event type
        class="kw">return constant+"=&class="macro">#x27;"+EnumToString(TYPE(myType))+"&class="macro">#x27;";
        class="kw">break;
     }
  }
 class=class="str">"cmt">//--- Retrieve Sql request class="type">class="kw">string for calendar event Currency
 class="type">class="kw">string        Request_Currency(Event_Currency Currency)
  {
   class=class="str">"cmt">//--- Constant request prefix class="type">class="kw">string and request suffix
   class="kw">const class="type">class="kw">string constant_prefix="(MQ.EventCurrency",constant_suffix="&class="macro">#x27;)";
   class=class="str">"cmt">//--- class="kw">switch statement for Event_Currency enumeration
   class="kw">switch(Currency)
     {
      case Event_Currency_ALL:class=class="str">"cmt">//String Request for all currencies
        class="kw">return constant_prefix+"<>&class="macro">#x27;"+EnumToString(myCurrency)+constant_suffix;
        class="kw">break;
      case Event_Currency_Symbol:class=class="str">"cmt">//String Request for all symbol currencies
        class="kw">return constant_prefix+"=&class="macro">#x27;"+CSymbol.CurrencyBase()+"&class="macro">#x27; or MQ.EventCurrency=&class="macro">#x27;"+
               CSymbol.CurrencyMargin()+"&class="macro">#x27; or MQ.EventCurrency=&class="macro">#x27;"+CSymbol.CurrencyProfit()+constant_suffix;
        class="kw">break;
      case Event_Currency_Margin:class=class="str">"cmt">//String Request for Margin currency
        class="kw">return constant_prefix+"=&class="macro">#x27;"+CSymbol.CurrencyMargin()+constant_suffix;
        class="kw">break;

   case Event_Currency_Base:class=class="str">"cmt">//String Request for Base currency
      class="kw">return constant_prefix+"=&class="macro">#x27;"+CSymbol.CurrencyBase()+constant_suffix;
      class="kw">break;
   case Event_Currency_Profit:class=class="str">"cmt">//String Request for Profit currency
      class="kw">return constant_prefix+"=&class="macro">#x27;"+CSymbol.CurrencyProfit()+constant_suffix;
      class="kw">break;
   case Event_Currency_NZD_NZ:class=class="str">"cmt">//String Request for NZD currency
      class="kw">return constant_prefix+"=&class="macro">#x27;NZD&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;NZ"+constant_suffix;
      class="kw">break;
   case Event_Currency_EUR_EU:class=class="str">"cmt">//String Request for EUR currency and EU code
      class="kw">return constant_prefix+"=&class="macro">#x27;EUR&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;EU"+constant_suffix;
      class="kw">break;
   case Event_Currency_JPY_JP:class=class="str">"cmt">//String Request for JPY currency
      class="kw">return constant_prefix+"=&class="macro">#x27;JPY&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;JP"+constant_suffix;
      class="kw">break;
   case Event_Currency_CAD_CA:class=class="str">"cmt">//String Request for CAD currency
      class="kw">return constant_prefix+"=&class="macro">#x27;CAD&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;CA"+constant_suffix;
      class="kw">break;
   case Event_Currency_AUD_AU:class=class="str">"cmt">//String Request for AUD currency
      class="kw">return constant_prefix+"=&class="macro">#x27;AUD&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;AU"+constant_suffix;
      class="kw">break;
   case Event_Currency_CNY_CN:class=class="str">"cmt">//String Request for CNY currency
      class="kw">return constant_prefix+"=&class="macro">#x27;CNY&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;CN"+constant_suffix;
      class="kw">break;
   case Event_Currency_EUR_IT:class=class="str">"cmt">//String Request for EUR currency and IT code
      class="kw">return constant_prefix+"=&class="macro">#x27;EUR&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;IT"+constant_suffix;
      class="kw">break;
   case Event_Currency_SGD_SG:class=class="str">"cmt">//String Request for SGD currency
      class="kw">return constant_prefix+"=&class="macro">#x27;SGD&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;SG"+constant_suffix;
      class="kw">break;
   case Event_Currency_EUR_DE:class=class="str">"cmt">//String Request for EUR currency and DE code
      class="kw">return constant_prefix+"=&class="macro">#x27;EUR&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;DE"+constant_suffix;
      class="kw">break;
   case Event_Currency_EUR_FR:class=class="str">"cmt">//String Request for EUR currency and FR code
      class="kw">return constant_prefix+"=&class="macro">#x27;EUR&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;FR"+constant_suffix;
      class="kw">break;
   case Event_Currency_BRL_BR:class=class="str">"cmt">//String Request for BRL currency

class="kw">return constant_prefix+"=&class="macro">#x27;BRL&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;BR"+constant_suffix;
class="kw">break;
 case Event_Currency_MXN_MX:class=class="str">"cmt">//String Request for MXN currency
 class="kw">return constant_prefix+"=&class="macro">#x27;MXN&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;MX"+constant_suffix;
 class="kw">break;
 case Event_Currency_ZAR_ZA:class=class="str">"cmt">//String Request for ZAR currency
 class="kw">return constant_prefix+"=&class="macro">#x27;ZAR&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;ZA"+constant_suffix;
 class="kw">break;
 case Event_Currency_HKD_HK:class=class="str">"cmt">//String Request for HKD currency
 class="kw">return constant_prefix+"=&class="macro">#x27;HKD&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;HK"+constant_suffix;
 class="kw">break;
 case Event_Currency_INR_IN:class=class="str">"cmt">//String Request for INR currency
 class="kw">return constant_prefix+"=&class="macro">#x27;INR&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;IN"+constant_suffix;
 class="kw">break;
 case Event_Currency_NOK_NO:class=class="str">"cmt">//String Request for NOK currency
 class="kw">return constant_prefix+"=&class="macro">#x27;NOK&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;NO"+constant_suffix;
 class="kw">break;
 case Event_Currency_USD_US:class=class="str">"cmt">//String Request for USD currency
 class="kw">return constant_prefix+"=&class="macro">#x27;USD&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;US"+constant_suffix;
 class="kw">break;
 case Event_Currency_GBP_GB:class=class="str">"cmt">//String Request for GBP currency
 class="kw">return constant_prefix+"=&class="macro">#x27;GBP&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;GB"+constant_suffix;
 class="kw">break;
 case Event_Currency_CHF_CH:class=class="str">"cmt">//String Request for CHF currency
 class="kw">return constant_prefix+"=&class="macro">#x27;CHF&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;CH"+constant_suffix;
 class="kw">break;
 case Event_Currency_KRW_KR:class=class="str">"cmt">//String Request for KRW currency
 class="kw">return constant_prefix+"=&class="macro">#x27;KRW&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;KR"+constant_suffix;
 class="kw">break;
 case Event_Currency_EUR_ES:class=class="str">"cmt">//String Request for EUR currency and ES code
 class="kw">return constant_prefix+"=&class="macro">#x27;EUR&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;ES"+constant_suffix;
 class="kw">break;
 case Event_Currency_SEK_SE:class=class="str">"cmt">//String Request for SEK currency
 class="kw">return constant_prefix+"=&class="macro">#x27;SEK&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;SE"+constant_suffix;
 class="kw">break;
 case Event_Currency_ALL_WW:class=class="str">"cmt">//String Request for ALL currency
 class="kw">return constant_prefix+"=&class="macro">#x27;ALL&class="macro">#x27; and MQ.EventCode=&class="macro">#x27;WW"+constant_suffix;
 class="kw">break;

class="kw">default:class=class="str">"cmt">//String Request for no currencies
      class="kw">return constant_prefix+"=&class="macro">#x27;"+constant_suffix;
      class="kw">break;
      }
   }
 class=class="str">"cmt">//Public declarations accessable via a class&class="macro">#x27;s Object
class="kw">public:
             CNews(class="type">void);class=class="str">"cmt">//Constructor
            ~CNews(class="type">void);class=class="str">"cmt">//Destructor
 class="type">void          CreateEconomicDatabase();class=class="str">"cmt">//Creates the Calendar database for a specific Broker
 class="type">class="kw">datetime      GetLatestNewsDate();class=class="str">"cmt">//Gets the latest/newest date in the Calendar database
 class="type">void          EconomicDetails(Calendar &NewsTime[],class="type">class="kw">datetime date_from=class="num">0,class="type">class="kw">datetime date_to=class="num">0);class=class="str">"cmt">//Gets values from the MQL5 economic Calendar
 class="type">void          EconomicDetailsMemory(Calendar &NewsTime[],class="type">class="kw">datetime date);class=class="str">"cmt">//Gets values from the MQL5 DB Calendar in Memory
 class="type">void          CreateEconomicDatabaseMemory();class=class="str">"cmt">//Create calendar database in memory
 class="type">void          EconomicNextEvent(class="type">class="kw">datetime date=class="num">0);class=class="str">"cmt">//Will update UpcomingNews structure variable with the next event data
 class="type">bool          UpdateRecords();class=class="str">"cmt">//Checks if the main Calendar database needs an update or not
 ENUM_CALENDAR_EVENT_IMPACT GetImpact();class=class="str">"cmt">//Will retrieve Upcoming Event Impact data
 class=class="str">"cmt">//--- Convert Importance class="type">class="kw">string into Calendar Event Importance Enumeration
 ENUM_CALENDAR_EVENT_IMPORTANCE IMPORTANCE(class="type">class="kw">string Importance)
  {
  class=class="str">"cmt">//--- Calendar Importance is High
  if(Importance==EnumToString(CALENDAR_IMPORTANCE_HIGH))
   {
   class="kw">return CALENDAR_IMPORTANCE_HIGH;
   }
  else
  class=class="str">"cmt">//--- Calendar Importance is Moderate
   if(Importance==EnumToString(CALENDAR_IMPORTANCE_MODERATE))
    {
    class="kw">return CALENDAR_IMPORTANCE_MODERATE;
    }
   else
   class=class="str">"cmt">//--- Calendar Importance is Low
    if(Importance==EnumToString(CALENDAR_IMPORTANCE_LOW))
     {
     class="kw">return CALENDAR_IMPORTANCE_LOW;
     }
   else
   class=class="str">"cmt">//--- Calendar Importance is None
    {

ENUM_CALENDAR_EVENT_IMPORTANCE IMPORTANCE(Calendar_Importance Importance)
  {
   class="kw">switch(Importance)
     {
      case Calendar_Importance_None:
        class="kw">return CALENDAR_IMPORTANCE_NONE;
        class="kw">break;
      case Calendar_Importance_Low:
        class="kw">return CALENDAR_IMPORTANCE_LOW;
        class="kw">break;
      case Calendar_Importance_Moderate:
        class="kw">return CALENDAR_IMPORTANCE_MODERATE;
        class="kw">break;
      case Calendar_Importance_High:
        class="kw">return CALENDAR_IMPORTANCE_HIGH;
        class="kw">break;
      class="kw">default:
        class="kw">return CALENDAR_IMPORTANCE_NONE;
        class="kw">break;
     }
  }
class="type">class="kw">string GetImportance(ENUM_CALENDAR_EVENT_IMPORTANCE Importance)
  {
   class="kw">switch(Importance)
     {
      case  CALENDAR_IMPORTANCE_HIGH:
        class="kw">return "HIGH";
        class="kw">break;
      case CALENDAR_IMPORTANCE_MODERATE:
        class="kw">return "MODERATE";
        class="kw">break;
      case CALENDAR_IMPORTANCE_LOW:
        class="kw">return "LOW";
        class="kw">break;
      class="kw">default:
        class="kw">return "NONE";
        class="kw">break;
     }
  }
class="type">class="kw">color GetImportance_color(ENUM_CALENDAR_EVENT_IMPORTANCE Importance)
  {
   class="kw">switch(Importance)

{
 case CALENDAR_IMPORTANCE_HIGH:class=class="str">"cmt">//High
   class="kw">return clrRed;
   class="kw">break;
 case CALENDAR_IMPORTANCE_MODERATE:class=class="str">"cmt">//Moderate
   class="kw">return clrOrange;
   class="kw">break;
 case CALENDAR_IMPORTANCE_LOW:class=class="str">"cmt">//Low
   class="kw">return (isLightMode)?clrBlue:clrLightBlue;
   class="kw">break;
 class="kw">default:class=class="str">"cmt">//None
   class="kw">return (isLightMode)?clrBlack:clrWheat;
   class="kw">break;
}
 }
 class=class="str">"cmt">//--- Convert Event_Sector Enumeration into Calendar Event Sector Enumeration
 ENUM_CALENDAR_EVENT_SECTOR SECTOR(Event_Sector Sector)
  {
  class=class="str">"cmt">//--- class="kw">switch statement for Event_Sector enumeration
  class="kw">switch(Sector)
   {
   case Event_Sector_None:class=class="str">"cmt">//NONE
    class="kw">return CALENDAR_SECTOR_NONE;
    class="kw">break;
   case Event_Sector_Market:class=class="str">"cmt">//MARKET
    class="kw">return CALENDAR_SECTOR_MARKET;
    class="kw">break;
   case Event_Sector_Gdp:class=class="str">"cmt">//GDP
    class="kw">return CALENDAR_SECTOR_GDP;
    class="kw">break;
   case Event_Sector_Jobs:class=class="str">"cmt">//JOBS
    class="kw">return CALENDAR_SECTOR_JOBS;
    class="kw">break;
   case Event_Sector_Prices:class=class="str">"cmt">//PRICES
    class="kw">return CALENDAR_SECTOR_PRICES;
    class="kw">break;
   case Event_Sector_Money:class=class="str">"cmt">//MONEY
    class="kw">return CALENDAR_SECTOR_MONEY;
    class="kw">break;
   case Event_Sector_Trade:class=class="str">"cmt">//TRADE
    class="kw">return CALENDAR_SECTOR_TRADE;
    class="kw">break;
   case Event_Sector_Government:class=class="str">"cmt">//GOVERNMENT
    class="kw">return CALENDAR_SECTOR_GOVERNMENT;
    class="kw">break;
   case Event_Sector_Business:class=class="str">"cmt">//BUSINESS
    class="kw">return CALENDAR_SECTOR_BUSINESS;

         class="kw">break;
       case Event_Sector_Consumer:class=class="str">"cmt">//CONSUMER
            class="kw">return CALENDAR_SECTOR_CONSUMER;
            class="kw">break;
       case Event_Sector_Housing:class=class="str">"cmt">//HOUSING
            class="kw">return CALENDAR_SECTOR_HOUSING;
            class="kw">break;
       case Event_Sector_Taxes:class=class="str">"cmt">//TAXES
            class="kw">return CALENDAR_SECTOR_TAXES;
            class="kw">break;
       case Event_Sector_Holidays:class=class="str">"cmt">//HOLIDAYS
            class="kw">return CALENDAR_SECTOR_HOLIDAYS;
            class="kw">break;
       class="kw">default:class=class="str">"cmt">//Unknown
            class="kw">return CALENDAR_SECTOR_NONE;
            class="kw">break;
       }
   }
  class=class="str">"cmt">//--- Convert Event_Frequency Enumeration into Calendar Event Frequency Enumeration
  ENUM_CALENDAR_EVENT_FREQUENCY FREQUENCY(Event_Frequency Frequency)
   {
   class=class="str">"cmt">//--- class="kw">switch statement for Event_Frequency enumeration
   class="kw">switch(Frequency)
     {
     case  Event_Frequency_None:class=class="str">"cmt">//NONE
          class="kw">return CALENDAR_FREQUENCY_NONE;
          class="kw">break;
     case Event_Frequency_Day:class=class="str">"cmt">//DAY
          class="kw">return CALENDAR_FREQUENCY_DAY;
          class="kw">break;
     case Event_Frequency_Week:class=class="str">"cmt">//WEEK
          class="kw">return CALENDAR_FREQUENCY_WEEK;
          class="kw">break;
     case Event_Frequency_Month:class=class="str">"cmt">//MONTH
          class="kw">return CALENDAR_FREQUENCY_MONTH;
          class="kw">break;
     case Event_Frequency_Quarter:class=class="str">"cmt">//QUARTER
          class="kw">return CALENDAR_FREQUENCY_QUARTER;
          class="kw">break;
     case Event_Frequency_Year:class=class="str">"cmt">//YEAR
          class="kw">return CALENDAR_FREQUENCY_YEAR;
          class="kw">break;
     class="kw">default:class=class="str">"cmt">//Unknown
          class="kw">return CALENDAR_FREQUENCY_NONE;
          class="kw">break;
     }
   }
  class=class="str">"cmt">//--- Convert Event_Type Enumeration into Calendar Event Type Enumeration
  ENUM_CALENDAR_EVENT_TYPE TYPE(Event_Type Type)
   {

class=class="str">"cmt">//--- initializing properties for the EventInfo view
  CalendarContents[class="num">5].Content = EventInfo_View;
  CalendarContents[class="num">5].name = "Event Info";
  CalendarContents[class="num">5].sql = "CREATE VIEW IF NOT EXISTS &class="macro">#x27;Event Info "
              "AS SELECT EVENTID as &class="macro">#x27;ID&class="macro">#x27;,COUNTRY as &class="macro">#x27;Country&class="macro">#x27;,EVENTNAME as &class="macro">#x27;Name&class="macro">#x27;,"
              "REPLACE(EVENTTYPE,&class="macro">#x27;CALENDAR_TYPE_&class="macro">#x27;,&class="macro">#x27;&class="macro">#x27;) as &class="macro">#x27;Type&class="macro">#x27;,REPLACE(EVENTSECTOR,&class="macro">#x27;CALENDAR_SECTOR_&class="macro">#x27;,&class="macro">#x27;&class="macro">#x27;) as &class="macro">#x27;Sector&class="macro">#x27;,"
              "REPLACE(EVENTIMPORTANCE,&class="macro">#x27;CALENDAR_IMPORTANCE_&class="macro">#x27;,&class="macro">#x27;&class="macro">#x27;) as &class="macro">#x27;Importance&class="macro">#x27;,EVENTCURRENCY as &class="macro">#x27;Currency&class="macro">#x27; "
              "FROM MQL5Calendar GROUP BY \"Name\" ORDER BY \"Country\" Asc,"
              "CASE \"Importance\" WHEN &class="macro">#x27;HIGH&class="macro">#x27; THEN class="num">1 WHEN &class="macro">#x27;MODERATE&class="macro">#x27; THEN class="num">2 WHEN &class="macro">#x27;LOW&class="macro">#x27; THEN class="num">3 ELSE class="num">4 END,\"Sector\" Desc;";
  CalendarContents[class="num">5].tbl_name = "Event Info";
  CalendarContents[class="num">5].type = "view";

class=class="str">"cmt">//--- initializing properties for the EventInfo view
  CalendarContents[class="num">5].Content = EventInfo_View;
  CalendarContents[class="num">5].name = "Event Info";
  CalendarContents[class="num">5].sql = "CREATE VIEW IF NOT EXISTS &class="macro">#x27;Event Info "
              "AS SELECT EVENTID as &class="macro">#x27;ID&class="macro">#x27;,COUNTRY as &class="macro">#x27;Country&class="macro">#x27;,EVENTNAME as &class="macro">#x27;Name&class="macro">#x27;,"
              "REPLACE(EVENTTYPE,&class="macro">#x27;CALENDAR_TYPE_&class="macro">#x27;,&class="macro">#x27;&class="macro">#x27;) as &class="macro">#x27;Type&class="macro">#x27;,REPLACE(EVENTSECTOR,&class="macro">#x27;CALENDAR_SECTOR_&class="macro">#x27;,&class="macro">#x27;&class="macro">#x27;) as &class="macro">#x27;Sector&class="macro">#x27;,"
              "REPLACE(EVENTIMPORTANCE,&class="macro">#x27;CALENDAR_IMPORTANCE_&class="macro">#x27;,&class="macro">#x27;&class="macro">#x27;) as &class="macro">#x27;Importance&class="macro">#x27;,EVENTCURRENCY as &class="macro">#x27;Currency&class="macro">#x27; "
              "FROM MQL5Calendar GROUP BY \"Name\" ORDER BY \"Country\" Asc,"
              "CASE \"Importance\" WHEN &class="macro">#x27;HIGH&class="macro">#x27; THEN class="num">1 WHEN &class="macro">#x27;MODERATE&class="macro">#x27; THEN class="num">2 WHEN &class="macro">#x27;LOW&class="macro">#x27; THEN class="num">3 ELSE class="num">4 END,\"Sector\" Desc;";
  CalendarContents[class="num">5].tbl_name = "Event Info";
  CalendarContents[class="num">5].type = "view";

class=class="str">"cmt">//--- initializing properties for the Currencies view
   CalendarContents[class="num">6].Content = Currencies_View;
   CalendarContents[class="num">6].name = "Currencies";
   CalendarContents[class="num">6].sql = "CREATE VIEW IF NOT EXISTS Currencies AS "
                         "SELECT Distinct EventCurrency as &class="macro">#x27;Currency&class="macro">#x27;,EventCode as &class="macro">#x27;Code&class="macro">#x27; FROM &class="macro">#x27;MQL5Calendar&class="macro">#x27;;"
   CalendarContents[class="num">6].tbl_name = "Currencies";
   CalendarContents[class="num">6].type = "view";

class="type">void CNews::CreateEconomicDatabaseMemory()
  {
class=class="str">"cmt">//--- Open/create the database in memory
   DBMemoryConnection=DatabaseOpen(NEWS_DATABASE_MEMORY,DATABASE_OPEN_MEMORY);
   if(DBMemoryConnection==INVALID_HANDLE)class=class="str">"cmt">//Checks if the database failed to open/create
     {
       Print("DB: ",NEWS_DATABASE_MEMORY, " open failed with code ", GetLastError());
       class="kw">return;class=class="str">"cmt">//will terminate execution of the rest of the code below
     }
class=class="str">"cmt">//--- Drop the table if it already exists
   DatabaseExecute(DBMemoryConnection,StringFormat("Drop table IF EXISTS %s",DBMemory.name));
class=class="str">"cmt">//--- Attempt to create the table
   if(!DatabaseExecute(DBMemoryConnection,DBMemory.sql))
     {
       Print("DB: create the Calendar table failed with code ", GetLastError());
       class="kw">return;
     }
class=class="str">"cmt">//--- Check if the table exists
   if(DatabaseTableExists(DBMemoryConnection,DBMemory.tbl_name))
     {
       class=class="str">"cmt">//--- Get all news data and time from the database in storage
       GetCalendar(DB_Data);
       class=class="str">"cmt">//--- Insert all the news data and times into the table
       for(class="type">uint i=class="num">0;i<DB_Data.Size();i++)
         {
          class="type">class="kw">string request_text=StringFormat(DBMemory.insert,DB_Data[i].EventId,DB_Data[i].Country,
                                           DB_Data[i].EventName,DB_Data[i].EventType,DB_Data[i].EventImportance,
                                           DB_Data[i].EventCurrency,DB_Data[i].EventCode,DB_Data[i].EventSector,
                                           DB_Data[i].EventForecast,DB_Data[i].EventPreval,DB_Data[i].EventImpact,

class="type">class="kw">string request_text=StringFormat("WITH MySubQuery AS(SELECT EventId as &class="macro">#x27;Id&class="macro">#x27;,Country,EventName as &class="macro">#x27;Name&class="macro">#x27;,EventType as &class="macro">#x27;Type&class="macro">#x27;"
																															",EventImportance as &class="macro">#x27;Importance&class="macro">#x27;,%s as &class="macro">#x27;CTime&class="macro">#x27;,EventCurrency as &class="macro">#x27;Currency&class="macro">#x27;,EventCode as &class="macro">#x27;Code&class="macro">#x27;,"
																															"EventSector as &class="macro">#x27;Sector&class="macro">#x27;,EventForecast as &class="macro">#x27;Forecast&class="macro">#x27;,EventPrevalue as &class="macro">#x27;Prevalue&class="macro">#x27;,EventImpact as&class="macro">#x27;Impact&class="macro">#x27;,"
																															"EventFrequency as &class="macro">#x27;Freq&class="macro">#x27;,RANK() OVER(PARTITION BY %s Order BY CASE EventPrevalue WHEN &class="macro">#x27;None&class="macro">#x27; "
																															"THEN class="num">2 ELSE class="num">1 END,CASE EventForecast WHEN &class="macro">#x27;None&class="macro">#x27; THEN class="num">2 ELSE class="num">1 END,CASE EventImportance WHEN "
																															"&class="macro">#x27;CALENDAR_IMPORTANCE_HIGH&class="macro">#x27; THEN class="num">1 WHEN &class="macro">#x27;CALENDAR_IMPORTANCE_MODERATE&class="macro">#x27; THEN class="num">2 WHEN &class="macro">#x27;CALENDAR_IMPORTANCE_LOW&class="macro">#x27;"
																															" THEN class="num">3 ELSE class="num">4 END) Ranking FROM %s) SELECT Id,Country,Name,Type,Importance,CTime,Currency,Code,Sector,"
																															"Forecast,Prevalue,Impact,Freq FROM MySubQuery where Date(Replace(CTime,&class="macro">#x27;.&class="macro">#x27;,&class="macro">#x27;-&class="macro">#x27;))=Date(Replace(&class="macro">#x27;%s&class="macro">#x27;,&class="macro">#x27;.&class="macro">#x27;,&class="macro">#x27;-&class="macro">#x27;)) and "
																															"Ranking<class="num">2 Group by CTime;",EnumToString(MySchedule),EnumToString(MySchedule),DBMemory.name,
																															TimeToString(date));

class="type">int request=DatabasePrepare(DBMemoryConnection,request_text);class=class="str">"cmt">//Creates a handle of a request, which can then be executed class="kw">using DatabaseRead()
if(request==INVALID_HANDLE)class=class="str">"cmt">//Checks if the request failed to be completed
  {
    Print("DB: ",NEWS_DATABASE_MEMORY, " request failed with code ", GetLastError());
    PrintFormat(request_text);
  }
class=class="str">"cmt">//--- Calendar structure variable
Calendar ReadDB_Data;
class=class="str">"cmt">//--- Remove any data in the array
ArrayRemove(NewsTime,class="num">0,WHOLE_ARRAY);
for(class="type">int i=class="num">0; DatabaseReadBind(request,ReadDB_Data); i++)class=class="str">"cmt">//Will read all the results from the sql query/request
  {
    class=class="str">"cmt">//--- Resize array NewsTime
    ArrayResize(NewsTime,i+class="num">1,i+class="num">2);
    class=class="str">"cmt">//--- Assign calendar structure values into NewsTime array index
    NewsTime[i]  = ReadDB_Data;
  }
class=class="str">"cmt">//--- Removes a request created in DatabasePrepare()
DatabaseFinalize(request);

class="type">int request=DatabasePrepare(DBMemoryConnection,request_text);class=class="str">"cmt">//Creates a handle of a request, which can then be executed class="kw">using DatabaseRead()
if(request==INVALID_HANDLE)class=class="str">"cmt">//Checks if the request failed to be completed
  {
    Print("DB: ",NEWS_DATABASE_MEMORY, " request failed with code ", GetLastError());
    PrintFormat(request_text);
  }
class=class="str">"cmt">//--- Calendar structure variable
Calendar ReadDB_Data;
class=class="str">"cmt">//--- Remove any data in the array
ArrayRemove(NewsTime,class="num">0,WHOLE_ARRAY);
for(class="type">int i=class="num">0; DatabaseReadBind(request,ReadDB_Data); i++)class=class="str">"cmt">//Will read all the results from the sql query/request
  {
    class=class="str">"cmt">//--- Resize array NewsTime
    ArrayResize(NewsTime,i+class="num">1,i+class="num">2);
    class=class="str">"cmt">//--- Assign calendar structure values into NewsTime array index
    NewsTime[i]  = ReadDB_Data;
  }
class=class="str">"cmt">//--- Removes a request created in DatabasePrepare()
DatabaseFinalize(request);

class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Will update UpcomingNews structure variable with the next event  |
class=class="str">"cmt">//|data                                                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CNews::EconomicNextEvent(class="type">class="kw">datetime date=class="num">0)
  {
class=class="str">"cmt">//--- Declare unassigned Calendar structure variable Empty
   Calendar Empty;
class=class="str">"cmt">//--- assign empty values to Calendar structure variable UpcomingNews
   UpcomingNews = Empty;
class=class="str">"cmt">//--- If date variable is zero then assign current date
   date = (date==class="num">0)?TimeTradeServer():date;
class=class="str">"cmt">//--- Query to retrieve next upcoming event.
   class="type">class="kw">string request_text=StringFormat("WITH MySubQuery AS(SELECT EventId as &class="macro">#x27;Id&class="macro">#x27;,Country,EventName as &class="macro">#x27;Name&class="macro">#x27;,"

WITH MySubQuery AS(SELECT EventId as &class="macro">#x27;Id&class="macro">#x27;,Country,EventName as &class="macro">#x27;Name&class="macro">#x27;,EventType as &class="macro">#x27;Type&class="macro">#x27;,EventImportance as &class="macro">#x27;Importance&class="macro">#x27;,
DST_NONE as &class="macro">#x27;CTime&class="macro">#x27;,EventCurrency as &class="macro">#x27;Currency&class="macro">#x27;,EventCode as &class="macro">#x27;Code&class="macro">#x27;,EventSector as &class="macro">#x27;Sector&class="macro">#x27;,EventForecast as &class="macro">#x27;Forecast&class="macro">#x27;,
EventPrevalue as &class="macro">#x27;Prevalue&class="macro">#x27;,EventImpact as &class="macro">#x27;Impact&class="macro">#x27;,EventFrequency as &class="macro">#x27;Freq&class="macro">#x27;,RANK() OVER(PARTITION BY DST_NONE
Order BY CASE EventPrevalue WHEN &class="macro">#x27;None&class="macro">#x27; THEN class="num">2 ELSE class="num">1 END,CASE EventForecast WHEN &class="macro">#x27;None&class="macro">#x27; THEN class="num">2 ELSE class="num">1 END,
CASE EventImportance WHEN &class="macro">#x27;CALENDAR_IMPORTANCE_HIGH&class="macro">#x27; THEN class="num">1 WHEN &class="macro">#x27;CALENDAR_IMPORTANCE_MODERATE&class="macro">#x27; THEN class="num">2
WHEN &class="macro">#x27;CALENDAR_IMPORTANCE_LOW&class="macro">#x27; THEN class="num">3 ELSE class="num">4 END) Ranking FROM MQL5Calendar) SELECT Id,Country,Name,Type,
Importance,CTime,Currency,Code,Sector,Forecast,Prevalue,Impact,Freq FROM MySubQuery where

ENUM_CALENDAR_EVENT_IMPACT CNews::GetImpact()
  {
class=class="str">"cmt">//--- Declaration of class="type">class="kw">string variable
   class="type">class="kw">string impact=NULL;
class=class="str">"cmt">//--- Query to get impact data from previous event with the same event id and matching EventPrevalue and EventForecast scenarios.
   class="type">class="kw">string request_text=StringFormat("SELECT EventImpact FROM %s where Replace(%s,&class="macro">#x27;.&class="macro">#x27;,&class="macro">#x27;-&class="macro">#x27;)<Replace(&class="macro">#x27;%s&class="macro">#x27;,&class="macro">#x27;.&class="macro">#x27;,&class="macro">#x27;-&class="macro">#x27;) AND EventId=%d"
                                    " %s ORDER BY %s DESC LIMIT class="num">1;",DBMemory.name,EnumToString(MySchedule),UpcomingNews.EventDate,
                                    UpcomingNews.EventId,((UpcomingNews.EventPreval=="None"||UpcomingNews.EventForecast=="None")?
                                    "AND EventImpact=&class="macro">#x27;CALENDAR_IMPACT_NA&class="macro">#x27;":(class="type">int(UpcomingNews.EventPreval)<class="type">int(UpcomingNews.EventForecast))?
                                    "AND EventPrevalue<EventForecast AND EventImpact<>&class="macro">#x27;CALENDAR_IMPACT_NA&class="macro">#x27;":
                                    (class="type">int(UpcomingNews.EventPreval)>class="type">int(UpcomingNews.EventForecast))?
                                    "AND EventPrevalue>EventForecast AND EventImpact<>&class="macro">#x27;CALENDAR_IMPACT_NA&class="macro">#x27;":
                                    "AND EventPrevalue=EventForecast AND EventImpact<>&class="macro">#x27;CALENDAR_IMPACT_NA&class="macro">#x27;"),
                                    EnumToString(MySchedule));
   class="type">int request=DatabasePrepare(DBMemoryConnection,request_text);class=class="str">"cmt">//Creates a handle of a request, which can then be executed class="kw">using DatabaseRead()
   if(request==INVALID_HANDLE)class=class="str">"cmt">//Checks if the request failed to be completed
     {
      Print("DB: ",NEWS_DATABASE_MEMORY, " request failed with code ", GetLastError());
      PrintFormat(request_text);
     }

if(DatabaseRead(request))class=class="str">"cmt">//Will read the one record in the &class="macro">#x27;Record&class="macro">#x27; table
    {
      class=class="str">"cmt">//--- assign first column result into impact variable
      DatabaseColumnText(request,class="num">0,impact);
    }
class=class="str">"cmt">//--- Removes a request created in DatabasePrepare()
   DatabaseFinalize(request);
class=class="str">"cmt">//--- Return equivalent Event impact in the enumeration ENUM_CALENDAR_EVENT_IMPACT
   if(impact=="CALENDAR_IMPACT_POSITIVE")
    {
       class="kw">return CALENDAR_IMPACT_POSITIVE;
    }
   else
     if(impact=="CALENDAR_IMPACT_NEGATIVE")
       {
         class="kw">return CALENDAR_IMPACT_NEGATIVE;
       }
      else
       {
         class="kw">return CALENDAR_IMPACT_NA;
       }
 }
class=class="str">"cmt">//--- Query to get impact data from previous event with the same event id and matching EventPrevalue and EventForecast scenarios.
   class="type">class="kw">string request_text=StringFormat("SELECT EventImpact FROM %s where Replace(%s,&class="macro">#x27;.&class="macro">#x27;,&class="macro">#x27;-&class="macro">#x27;)<Replace(&class="macro">#x27;%s&class="macro">#x27;,&class="macro">#x27;.&class="macro">#x27;,&class="macro">#x27;-&class="macro">#x27;) AND EventId=%d"
                                   " %s ORDER BY %s DESC LIMIT class="num">1;",DBMemory.name,EnumToString(MySchedule),UpcomingNews.EventDate,
                                   UpcomingNews.EventId,((UpcomingNews.EventPreval=="None"||UpcomingNews.EventForecast=="None")?
                                   "AND EventImpact=&class="macro">#x27;CALENDAR_IMPACT_NA&class="macro">#x27;":(class="type">int(UpcomingNews.EventPreval)<class="type">int(UpcomingNews.EventForecast))?
                                   "AND EventPrevalue<EventForecast AND EventImpact<>&class="macro">#x27;CALENDAR_IMPACT_NA&class="macro">#x27;":
                                   (class="type">int(UpcomingNews.EventPreval)>class="type">int(UpcomingNews.EventForecast))?
                                   "AND EventPrevalue>EventForecast AND EventImpact<>&class="macro">#x27;CALENDAR_IMPACT_NA&class="macro">#x27;":
                                   "AND EventPrevalue=EventForecast AND EventImpact<>&class="macro">#x27;CALENDAR_IMPACT_NA&class="macro">#x27;"),
                                   EnumToString(MySchedule));
SELECT EventImpact FROM MQL5Calendar where Replace(DST_NONE,&class="macro">#x27;.&class="macro">#x27;,&class="macro">#x27;-&class="macro">#x27;)<Replace(&class="macro">#x27;class="num">2024.08.class="num">01 class="num">16:class="num">30&class="macro">#x27;,&class="macro">#x27;.&class="macro">#x27;,&class="macro">#x27;-&class="macro">#x27;) AND EventId=class="num">124500001
AND EventPrevalue<EventForecast AND EventImpact<>&class="macro">#x27;CALENDAR_IMPACT_NA&class="macro">#x27; ORDER BY DST_NONE DESC LIMIT class="num">1;

class="macro">#include "ObjectProperties.mqh"
class="macro">#include "RiskManagement.mqh"
class="macro">#include "CommonVariables.mqh"
class="macro">#include "News.mqh"
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|CommonGraphics class                                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CCommonGraphics:CObjectProperties
  {
class="kw">private:
   class=class="str">"cmt">//--- GraphicText structure this structure is responsible for managing the graphical text
   class="kw">struct GraphicText
     {
   class="kw">private:
      class=class="str">"cmt">//--- this structure will store properties for the subtext
      class="kw">struct subtextformat
        {
         class="type">class="kw">string      Label;class=class="str">"cmt">//Store text label
         class="type">class="kw">string      Text;class=class="str">"cmt">//Store text value
        };
      class=class="str">"cmt">//--- this structure inherits from subtextformat and is responsible for finding text
      class="kw">struct found:subtextformat
        {
         class="type">bool        isFound;class=class="str">"cmt">//Check if text is found
         class="type">int         index;class=class="str">"cmt">//Get index for the text
        };
      class=class="str">"cmt">//--- structure array for subtexts
subtextformat   sub_text[];
      class=class="str">"cmt">//--- function to find text properties from text&class="macro">#x27;s label
      found        FoundText(class="type">class="kw">string label)
        {
         found find;
         find.Label="";
         find.Text="";
         find.isFound=class="kw">false;
         find.index=-class="num">1;
         for(class="type">uint i=class="num">0;i<sub_text.Size();i++)
           {
            class=class="str">"cmt">//--- If text label is found in array
            if(label==sub_text[i].Label)
              {
               class=class="str">"cmt">//--- Assign text properties
               find.Label=sub_text[i].Label;
               find.Text=sub_text[i].Text;

      find.isFound=true;
      find.index=class="type">int(i);
      class="kw">return find;class=class="str">"cmt">//class="kw">return found text properties
      }
     }
   class="kw">return find;class=class="str">"cmt">//class="kw">return text properties
   }
  class=class="str">"cmt">//--- class="kw">public declaration for class="kw">struct GraphicText
  class="kw">public:
  class=class="str">"cmt">//--- class="type">class="kw">string variable
  class="type">class="kw">string        text;
  class=class="str">"cmt">//--- function to set/add text properties
  class="type">void          subtext(class="type">class="kw">string label,class="type">class="kw">string value)
    {
    class=class="str">"cmt">//--- Get text properties from label
    found result = FoundText(label);
    class=class="str">"cmt">//--- Check if text label was found/exists in array sub_text
    if(!result.isFound)
      {
      class=class="str">"cmt">//--- Resize array sub_text
      ArrayResize(sub_text,sub_text.Size()+class="num">1,sub_text.Size()+class="num">2);
      class=class="str">"cmt">//--- Add text properties for new array index
      sub_text[sub_text.Size()-class="num">1].Label = label;
      sub_text[sub_text.Size()-class="num">1].Text = value;
      }
    else
      {
      class=class="str">"cmt">/* Set new text/class="kw">override text from text label that exists
      in the array sub_text array */
      sub_text[result.index].Text = value;
      }
    }
  class=class="str">"cmt">//--- function to retrieve text from text label
  class="type">class="kw">string        subtext(class="type">class="kw">string label)
    {
    class="kw">return FoundText(label).Text;
    }
   };class=class="str">"cmt">// End of class="kw">struct GraphicText
  class=class="str">"cmt">//--- AccountInfo object declaration
  CAccountInfo        CAccount;
  class=class="str">"cmt">//--- News object declaration
  CNews               NewsObj;
  class=class="str">"cmt">//--- TimeManagement object declaration
  CTimeManagement     CTime;
  class=class="str">"cmt">//--- Calendar structure array declaration
  Calendar            CalendarArray[];
  class=class="str">"cmt">//--- class="type">class="kw">color variable declaration
  class="type">class="kw">color               EventColor;
  class=class="str">"cmt">//--- unit variable declarations
  class="type">uint                Fontsize,X_start,Y_start;
  class=class="str">"cmt">//--- class="type">void function declarations for Graphical blocks
  class="type">void                Block_1();
  class="type">void                Block_2(class="type">uint SecondsPreEvent=class="num">5);
  CRiskManagement     CRisk;class=class="str">"cmt">//Risk management class object
  class=class="str">"cmt">//--- GraphicText structure array declarations
  GraphicText         Texts_Block1[class="num">9],Texts_Block2[class="num">7];

class="kw">struct Text_Prop_Size
  {
    class="type">uint        Height;class=class="str">"cmt">//store text height
    class="type">uint        Width;class=class="str">"cmt">//store text width
  };
class="type">void                GetTextMaxWidthAndHeight(GraphicText &Texts[],class="type">uint &Max_Height,class="type">uint &Max_Width,class="type">uint FontSize)
  {
    class=class="str">"cmt">//--- set fontsize properties to get accurate text height and width sizes
    TextSetFont("Arial",(-class="num">1*FontSize)-class="num">100);
    class=class="str">"cmt">//--- set variables to class="kw">default value of zero
    Max_Height=class="num">0;
    Max_Width=class="num">0;
    class=class="str">"cmt">//--- loop through all texts in the GraphicText array Texts
    for(class="type">uint i=class="num">0;i<Texts.Size();i++)
      {
       class=class="str">"cmt">//--- temporary declarations for height and width
       class="type">uint Height=class="num">0,Width=class="num">0;
       class=class="str">"cmt">//--- retrieve text height and width from index in Texts array
       TextGetSize(Texts[i].text,Width,Height);
       class=class="str">"cmt">//--- sum texts height to variable Max_Height
       Max_Height+=Height;
       class=class="str">"cmt">//--- assign width if text width is more than variable Max_Width value
       Max_Width=(Width>Max_Width)?Width:Max_Width;
      }
  }
Text_Prop_Size      GetText(class="type">class="kw">string Text,class="type">uint FontSize)
  {
    class=class="str">"cmt">//--- structure Text_Prop_Size variable
    Text_Prop_Size Size;
    class=class="str">"cmt">//--- set fontsize properties to get accurate text height and width sizes
    TextSetFont("Arial",(-class="num">1*FontSize)-class="num">100);
    class=class="str">"cmt">//--- retrieve text height and width from Text class="type">class="kw">string variable
    TextGetSize(Text,Size.Width,Size.Height);
    class=class="str">"cmt">//--- class="kw">return structure Text_Prop_Size variable
    class="kw">return Size;
  }
Text_Prop_Size      GetTextMax(GraphicText &Texts[],class="type">uint FontSize)
  {
    class=class="str">"cmt">//--- structure Text_Prop_Size variable
    Text_Prop_Size Size;
    class=class="str">"cmt">//--- class="type">uint variable declarations for text properties
    class="type">uint Max_Height;
    class="type">uint Max_Width;
    class=class="str">"cmt">//--- Retrieve sum of texts height and maximum texts width into Max_Height,Max_Width
    GetTextMaxWidthAndHeight(Texts,Max_Height,Max_Width,FontSize);
    class=class="str">"cmt">//--- assign values into structure Text_Prop_Size variable
    Size.Height = Max_Height;
    Size.Width = Max_Width;
    class=class="str">"cmt">//--- class="kw">return structure Text_Prop_Size variable
    class="kw">return Size;
  }
class="type">bool                is_date,is_spread,is_news,is_events;

CCommonGraphics(class="type">bool display_date,class="type">bool display_spread,class="type">bool display_news,class="type">bool display_events);
~CCommonGraphics(class="type">void) {}
class="type">void GraphicsRefresh(class="type">uint SecondsPreEvent=class="num">5);
class="type">void Block_2_Realtime(class="type">uint SecondsPreEvent=class="num">5);
class="type">void NewsEvent();
};
class="kw">struct GraphicText
 {
 class="kw">private:
 class="kw">struct subtextformat
   {
    class="type">class="kw">string Label;
    class="type">class="kw">string Text;
   };
 class="kw">struct found:subtextformat
   {
    class="type">bool isFound;
    class="type">int  index;
   };
 subtextformat sub_text[];
 found FoundText(class="type">class="kw">string label)
   {
    found find;
    find.Label="";
    find.Text="";
    find.isFound=class="kw">false;
    find.index=-class="num">1;
    for(class="type">uint i=class="num">0;i<sub_text.Size();i++)
     {
      if(label==sub_text[i].Label)
       {
        find.Label=sub_text[i].Label;
        find.Text=sub_text[i].Text;
        find.isFound=true;
        find.index=class="type">int(i);
        class="kw">return find;
       }
     }

class="kw">return find;class=class="str">"cmt">//class="kw">return text properties
}
class=class="str">"cmt">//--- class="kw">public declaration for class="kw">struct GraphicText
class="kw">public:
class=class="str">"cmt">//--- class="type">class="kw">string variable
class="type">class="kw">string        text;
class=class="str">"cmt">//--- function to set/add text properties
class="type">void          subtext(class="type">class="kw">string label,class="type">class="kw">string value)
  {
   class=class="str">"cmt">//--- Get text properties from label
   found result = FoundText(label);
   class=class="str">"cmt">//--- Check if text label was found/exists in array sub_text
   if(!result.isFound)
     {
      class=class="str">"cmt">//--- Resize array sub_text
      ArrayResize(sub_text,sub_text.Size()+class="num">1,sub_text.Size()+class="num">2);
      class=class="str">"cmt">//--- Add text properties for new array index
      sub_text[sub_text.Size()-class="num">1].Label = label;
      sub_text[sub_text.Size()-class="num">1].Text = value;
     }
   else
     {
      class=class="str">"cmt">/* Set new text/class="kw">override text from text label that exists
      in the array sub_text array */
      sub_text[result.index].Text = value;
     }
  }
class=class="str">"cmt">//--- function to retrieve text from text label
class="type">class="kw">string        subtext(class="type">class="kw">string label)
  {
   class="kw">return FoundText(label).Text;
  }
 };class=class="str">"cmt">// End of class="kw">struct GraphicText
class=class="str">"cmt">//--- class="type">void function to retrieve sum of the texts height and the maximum width of texts from GraphicText array Texts
 class="type">void          GetTextMaxWidthAndHeight(GraphicText &Texts[],class="type">uint &Max_Height,class="type">uint &Max_Width,class="type">uint FontSize)
  {
   class=class="str">"cmt">//--- set fontsize properties to get accurate text height and width sizes
   TextSetFont("Arial",(-class="num">1*FontSize)-class="num">100);
   class=class="str">"cmt">//--- set variables to class="kw">default value of zero
   Max_Height=class="num">0;
   Max_Width=class="num">0;
   class=class="str">"cmt">//--- loop through all texts in the GraphicText array Texts
   for(class="type">uint i=class="num">0;i<Texts.Size();i++)
     {
      class=class="str">"cmt">//--- temporary declarations for height and width
      class="type">uint Height=class="num">0,Width=class="num">0;
      class=class="str">"cmt">//--- retrieve text height and width from index in Texts array
      TextGetSize(Texts[i].text,Width,Height);
      class=class="str">"cmt">//--- sum texts height to variable Max_Height
      Max_Height+=Height;

class=class="str">"cmt">//--- assign width if text width is more than variable Max_Width value
   Max_Width=(Width>Max_Width)?Width:Max_Width;
   }
    }
class=class="str">"cmt">//--- function to retrieve text height and width properties in the structure Text_Prop_Size format
  Text_Prop_Size  GetText(class="type">class="kw">string Text,class="type">uint FontSize)
   {
   class=class="str">"cmt">//--- structure Text_Prop_Size variable
   Text_Prop_Size Size;
   class=class="str">"cmt">//--- set fontsize properties to get accurate text height and width sizes
   TextSetFont("Arial",(-class="num">1*FontSize)-class="num">100);
   class=class="str">"cmt">//--- retrieve text height and width from Text class="type">class="kw">string variable
   TextGetSize(Text,Size.Width,Size.Height);
   class=class="str">"cmt">//--- class="kw">return structure Text_Prop_Size variable
   class="kw">return Size;
   }
class=class="str">"cmt">//--- Function to get texts height sum and max width in the structure Text_Prop_Size format
  Text_Prop_Size  GetTextMax(GraphicText &Texts[],class="type">uint FontSize)
   {
   class=class="str">"cmt">//--- structure Text_Prop_Size variable
   Text_Prop_Size Size;
   class=class="str">"cmt">//--- class="type">uint variable declarations for text properties
   class="type">uint Max_Height;
   class="type">uint Max_Width;
   class=class="str">"cmt">//--- Retrieve sum of texts height and maximum texts width into Max_Height,Max_Width
   GetTextMaxWidthAndHeight(Texts,Max_Height,Max_Width,FontSize);
   class=class="str">"cmt">//--- assign values into structure Text_Prop_Size variable
   Size.Height = Max_Height;
   Size.Width = Max_Width;
   class=class="str">"cmt">//--- class="kw">return structure Text_Prop_Size variable
   class="kw">return Size;
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Constructor                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
CCommonGraphics::CCommonGraphics(class="type">bool display_date,class="type">bool display_spread,class="type">bool display_news,class="type">bool display_events):
class=class="str">"cmt">//--- Assign variables
  is_date(display_date),is_spread(display_spread),is_news(display_news),is_events(display_events)
  {
class=class="str">"cmt">//--- get next news event
  NewsObject.EconomicNextEvent();
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|will create/refresh the chart objects                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CCommonGraphics::GraphicsRefresh(class="type">uint SecondsPreEvent=class="num">5)
  {
class=class="str">"cmt">//--- create graphics if outside the strategy tester or in the strategy tester and visual mode is enabled
   if((!MQLInfoInteger(MQL_TESTER))||(MQLInfoInteger(MQL_TESTER)&&MQLInfoInteger(MQL_VISUAL_MODE)))
    {
    class=class="str">"cmt">//--- Delete chart objects
    DeleteObj();class=class="str">"cmt">//function from Object properties class
    Block_1();class=class="str">"cmt">//Create graphics for block class="num">1
    class=class="str">"cmt">//--- Check whether to create graphics for block class="num">2
    if(is_date||is_news||is_spread)
      {
       Block_2(SecondsPreEvent);class=class="str">"cmt">//Create graphics for block class="num">2
      }

class="type">void CCommonGraphics::Block_1()
  {
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
   TextObj_color = (isLightMode)?clrBlack:clrWheat;
class=class="str">"cmt">//--- Set text properties for Symbol name,Symbol period and Symbol description # section class="num">1
   Texts_Block1[class="num">0].text = Symbol()+", "+GetChartPeriodName()+": "+CSymbol.Description();class=class="str">"cmt">//set main text
   Texts_Block1[class="num">0].subtext("Symbol Name",Symbol()+",");class=class="str">"cmt">//set subtext - label,value
   Texts_Block1[class="num">0].subtext("Symbol Period",GetChartPeriodName());class=class="str">"cmt">//set subtext - label,value
   Texts_Block1[class="num">0].subtext("Symbol Desc",": "+CSymbol.Description());class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Contract size # section class="num">2
   Texts_Block1[class="num">1].text = "Contract Size: "+class="type">class="kw">string(CSymbol.ContractSize());class=class="str">"cmt">//set main text
   Texts_Block1[class="num">1].subtext("Contract Size Text","Contract Size:");class=class="str">"cmt">//set subtext - label,value
   Texts_Block1[class="num">1].subtext("Contract Size",class="type">class="kw">string(CSymbol.ContractSize()));class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Minimum lot # section class="num">3
   Texts_Block1[class="num">2].text = "Minimum Lot: "+class="type">class="kw">string(CSymbol.LotsMin());class=class="str">"cmt">//set main text
   Texts_Block1[class="num">2].subtext("Minimum Lot Text","Minimum Lot:");class=class="str">"cmt">//set subtext - label,value
   Texts_Block1[class="num">2].subtext("Minimum Lot",class="type">class="kw">string(CSymbol.LotsMin()));class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Max lot # section class="num">4
   Texts_Block1[class="num">3].text = "Max Lot: "+class="type">class="kw">string(CSymbol.LotsMax());class=class="str">"cmt">//set main text
   Texts_Block1[class="num">3].subtext("Max Lot Text","Max Lot:");class=class="str">"cmt">//set subtext - label,value
   Texts_Block1[class="num">3].subtext("Max Lot",class="type">class="kw">string(CSymbol.LotsMax()));class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Volume step # section class="num">5
   Texts_Block1[class="num">4].text = "Volume Step: "+class="type">class="kw">string(CSymbol.LotsStep());class=class="str">"cmt">//set main text
   Texts_Block1[class="num">4].subtext("Volume Step Text","Volume Step:");class=class="str">"cmt">//set subtext - label,value
   Texts_Block1[class="num">4].subtext("Volume Step",class="type">class="kw">string(CSymbol.LotsStep()));class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Volume limit # section class="num">6
   Texts_Block1[class="num">5].text = "Volume Limit: "+class="type">class="kw">string(CSymbol.LotsLimit());class=class="str">"cmt">//set main text
   Texts_Block1[class="num">5].subtext("Volume Limit Text","Volume Limit:");class=class="str">"cmt">//set subtext - label,value
   Texts_Block1[class="num">5].subtext("Volume Limit",class="type">class="kw">string(CSymbol.LotsLimit()));class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Risk option # section class="num">7
   Texts_Block1[class="num">6].text = "Risk Option: "+CRisk.GetRiskOption();class=class="str">"cmt">//set main text

  Texts_Block1[class="num">6].subtext("Risk Option Text","Risk Option:");class=class="str">"cmt">//set subtext - label,value
  Texts_Block1[class="num">6].subtext("Risk Option",CRisk.GetRiskOption());class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Risk floor # section class="num">8
  Texts_Block1[class="num">7].text = "Risk Floor: "+CRisk.GetRiskFloor();class=class="str">"cmt">//set main text
  Texts_Block1[class="num">7].subtext("Risk Floor Text","Risk Floor:");class=class="str">"cmt">//set subtext - label,value
  Texts_Block1[class="num">7].subtext("Risk Floor",CRisk.GetRiskFloor());class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Risk ceiling # section class="num">9
  Texts_Block1[class="num">8].text = "Risk Ceiling: "+CRisk.GetRiskCeil();class=class="str">"cmt">//set main text
  Texts_Block1[class="num">8].subtext("Risk Ceiling Text","Risk Ceiling:");class=class="str">"cmt">//set subtext - label,value
  Texts_Block1[class="num">8].subtext("Risk Ceiling",CRisk.GetRiskCeil());class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set basic properties
  Fontsize=class="num">10;class=class="str">"cmt">//Set Fontsize
  X_start=class="num">2;class=class="str">"cmt">//Set X distance
  Y_start=class="num">2;class=class="str">"cmt">//Set Y distance
class=class="str">"cmt">/* Create objects # section class="num">1*/
class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">1 text
  Square(class="num">0,"Symbol Name background",X_start,Y_start,GetText(Texts_Block1[class="num">0].text,Fontsize).Width,
        GetText(Texts_Block1[class="num">0].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//-- Will create the text objects for section class="num">1
  TextObj(class="num">0,"Symbol Name",Texts_Block1[class="num">0].subtext("Symbol Name"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block1[class="num">0].subtext("Symbol Name"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Symbol Period",Texts_Block1[class="num">0].subtext("Symbol Period"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block1[class="num">0].subtext("Symbol Period"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Symbol Desc",Texts_Block1[class="num">0].subtext("Symbol Desc"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">2*/
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  Y_start+=GetText(Texts_Block1[class="num">0].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance, add height from section class="num">1
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">2 text
  Square(class="num">0,"Symbol Contract Size background",X_start,Y_start,GetText(Texts_Block1[class="num">1].text,Fontsize).Width,
        GetText(Texts_Block1[class="num">1].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//-- Will create the text objects for section class="num">2
  TextObj(class="num">0,"Symbol Contract Size Text",Texts_Block1[class="num">1].subtext("Contract Size Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block1[class="num">1].subtext("Contract Size Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance

  TextObj(class="num">0,"Symbol Contract Size",Texts_Block1[class="num">1].subtext("Contract Size"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">3*/
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  Y_start+=GetText(Texts_Block1[class="num">1].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance, add height from section class="num">2
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">3 text
  Square(class="num">0,"Symbol MinLot background",X_start,Y_start,GetText(Texts_Block1[class="num">2].text,Fontsize).Width,
        GetText(Texts_Block1[class="num">2].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//-- Will create the text objects for section class="num">3
  TextObj(class="num">0,"Symbol MinLot Text",Texts_Block1[class="num">2].subtext("Minimum Lot Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block1[class="num">2].subtext("Minimum Lot Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Symbol MinLot",Texts_Block1[class="num">2].subtext("Minimum Lot"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">4*/
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  Y_start+=GetText(Texts_Block1[class="num">2].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance, add height from section class="num">3
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">4 text
  Square(class="num">0,"Symbol MaxLot background",X_start,Y_start,GetText(Texts_Block1[class="num">3].text,Fontsize).Width,
        GetText(Texts_Block1[class="num">3].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//-- Will create the text objects for section class="num">4
  TextObj(class="num">0,"Symbol MaxLot Text",Texts_Block1[class="num">3].subtext("Max Lot Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block1[class="num">3].subtext("Max Lot Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Symbol MaxLot",Texts_Block1[class="num">3].subtext("Max Lot"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">5*/
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  Y_start+=GetText(Texts_Block1[class="num">3].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance, add height from section class="num">4
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">5 text
  Square(class="num">0,"Symbol Volume Step background",X_start,Y_start,GetText(Texts_Block1[class="num">4].text,Fontsize).Width,
        GetText(Texts_Block1[class="num">4].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//-- Will create the text objects for section class="num">5
  TextObj(class="num">0,"Symbol Volume Step Text",Texts_Block1[class="num">4].subtext("Volume Step Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);

  X_start+=GetText(Texts_Block1[class="num">4].subtext("Volume Step Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Symbol Volume Step",Texts_Block1[class="num">4].subtext("Volume Step"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">6*/
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  Y_start+=GetText(Texts_Block1[class="num">4].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance, add height from section class="num">5
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">6 text
  Square(class="num">0,"Symbol Volume Limit background",X_start,Y_start,GetText(Texts_Block1[class="num">5].text,Fontsize).Width,
        GetText(Texts_Block1[class="num">5].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//-- Will create the text objects for section class="num">6
  TextObj(class="num">0,"Symbol Volume Limit Text",Texts_Block1[class="num">5].subtext("Volume Limit Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block1[class="num">5].subtext("Volume Limit Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Symbol Volume Limit",Texts_Block1[class="num">5].subtext("Volume Limit"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">7*/
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  Y_start+=GetText(Texts_Block1[class="num">5].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance, add height from section class="num">6
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">7 text
  Square(class="num">0,"Risk Option background",X_start,Y_start,GetText(Texts_Block1[class="num">6].text,Fontsize).Width,
        GetText(Texts_Block1[class="num">6].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//-- Will create the text objects for section class="num">7
  TextObj(class="num">0,"Risk Option Text",Texts_Block1[class="num">6].subtext("Risk Option Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block1[class="num">6].subtext("Risk Option Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Risk Option",Texts_Block1[class="num">6].subtext("Risk Option"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">8*/
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  Y_start+=GetText(Texts_Block1[class="num">6].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance, add height from section class="num">7
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">8 text
  Square(class="num">0,"Risk Floor background",X_start,Y_start,GetText(Texts_Block1[class="num">7].text,Fontsize).Width,
        GetText(Texts_Block1[class="num">7].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//-- Will create the text objects for section class="num">8

  TextObj(class="num">0,"Risk Floor Text",Texts_Block1[class="num">7].subtext("Risk Floor Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block1[class="num">7].subtext("Risk Floor Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Risk Floor",Texts_Block1[class="num">7].subtext("Risk Floor"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">9*/
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  Y_start+=GetText(Texts_Block1[class="num">7].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance, add height from section class="num">8
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">9 text
  Square(class="num">0,"Risk Ceil background",X_start,Y_start,GetText(Texts_Block1[class="num">8].text,Fontsize).Width,
        GetText(Texts_Block1[class="num">8].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//-- Will create the text objects for section class="num">9
  TextObj(class="num">0,"Risk Ceil Text",Texts_Block1[class="num">8].subtext("Risk Ceiling Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block1[class="num">8].subtext("Risk Ceiling Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Risk Ceil",Texts_Block1[class="num">8].subtext("Risk Ceiling"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Graphical Block class="num">2                                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CCommonGraphics::Block_2(class="type">uint SecondsPreEvent=class="num">5)
  {
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
  TextObj_color=(isLightMode)?clrBlack:clrWheat;
  if(is_date)class=class="str">"cmt">//Check whether to display date information
    {
    class=class="str">"cmt">//--- Set text properties for Date and Time # section class="num">10
    Texts_Block2[class="num">0].text = "Date:"+TimeToString(TimeTradeServer(),TIME_DATE)+"|| Time:"+TimeToString(TimeTradeServer(),TIME_MINUTES)
                        +"  ";class=class="str">"cmt">//set main text
    Texts_Block2[class="num">0].subtext("Date Text","Date:");class=class="str">"cmt">//set subtext - label,value
    Texts_Block2[class="num">0].subtext("Date",TimeToString(TimeTradeServer(),TIME_DATE));class=class="str">"cmt">//set subtext - label,value
    Texts_Block2[class="num">0].subtext("Time Text","|| Time:");class=class="str">"cmt">//set subtext - label,value
    Texts_Block2[class="num">0].subtext("Time",TimeToString(TimeTradeServer(),TIME_MINUTES));class=class="str">"cmt">//set subtext - label,value
    }
  if(is_news)class=class="str">"cmt">//Check whether to display news information
    {
    class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance

EventColor = NewsObj.GetImportance_color(NewsObj.IMPORTANCE(UpcomingNews.EventImportance));
class=class="str">"cmt">//--- Set text properties for Event Date # section class="num">11
Texts_Block2[class="num">1].text = "Event: @"+UpcomingNews.EventDate+" ";class=class="str">"cmt">//set main text
Texts_Block2[class="num">1].subtext("Event Date Text","Event: @");class=class="str">"cmt">//set subtext - label,value
Texts_Block2[class="num">1].subtext("Event Date",UpcomingNews.EventDate);class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Event Name # section class="num">12
Texts_Block2[class="num">2].text = "Name: "+UpcomingNews.EventName+" ";class=class="str">"cmt">//set main text
Texts_Block2[class="num">2].subtext("Event Name Text","Name: ");class=class="str">"cmt">//set subtext - label,value
Texts_Block2[class="num">2].subtext("Event Name",UpcomingNews.EventName);class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Event Country # section class="num">13
Texts_Block2[class="num">3].text = "Country: "+UpcomingNews.CountryName+" ";class=class="str">"cmt">//set main text
Texts_Block2[class="num">3].subtext("Event Country Text","Country: ");class=class="str">"cmt">//set subtext - label,value
Texts_Block2[class="num">3].subtext("Event Country",UpcomingNews.CountryName);class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Event Currency # section class="num">14
Texts_Block2[class="num">4].text = "Currency: "+UpcomingNews.EventCurrency+" ";class=class="str">"cmt">//set main text
Texts_Block2[class="num">4].subtext("Event Currency Text","Currency: ");class=class="str">"cmt">//set subtext - label,value
Texts_Block2[class="num">4].subtext("Event Currency",UpcomingNews.EventCurrency);class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Event Importance # section class="num">15
Texts_Block2[class="num">5].text = "Importance: "+NewsObj.GetImportance(NewsObj.IMPORTANCE(UpcomingNews.EventImportance))+" ";class=class="str">"cmt">//set main text
Texts_Block2[class="num">5].subtext("Importance Text","Importance: ");class=class="str">"cmt">//set subtext - label,value
Texts_Block2[class="num">5].subtext("Importance",NewsObj.GetImportance(NewsObj.IMPORTANCE(UpcomingNews.EventImportance)));class=class="str">"cmt">//set subtext - label,value
 }
 if(is_spread)class=class="str">"cmt">//Check whether to display spread information
  {
  class=class="str">"cmt">//--- Set text properties for Spread # section class="num">16
  Texts_Block2[class="num">6].text = "Spread: "+class="type">class="kw">string(CSymbol.Spread())+" Rating: "+CSymbol.SpreadDesc()+" ";class=class="str">"cmt">//set main text
  Texts_Block2[class="num">6].subtext("Spread Text","Spread:");class=class="str">"cmt">//set subtext - label,value
  Texts_Block2[class="num">6].subtext("Spread",class="type">class="kw">string(CSymbol.Spread()));class=class="str">"cmt">//set subtext - label,value
  Texts_Block2[class="num">6].subtext("Rating Text"," Rating:");class=class="str">"cmt">//set subtext - label,value
  Texts_Block2[class="num">6].subtext("Rating Desc",CSymbol.SpreadDesc());class=class="str">"cmt">//set subtext - label,value
  }
class=class="str">"cmt">//--- Set basic properties
  Fontsize=class="num">10;
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance

Y_start=GetTextMax(Texts_Block1,Fontsize).Height+class="num">29;class=class="str">"cmt">//Re-adjust Y distance from graphical block class="num">1 Height
class=class="str">"cmt">/* Create objects # section class="num">10*/
if(is_date)class=class="str">"cmt">//Check whether to display date information
  {
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">10 text
  Square(class="num">0,"Datetime background",X_start,Y_start,GetText(Texts_Block2[class="num">0].text,Fontsize).Width,
         GetText(Texts_Block2[class="num">0].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
  class=class="str">"cmt">//-- Will create the text objects for section class="num">10
  TextObj(class="num">0,"Date Text",Texts_Block2[class="num">0].subtext("Date Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block2[class="num">0].subtext("Date Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Date",Texts_Block2[class="num">0].subtext("Date"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block2[class="num">0].subtext("Date"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  TextObj(class="num">0,"Time Text",Texts_Block2[class="num">0].subtext("Time Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block2[class="num">0].subtext("Time Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  class=class="str">"cmt">//--- Adjust text class="type">class="kw">color depending if chart class="type">class="kw">color mode is LightMode and if a news event is occurring
  TextObj_color = CTime.TimeIsInRange(CTime.TimeMinusOffset(class="type">class="kw">datetime(UpcomingNews.EventDate),SecondsPreEvent),
                                                      CTime.TimePlusOffset(class="type">class="kw">datetime(UpcomingNews.EventDate),class="num">59))?clrRed:(isLightMode)?clrBlack:clrWheat;
  TextObj(class="num">0,"Time",Texts_Block2[class="num">0].subtext("Time"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  }
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if(UpcomingNews.CountryName!=NULL&&is_news)class=class="str">"cmt">//Check whether to display news information and if upcoming news is available
  {
  class=class="str">"cmt">/* Create objects # section class="num">11*/
  Y_start+=(is_date)?GetText(Texts_Block2[class="num">0].text,Fontsize).Height:class="num">0;class=class="str">"cmt">//Re-adjust Y distance depending if section class="num">10 is shown
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">11 text
  Square(class="num">0,"Event Date background",X_start,Y_start,GetText(Texts_Block2[class="num">1].text,Fontsize).Width,
         GetText(Texts_Block2[class="num">1].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
  class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
  TextObj_color=(isLightMode)?clrBlack:clrWheat;

  class=class="str">"cmt">//-- Will create the text objects for section class="num">11
   TextObj(class="num">0,"Event Date Text",Texts_Block2[class="num">1].subtext("Event Date Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
   X_start+=GetText(Texts_Block2[class="num">1].subtext("Event Date Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Adjust text class="type">class="kw">color depending if chart class="type">class="kw">color mode is LightMode and if a news event is occurring
   TextObj_color = CTime.TimeIsInRange(CTime.TimeMinusOffset(class="type">class="kw">datetime(UpcomingNews.EventDate),SecondsPreEvent),
                                     CTime.TimePlusOffset(class="type">class="kw">datetime(UpcomingNews.EventDate),class="num">59))?clrRed:(isLightMode)?clrBlack:clrWheat;
   TextObj(class="num">0,"Event Date",Texts_Block2[class="num">1].subtext("Event Date"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
   class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
   class=class="str">"cmt">/* Create objects # section class="num">12*/
   Y_start+=GetText(Texts_Block2[class="num">1].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
   X_start=class="num">2;class=class="str">"cmt">//Reset X distance
   class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">12 text
   Square(class="num">0,"Event Name background",X_start,Y_start,GetText(Texts_Block2[class="num">2].text,Fontsize).Width,
          GetText(Texts_Block2[class="num">2].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
   Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
   X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
   TextObj_color=(isLightMode)?clrBlack:clrWheat;
   class=class="str">"cmt">//-- Will create the text objects for section class="num">12
   TextObj(class="num">0,"Event Name Text",Texts_Block2[class="num">2].subtext("Event Name Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
   X_start+=GetText(Texts_Block2[class="num">2].subtext("Event Name Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance
   TextObj_color=EventColor;
   TextObj(class="num">0,"Event Name",Texts_Block2[class="num">2].subtext("Event Name"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
   class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
   class=class="str">"cmt">/* Create objects # section class="num">13*/
   Y_start+=GetText(Texts_Block2[class="num">2].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
   X_start=class="num">2;class=class="str">"cmt">//Reset X distance
   class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">13 text
   Square(class="num">0,"Event Country background",X_start,Y_start,GetText(Texts_Block2[class="num">3].text,Fontsize).Width,
          GetText(Texts_Block2[class="num">3].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
   Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
   X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance

class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
TextObj_color=(isLightMode)?clrBlack:clrWheat;
class=class="str">"cmt">//-- Will create the text objects for section class="num">13
TextObj(class="num">0,"Event Country Text",Texts_Block2[class="num">3].subtext("Event Country Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
X_start+=GetText(Texts_Block2[class="num">3].subtext("Event Country Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance
TextObj_color=EventColor;
TextObj(class="num">0,"Event Country",Texts_Block2[class="num">3].subtext("Event Country"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">14*/
Y_start+=GetText(Texts_Block2[class="num">3].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
X_start=class="num">2;class=class="str">"cmt">//Reset X distance
class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">14 text
Square(class="num">0,"Event Currency background",X_start,Y_start,GetText(Texts_Block2[class="num">4].text,Fontsize).Width,
       GetText(Texts_Block2[class="num">4].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
TextObj_color=(isLightMode)?clrBlack:clrWheat;
class=class="str">"cmt">//-- Will create the text objects for section class="num">14
TextObj(class="num">0,"Event Currency Text",Texts_Block2[class="num">4].subtext("Event Currency Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
X_start+=GetText(Texts_Block2[class="num">4].subtext("Event Currency Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance
TextObj_color=EventColor;
TextObj(class="num">0,"Event Currency",Texts_Block2[class="num">4].subtext("Event Currency"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">15*/
Y_start+=GetText(Texts_Block2[class="num">4].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
X_start=class="num">2;class=class="str">"cmt">//Reset X distance
class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">15 text
Square(class="num">0,"Event Importance background",X_start,Y_start,GetText(Texts_Block2[class="num">5].text,Fontsize).Width,
       GetText(Texts_Block2[class="num">5].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
TextObj_color=(isLightMode)?clrBlack:clrWheat;

class=class="str">"cmt">//-- Will create the text objects for section class="num">15
TextObj(class="num">0,"Importance Text",Texts_Block2[class="num">5].subtext("Importance Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
X_start+=GetText(Texts_Block2[class="num">5].subtext("Importance Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance
TextObj_color=EventColor;
TextObj(class="num">0,"Importance",Texts_Block2[class="num">5].subtext("Importance"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">16*/
if(is_spread)class=class="str">"cmt">//Check whether to display spread information
  {
   Y_start+=GetText(Texts_Block2[class="num">5].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
   X_start=class="num">2;class=class="str">"cmt">//Reset X distance
   class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">16 text
   Square(class="num">0,"Spread background",X_start,Y_start,GetText(Texts_Block2[class="num">6].text,Fontsize).Width,
         GetText(Texts_Block2[class="num">6].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
   Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
   X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
   class="type">class="kw">color Spread_clr=CSymbol.SpreadColor();
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
   TextObj_color=(isLightMode)?clrBlack:clrWheat;
   class=class="str">"cmt">//-- Will create the text objects for section class="num">16
   TextObj(class="num">0,"Symbol Spread Text",Texts_Block2[class="num">6].subtext("Spread Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
   X_start+=GetText(Texts_Block2[class="num">6].subtext("Spread Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
   TextObj_color=Spread_clr;
   TextObj(class="num">0,"Symbol Spread",Texts_Block2[class="num">6].subtext("Spread"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
   X_start+=GetText(Texts_Block2[class="num">6].subtext("Spread"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
   TextObj_color=(isLightMode)?clrBlack:clrWheat;
   TextObj(class="num">0,"Symbol Rating Text",Texts_Block2[class="num">6].subtext("Rating Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
   X_start+=GetText(Texts_Block2[class="num">6].subtext("Rating Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
   TextObj_color=Spread_clr;

if(is_spread)class=class="str">"cmt">//Check whether to display spread information
  {
  Y_start+=(is_date)?GetText(Texts_Block2[class="num">0].text,Fontsize).Height:class="num">0;class=class="str">"cmt">//Re-adjust Y distance depending if section class="num">10 is shown
  X_start=class="num">2;class=class="str">"cmt">//Reset X distance
  class=class="str">"cmt">//-- Create the background object for width and height+class="num">3 of section class="num">16 text
  Square(class="num">0,"Spread background",X_start,Y_start,GetText(Texts_Block2[class="num">6].text,Fontsize).Width,
        GetText(Texts_Block2[class="num">6].text,Fontsize).Height+class="num">3,ANCHOR_LEFT_UPPER);
  Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
  X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
  class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
  class="type">class="kw">color Spread_clr=CSymbol.SpreadColor();
  class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
  TextObj_color=(isLightMode)?clrBlack:clrWheat;
  class=class="str">"cmt">//-- Will create the text objects for section class="num">16
  TextObj(class="num">0,"Symbol Spread Text",Texts_Block2[class="num">6].subtext("Spread Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block2[class="num">6].subtext("Spread Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
  TextObj_color=Spread_clr;
  TextObj(class="num">0,"Symbol Spread",Texts_Block2[class="num">6].subtext("Spread"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block2[class="num">6].subtext("Spread"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
  TextObj_color=(isLightMode)?clrBlack:clrWheat;
  TextObj(class="num">0,"Symbol Rating Text",Texts_Block2[class="num">6].subtext("Rating Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  X_start+=GetText(Texts_Block2[class="num">6].subtext("Rating Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
  class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
  TextObj_color=Spread_clr;
  TextObj(class="num">0,"Symbol Rating",Texts_Block2[class="num">6].subtext("Rating Desc"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
  }

if(MQLInfoInteger(MQL_TESTER)&&!MQLInfoInteger(MQL_VISUAL_MODE))
   {
      class="kw">return;class=class="str">"cmt">//exit if in strategy tester and not in visual mode
   }
 if(is_date)class=class="str">"cmt">//Check whether to display date information
   {
      class=class="str">"cmt">//--- Set text properties for Date and Time # section class="num">10
      Texts_Block2[class="num">0].text = "Date:"+TimeToString(TimeTradeServer(),TIME_DATE)+"|| Time:"+TimeToString(TimeTradeServer(),TIME_SECONDS)
                           +"   ";class=class="str">"cmt">//set main text
      Texts_Block2[class="num">0].subtext("Date Text","Date:");class=class="str">"cmt">//set subtext - label,value
      Texts_Block2[class="num">0].subtext("Date",TimeToString(TimeTradeServer(),TIME_DATE));class=class="str">"cmt">//set subtext - label,value
      Texts_Block2[class="num">0].subtext("Time Text","|| Time:");class=class="str">"cmt">//set subtext - label,value
      Texts_Block2[class="num">0].subtext("Time",TimeToString(TimeTradeServer(),TIME_SECONDS));class=class="str">"cmt">//set subtext - label,value
   }
 if(is_news)class=class="str">"cmt">//Check whether to display news information
   {
      class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance
      EventColor = NewsObj.GetImportance_color(NewsObj.IMPORTANCE(UpcomingNews.EventImportance));
      class=class="str">"cmt">//--- Set text properties for Event Date # section class="num">11
      Texts_Block2[class="num">1].text = "Event: @"+UpcomingNews.EventDate+" ";class=class="str">"cmt">//set main text
      Texts_Block2[class="num">1].subtext("Event Date Text","Event: @");class=class="str">"cmt">//set subtext - label,value
      Texts_Block2[class="num">1].subtext("Event Date",UpcomingNews.EventDate);class=class="str">"cmt">//set subtext - label,value
      class=class="str">"cmt">//--- Set text properties for Event Name # section class="num">12
      Texts_Block2[class="num">2].text = "Name: "+UpcomingNews.EventName+" ";class=class="str">"cmt">//set main text
      Texts_Block2[class="num">2].subtext("Event Name Text","Name: ");class=class="str">"cmt">//set subtext - label,value
      Texts_Block2[class="num">2].subtext("Event Name",UpcomingNews.EventName);class=class="str">"cmt">//set subtext - label,value
      class=class="str">"cmt">//--- Set text properties for Event Country # section class="num">13
      Texts_Block2[class="num">3].text = "Country: "+UpcomingNews.CountryName+" ";class=class="str">"cmt">//set main text
      Texts_Block2[class="num">3].subtext("Event Country Text","Country: ");class=class="str">"cmt">//set subtext - label,value
      Texts_Block2[class="num">3].subtext("Event Country",UpcomingNews.CountryName);class=class="str">"cmt">//set subtext - label,value
      class=class="str">"cmt">//--- Set text properties for Event Currency # section class="num">14
      Texts_Block2[class="num">4].text = "Currency: "+UpcomingNews.EventCurrency+" ";class=class="str">"cmt">//set main text
      Texts_Block2[class="num">4].subtext("Event Currency Text","Currency: ");class=class="str">"cmt">//set subtext - label,value

Texts_Block2[class="num">4].subtext("Event Currency",UpcomingNews.EventCurrency);class=class="str">"cmt">//set subtext - label,value
class=class="str">"cmt">//--- Set text properties for Event Importance # section class="num">15
Texts_Block2[class="num">5].text = "Importance: "+NewsObj.GetImportance(NewsObj.IMPORTANCE(UpcomingNews.EventImportance))+" ";class=class="str">"cmt">//set main text
Texts_Block2[class="num">5].subtext("Importance Text","Importance: ");class=class="str">"cmt">//set subtext - label,value
Texts_Block2[class="num">5].subtext("Importance",NewsObj.GetImportance(NewsObj.IMPORTANCE(UpcomingNews.EventImportance)));class=class="str">"cmt">//set subtext - label,value
 }
 if(is_spread)class=class="str">"cmt">//Check whether to display spread information
 {
class=class="str">"cmt">//--- Set text properties for Spread # section class="num">16
Texts_Block2[class="num">6].text = "Spread: "+class="type">class="kw">string(CSymbol.Spread())+" Rating: "+CSymbol.SpreadDesc()+" ";class=class="str">"cmt">//set main text
Texts_Block2[class="num">6].subtext("Spread Text","Spread:");class=class="str">"cmt">//set subtext - label,value
Texts_Block2[class="num">6].subtext("Spread",class="type">class="kw">string(CSymbol.Spread()));class=class="str">"cmt">//set subtext - label,value
Texts_Block2[class="num">6].subtext("Rating Text"," Rating:");class=class="str">"cmt">//set subtext - label,value
Texts_Block2[class="num">6].subtext("Rating Desc",CSymbol.SpreadDesc());class=class="str">"cmt">//set subtext - label,value
 }
class=class="str">"cmt">//--- Set basic properties
 Fontsize=class="num">10;
 X_start=class="num">2;class=class="str">"cmt">//Reset X distance
 Y_start=GetTextMax(Texts_Block1,Fontsize).Height+class="num">29;class=class="str">"cmt">//Re-adjust Y distance from section block class="num">1
 class=class="str">"cmt">/* Create objects # section class="num">10*/
 if(is_date)class=class="str">"cmt">//Check whether to display date information
 {
class=class="str">"cmt">//-- Check if the background object x-size for section class="num">10 is the same size as section class="num">10 text width
 if(ObjectGetInteger(class="num">0,"Datetime background",OBJPROP_XSIZE)!=GetText(Texts_Block2[class="num">0].text,Fontsize).Width)
  {
  class=class="str">"cmt">//-- Will re-adjust background object to any changes of section class="num">10 text width
  ObjectSetInteger(class="num">0,"Datetime background",OBJPROP_XSIZE,class="type">long(GetText(Texts_Block2[class="num">0].text,Fontsize).Width));
  }
 Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
 X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
 TextObj_color=(isLightMode)?clrBlack:clrWheat;
class=class="str">"cmt">//-- Will update the text objects for section class="num">10
 TextObj(class="num">0,"Date Text",Texts_Block2[class="num">0].subtext("Date Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
 X_start+=GetText(Texts_Block2[class="num">0].subtext("Date Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
 TextObj_color=(isLightMode)?clrBlack:clrWheat;
 TextObj(class="num">0,"Date",Texts_Block2[class="num">0].subtext("Date"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);

X_start+=GetText(Texts_Block2[class="num">0].subtext("Date"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
TextObj_color=(isLightMode)?clrBlack:clrWheat;
TextObj(class="num">0,"Time Text",Texts_Block2[class="num">0].subtext("Time Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
X_start+=GetText(Texts_Block2[class="num">0].subtext("Time Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Adjust text class="type">class="kw">color depending if chart class="type">class="kw">color mode is LightMode and if a news event is occurring
TextObj_color = CTime.TimeIsInRange(CTime.TimeMinusOffset(class="type">class="kw">datetime(UpcomingNews.EventDate),SecondsPreEvent),
                      CTime.TimePlusOffset(class="type">class="kw">datetime(UpcomingNews.EventDate),class="num">59))?clrRed:(isLightMode)?clrBlack:clrWheat;
TextObj(class="num">0,"Time",Texts_Block2[class="num">0].subtext("Time"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
 }
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  if(UpcomingNews.CountryName!=NULL&&is_news)class=class="str">"cmt">//Check whether to display news information
   {
   class=class="str">"cmt">/* Create objects # section class="num">11*/
   Y_start+=(is_date)?GetText(Texts_Block2[class="num">0].text,Fontsize).Height:class="num">0;
   X_start=class="num">2;class=class="str">"cmt">//Reset X distance
   class=class="str">"cmt">//-- Check if the background object x-size for section class="num">11 is the same size as section class="num">11 text width
   if(ObjectGetInteger(class="num">0,"Event Date background",OBJPROP_XSIZE)!=GetText(Texts_Block2[class="num">1].text,Fontsize).Width)
     {
     class=class="str">"cmt">//-- Will re-adjust background object to any changes of section class="num">11 text width
     ObjectSetInteger(class="num">0,"Event Date background",OBJPROP_XSIZE,class="type">long(GetText(Texts_Block2[class="num">1].text,Fontsize).Width));
     }
   Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
   X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
   TextObj_color=(isLightMode)?clrBlack:clrWheat;
   class=class="str">"cmt">//-- Will update the text objects for section class="num">11
   TextObj(class="num">0,"Event Date Text",Texts_Block2[class="num">1].subtext("Event Date Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
   X_start+=GetText(Texts_Block2[class="num">1].subtext("Event Date Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Adjust text class="type">class="kw">color depending if chart class="type">class="kw">color mode is LightMode and if a news event is occurring
   TextObj_color = CTime.TimeIsInRange(CTime.TimeMinusOffset(class="type">class="kw">datetime(UpcomingNews.EventDate),SecondsPreEvent),
                      CTime.TimePlusOffset(class="type">class="kw">datetime(UpcomingNews.EventDate),class="num">59))?clrRed:(isLightMode)?clrBlack:clrWheat;

TextObj(class="num">0,"Event Date",Texts_Block2[class="num">1].subtext("Event Date"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">12*/
Y_start+=GetText(Texts_Block2[class="num">1].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
X_start=class="num">2;class=class="str">"cmt">//Reset X distance
class=class="str">"cmt">//-- Check if the background object x-size for section class="num">12 is the same size as section class="num">12 text width
if(ObjectGetInteger(class="num">0,"Event Name background",OBJPROP_XSIZE)!=GetText(Texts_Block2[class="num">2].text,Fontsize).Width)
  {
   class=class="str">"cmt">//-- Will re-adjust background object to any changes of section class="num">12 text width
   ObjectSetInteger(class="num">0,"Event Name background",OBJPROP_XSIZE,class="type">long(GetText(Texts_Block2[class="num">2].text,Fontsize).Width));
   }
Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
TextObj_color=(isLightMode)?clrBlack:clrWheat;
class=class="str">"cmt">//-- Will update the text objects for section class="num">12
TextObj(class="num">0,"Event Name Text",Texts_Block2[class="num">2].subtext("Event Name Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
X_start+=GetText(Texts_Block2[class="num">2].subtext("Event Name Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance
TextObj_color=EventColor;
TextObj(class="num">0,"Event Name",Texts_Block2[class="num">2].subtext("Event Name"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">13*/
Y_start+=GetText(Texts_Block2[class="num">2].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
X_start=class="num">2;class=class="str">"cmt">//Reset X distance
class=class="str">"cmt">//-- Check if the background object x-size for section class="num">13 is the same size as section class="num">13 text width
if(ObjectGetInteger(class="num">0,"Event Country background",OBJPROP_XSIZE)!=GetText(Texts_Block2[class="num">3].text,Fontsize).Width)
  {
   class=class="str">"cmt">//-- Will re-adjust background object to any changes of section class="num">13 text width
   ObjectSetInteger(class="num">0,"Event Country background",OBJPROP_XSIZE,class="type">long(GetText(Texts_Block2[class="num">3].text,Fontsize).Width));
   }
Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
TextObj_color=(isLightMode)?clrBlack:clrWheat;
class=class="str">"cmt">//-- Will update the text objects for section class="num">13

TextObj(class="num">0,"Event Country Text",Texts_Block2[class="num">3].subtext("Event Country Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
X_start+=GetText(Texts_Block2[class="num">3].subtext("Event Country Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance
TextObj_color=EventColor;
TextObj(class="num">0,"Event Country",Texts_Block2[class="num">3].subtext("Event Country"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">14*/
Y_start+=GetText(Texts_Block2[class="num">3].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
X_start=class="num">2;class=class="str">"cmt">//Reset X distance
class=class="str">"cmt">//-- Check if the background object x-size for section class="num">14 is the same size as section class="num">14 text width
if(ObjectGetInteger(class="num">0,"Event Currency background",OBJPROP_XSIZE)!=GetText(Texts_Block2[class="num">4].text,Fontsize).Width)
  {
   class=class="str">"cmt">//-- Will re-adjust background object to any changes of section class="num">14 text width
   ObjectSetInteger(class="num">0,"Event Currency background",OBJPROP_XSIZE,class="type">long(GetText(Texts_Block2[class="num">4].text,Fontsize).Width));
   }
Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
TextObj_color=(isLightMode)?clrBlack:clrWheat;
class=class="str">"cmt">//-- Will update the text objects for section class="num">14
TextObj(class="num">0,"Event Currency Text",Texts_Block2[class="num">4].subtext("Event Currency Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
X_start+=GetText(Texts_Block2[class="num">4].subtext("Event Currency Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance
TextObj_color=EventColor;
TextObj(class="num">0,"Event Currency",Texts_Block2[class="num">4].subtext("Event Currency"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">15*/
Y_start+=GetText(Texts_Block2[class="num">4].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
X_start=class="num">2;class=class="str">"cmt">//Reset X distance
class=class="str">"cmt">//-- Check if the background object x-size for section class="num">15 is the same size as section class="num">15 text width
if(ObjectGetInteger(class="num">0,"Event Importance background",OBJPROP_XSIZE)!=GetText(Texts_Block2[class="num">5].text,Fontsize).Width)
  {
   class=class="str">"cmt">//-- Will re-adjust background object to any changes of section class="num">15 text width
   ObjectSetInteger(class="num">0,"Event Importance background",OBJPROP_XSIZE,class="type">long(GetText(Texts_Block2[class="num">5].text,Fontsize).Width));
   }

Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
TextObj_color=(isLightMode)?clrBlack:clrWheat;
class=class="str">"cmt">//-- Will update the text objects for section class="num">15
TextObj(class="num">0,"Importance Text",Texts_Block2[class="num">5].subtext("Importance Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
X_start+=GetText(Texts_Block2[class="num">5].subtext("Importance Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on upcoming news event&class="macro">#x27;s Importance
TextObj_color=EventColor;
TextObj(class="num">0,"Importance",Texts_Block2[class="num">5].subtext("Importance"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
class=class="str">"cmt">///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
class=class="str">"cmt">/* Create objects # section class="num">16*/
if(is_spread)class=class="str">"cmt">//Check whether to display spread information
  {
   Y_start+=GetText(Texts_Block2[class="num">5].text,Fontsize).Height;class=class="str">"cmt">//Re-adjust Y distance
   X_start=class="num">2;class=class="str">"cmt">//Reset X distance
   class=class="str">"cmt">//-- Check if the background object x-size for section class="num">16 is the same size as section class="num">16 text width
   if(ObjectGetInteger(class="num">0,"Spread background",OBJPROP_XSIZE)!=GetText(Texts_Block2[class="num">6].text,Fontsize).Width)
     {
      class=class="str">"cmt">//-- Will re-adjust background object to any changes of section class="num">16 text width
      ObjectSetInteger(class="num">0,"Spread background",OBJPROP_XSIZE,class="type">long(GetText(Texts_Block2[class="num">6].text,Fontsize).Width));
     }
   Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
   X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
   class="type">class="kw">color Spread_clr=CSymbol.SpreadColor();
   class=class="str">"cmt">//-- Will create the text object for the Symbol&class="macro">#x27;s name
   X_start+=GetText(Texts_Block2[class="num">6].subtext("Spread Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
   TextObj_color=Spread_clr;
   class=class="str">"cmt">//-- Will update the text objects for section class="num">16
   TextObj(class="num">0,"Symbol Spread",Texts_Block2[class="num">6].subtext("Spread"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
   X_start+=GetText(Texts_Block2[class="num">6].subtext("Spread"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
   class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
   TextObj_color=(isLightMode)?clrBlack:clrWheat;
   TextObj(class="num">0,"Symbol Rating Text",Texts_Block2[class="num">6].subtext("Rating Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);

X_start+=GetText(Texts_Block2[class="num">6].subtext("Rating Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
TextObj_color=Spread_clr;
TextObj(class="num">0,"Symbol Rating",Texts_Block2[class="num">6].subtext("Rating Desc"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
}
 }
 else
 class=class="str">"cmt">/* Create objects # section class="num">16*/
 if(is_spread)class=class="str">"cmt">//Check whether to display spread information
 {
 Y_start+=(is_date)?GetText(Texts_Block2[class="num">0].text,Fontsize).Height:class="num">0;class=class="str">"cmt">//Re-adjust Y distance
 X_start=class="num">2;class=class="str">"cmt">//Reset X distance
 class=class="str">"cmt">//-- Check if the background object x-size for section class="num">16 is the same size as section class="num">16 text width
 if(ObjectGetInteger(class="num">0,"Spread background",OBJPROP_XSIZE)!=GetText(Texts_Block2[class="num">6].text,Fontsize).Width)
  {
  class=class="str">"cmt">//-- Will re-adjust background object to any changes of section class="num">16 text width
  ObjectSetInteger(class="num">0,"Spread background",OBJPROP_XSIZE,class="type">long(GetText(Texts_Block2[class="num">6].text,Fontsize).Width));
  }
 Y_start+=class="num">3;class=class="str">"cmt">//Re-adjust Y distance
 X_start+=class="num">2;class=class="str">"cmt">//Re-adjust X distance
 class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
 class="type">class="kw">color Spread_clr=CSymbol.SpreadColor();
 class=class="str">"cmt">//-- Will create the text object for the Symbol&class="macro">#x27;s name
 X_start+=GetText(Texts_Block2[class="num">6].subtext("Spread Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
 class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
 TextObj_color=Spread_clr;
 class=class="str">"cmt">//-- Will update the text objects for section class="num">16
 TextObj(class="num">0,"Symbol Spread",Texts_Block2[class="num">6].subtext("Spread"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
 X_start+=GetText(Texts_Block2[class="num">6].subtext("Spread"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
 class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending if the chart class="type">class="kw">color mode is LightMode or not
 TextObj_color=(isLightMode)?clrBlack:clrWheat;
 TextObj(class="num">0,"Symbol Rating Text",Texts_Block2[class="num">6].subtext("Rating Text"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
 X_start+=GetText(Texts_Block2[class="num">6].subtext("Rating Text"),Fontsize).Width;class=class="str">"cmt">//Re-adjust X distance
 class=class="str">"cmt">//--- Set text object class="type">class="kw">color depending on spread rating
 TextObj_color=Spread_clr;
 TextObj(class="num">0,"Symbol Rating",Texts_Block2[class="num">6].subtext("Rating Desc"),X_start,Y_start,CORNER_LEFT_UPPER,Fontsize);
 }

class=class="str">"cmt">//|will create chart event objects                                                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CCommonGraphics::NewsEvent()
  {
   if(!is_events||(MQLInfoInteger(MQL_TESTER)&&!MQLInfoInteger(MQL_VISUAL_MODE)))
     {class="kw">return;}
class=class="str">"cmt">//--- Retrieve news events for the current Daily period into array CalendarArray
   NewsObj.EconomicDetailsMemory(CalendarArray,iTime(Symbol(),PERIOD_D1,class="num">0));
class=class="str">"cmt">//--- Iterate through all events in CalendarArray
   for(class="type">uint i=class="num">0;i<CalendarArray.Size();i++)
     {
      class=class="str">"cmt">//--- Create event object with the news properties
      EventObj(class="num">0,CalendarArray[i].EventName+" "+CalendarArray[i].CountryName+" "+CalendarArray[i].EventDate,
               CalendarArray[i].EventName+"["+CalendarArray[i].CountryName+"]",StringToTime(CalendarArray[i].EventDate));
     }
class=class="str">"cmt">//--- Refresh the chart/ update the chart
   ChartRefresh();
  }

class="macro">#include <Trade\Trade.mqh>
class="macro">#include <Trade\OrderInfo.mqh>
class="macro">#include <Trade\SymbolInfo.mqh>
class="macro">#include "RiskManagement.mqh"
class="macro">#include "TimeManagement.mqh"
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|TradeManagement class                                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CTradeManagement:CRiskManagement
  {
class="kw">private:
   CTrade             Trade;class=class="str">"cmt">//Trade class object
   CSymbolProperties CSymbol;class=class="str">"cmt">//SymbolProperties class object
   CTimeManagement   CTime;class=class="str">"cmt">//TimeManagement class object
   class="type">bool              TradeResult;class=class="str">"cmt">//boolean to store trade result
   class="type">class="kw">double            mySL;class=class="str">"cmt">//class="type">class="kw">double variable to store Stoploss
   class="type">class="kw">double            myTP;class=class="str">"cmt">//class="type">class="kw">double variable to store Takeprofit
class="kw">public:
   class=class="str">"cmt">//--- Class constructor
                     CTradeManagement(class="type">class="kw">string SYMBOL=NULL)
     {
      class=class="str">"cmt">//--- Set symbol name
      CSymbol.SetSymbolName(SYMBOL);
     }
   class=class="str">"cmt">//--- Class destructor
                    ~CTradeManagement(class="type">void) {}
   class=class="str">"cmt">//--- Will retrieve if there are any open trades
   class="type">bool              OpenTrade(class="type">ENUM_POSITION_TYPE Type,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL);
   class=class="str">"cmt">//--- Will retrieve if there are any deals
   class="type">bool              OpenedDeal(ENUM_DEAL_TYPE Type,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL);
   class=class="str">"cmt">//--- Will attempt open buy trade
   class="type">bool              Buy(class="type">class="kw">double SL,class="type">class="kw">double TP,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL);
   class=class="str">"cmt">//--- Will attempt open buy trade with integer SL
   class="type">bool              Buy(class="type">int SL,class="type">class="kw">double TP,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL);
   class=class="str">"cmt">//--- Will attempt open buy trade with integer TP
   class="type">bool              Buy(class="type">class="kw">double SL,class="type">int TP,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL);
   class=class="str">"cmt">//--- Will attempt open buy trade with integer SL & TP
   class="type">bool              Buy(class="type">int SL,class="type">int TP,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL);
   class=class="str">"cmt">//--- Will attempt open sell trade
   class="type">bool              Sell(class="type">class="kw">double SL,class="type">class="kw">double TP,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL);

class="type">bool CTradeManagement::OpenTrade(class="type">ENUM_POSITION_TYPE Type,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL)
  {
   for(class="type">int i=class="num">0; i<PositionsTotal(); i++)
     {
      if(PositionGetTicket(i)>class="num">0)
        {
         if(PositionGetString(POSITION_SYMBOL)==CSymbol.GetSymbolName()&&PositionGetInteger(POSITION_MAGIC)==Magic
           &&PositionGetInteger(POSITION_TYPE)==Type&&PositionGetString(POSITION_COMMENT)==COMMENT)
           {
            class="kw">return true;
           }
        }
     }
   class="kw">return class="kw">false;
  }

class="type">bool CTradeManagement::OpenedDeal(ENUM_DEAL_TYPE Type,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL)
  {
   if(HistorySelect(CTime.TimeMinusOffset(TimeTradeServer(),CTime.MinutesS(class="num">2)),TimeTradeServer()))
     {
      for(class="type">int i=class="num">0; i<HistoryDealsTotal(); i++)
        {
         class="type">class="kw">ulong ticket = HistoryDealGetTicket(i);
         if(ticket>class="num">0)
           {

class=class="str">"cmt">//--- Check if the Deal&class="macro">#x27;s Symbol,Magic,Type,Comment is correct
if(HistoryDealGetString(ticket,DEAL_SYMBOL)==CSymbol.GetSymbolName()&&
   HistoryDealGetInteger(ticket,DEAL_MAGIC)==Magic&&HistoryDealGetInteger(ticket,DEAL_TYPE)==Type
   &&HistoryDealGetString(ticket,DEAL_COMMENT)==COMMENT)
   {
   class=class="str">"cmt">//--- Return true when there are any deals
   class="kw">return true;
   }
   }
   }
 }
class=class="str">"cmt">//--- No deals found.
 class="kw">return class="kw">false;
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Will attempt open buy trade                                                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTradeManagement::Buy(class="type">class="kw">double SL,class="type">class="kw">double TP,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL)
  {
class=class="str">"cmt">//--- Normalize the SL Price
  CSymbol.NormalizePrice(SL);
class=class="str">"cmt">//--- Normalize the TP Price
  CSymbol.NormalizePrice(TP);
class=class="str">"cmt">//--- Set the order type for Risk management calculation
  SetOrderType(ORDER_TYPE_BUY);
class=class="str">"cmt">//--- Set open price for Risk management calculation
  OpenPrice = CSymbol.Ask();
class=class="str">"cmt">//--- Set close price for Risk management calculation
  ClosePrice = SL;
class=class="str">"cmt">//--- Set Trade magic number
  Trade.SetExpertMagicNumber(Magic);
class=class="str">"cmt">//--- Check if there are any open trades or opened deals already
  if(!OpenTrade(POSITION_TYPE_BUY,Magic,COMMENT)&&!OpenedDeal(DEAL_TYPE_BUY,Magic,COMMENT))
   {
   class=class="str">"cmt">//--- Iterate through the Lot-sizes if they&class="macro">#x27;re more than max-lot
   for(class="type">class="kw">double i=Volume();i>=CSymbol.LotsMin();i-=CSymbol.LotsMax())
     {
     class=class="str">"cmt">//--- normalize Lot-size
     NormalizeLotsize(i);
     class=class="str">"cmt">//--- Open trade with a Lot-size not more than max-lot
     TradeResult = Trade.Buy((i>CSymbol.LotsMax())?CSymbol.LotsMax():i,CSymbol.GetSymbolName(),CSymbol.Ask(),SL,TP,COMMENT);
     class=class="str">"cmt">//--- Check if trade failed.
     if(!TradeResult)
       {
       class="kw">return TradeResult;
       }
     }
   }
  else
   {
   class=class="str">"cmt">//--- Trade failed because there is an open trade or opened deal
   class="kw">return class="kw">false;
   }
class=class="str">"cmt">//--- Return trade result.
  class="kw">return TradeResult;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Will attempt open sell trade                                                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTradeManagement::Sell(class="type">class="kw">double SL,class="type">class="kw">double TP,class="type">class="kw">ulong Magic,class="type">class="kw">string COMMENT=NULL)
  {

class=class="str">"cmt">//--- Normalize the SL Price
   CSymbol.NormalizePrice(SL);
class=class="str">"cmt">//--- Normalize the TP Price
   CSymbol.NormalizePrice(TP);
class=class="str">"cmt">//--- Set the order type for Risk management calculation
   SetOrderType(ORDER_TYPE_SELL);
class=class="str">"cmt">//--- Set open price for Risk management calculation
   OpenPrice = CSymbol.Bid();
class=class="str">"cmt">//--- Set close price for Risk management calculation
   ClosePrice = SL;
class=class="str">"cmt">//--- Set Trade magic number
   Trade.SetExpertMagicNumber(Magic);
class=class="str">"cmt">//--- Check if there are any open trades or opened deals already
   if(!OpenTrade(POSITION_TYPE_SELL,Magic,COMMENT)&&!OpenedDeal(DEAL_TYPE_SELL,Magic,COMMENT))
     {
      class=class="str">"cmt">//--- Iterate through the Lot-sizes if they&class="macro">#x27;re more than max-lot
      for(class="type">class="kw">double i=Volume();i>=CSymbol.LotsMin();i-=CSymbol.LotsMax())
        {
         class=class="str">"cmt">//--- normalize Lot-size
         NormalizeLotsize(i);
         class=class="str">"cmt">//--- Open trade with a Lot-size not more than max-lot
         TradeResult = Trade.Sell((i>CSymbol.LotsMax())?CSymbol.LotsMax():i,CSymbol.GetSymbolName(),CSymbol.Bid(),SL,TP,COMMENT);
         class=class="str">"cmt">//--- Check if trade failed.
         if(!TradeResult)
           {
            class="kw">return TradeResult;
           }
        }
     }
   else
     {
      class=class="str">"cmt">//--- Trade failed because there is an open trade or opened deal
      class="kw">return class="kw">false;
     }
class=class="str">"cmt">//--- Return trade result.
   class="kw">return TradeResult;
   }

class=class="str">"cmt">//--- width and height of the canvas(used for drawing)
class="macro">#define IMG_WIDTH  class="num">200
class="macro">#define IMG_HEIGHT class="num">100
class=class="str">"cmt">//--- enable to set class="type">class="kw">color format
ENUM_COLOR_FORMAT clr_format=COLOR_FORMAT_XRGB_NOALPHA;
class=class="str">"cmt">//--- drawing array(buffer)
class="type">uint ExtImg[IMG_WIDTH*IMG_HEIGHT];
class="macro">#include "News.mqh"
CNews NewsObject;class=class="str">"cmt">//Class object for News
class="macro">#include "TimeManagement.mqh"
CTimeManagement CTM;class=class="str">"cmt">//Class object for Time Management
class="macro">#include "WorkingWithFolders.mqh"
CFolders Folder;class=class="str">"cmt">//Class object for Folders
class="macro">#include "ChartProperties.mqh"
CChartProperties Chart;class=class="str">"cmt">//Class object for Chart Properties
class="macro">#include "RiskManagement.mqh"
CRiskManagement CRisk;class=class="str">"cmt">//Class object for Risk Management
class="macro">#include "CommonGraphics.mqh"
CCommonGraphics *CGraphics;class=class="str">"cmt">//Class pointer object for Common Graphics
CCandleProperties *CP;class=class="str">"cmt">//Class pointer object for Candle Properties
class="macro">#include "TradeManagement.mqh"
CTradeManagement Trade;class=class="str">"cmt">//Class object for Trade Management
class=class="str">"cmt">//--- used to separate Input Menu
enum iSeparator
  {
   Delimiterclass=class="str">"cmt">//__________________________
  };
class=class="str">"cmt">//--- for chart class="type">class="kw">color Mode selection
enum DisplayMode
  {
   Display_LightMode,class=class="str">"cmt">//LIGHT MODE
   Display_DarkModeclass=class="str">"cmt">//DARK MODE
  };
sinput group "+--------|  DISPLAY  |--------+";
sinput DisplayMode iDisplayMode=Display_LightMode;class=class="str">"cmt">//CHART COLOUR MODE
sinput Choice iDisplay_NewsInfo=Yes;class=class="str">"cmt">//DISPLAY NEWS INFO
sinput Choice iDisplay_EventObj=Yes;class=class="str">"cmt">//DISPLAY EVENT OBJ
sinput Choice iDisplay_Spread=Yes;class=class="str">"cmt">//DISPLAY SPREAD RATING
sinput Choice iDisplay_Date=Yes;class=class="str">"cmt">//DISPLAY DATE
sinput group "";
sinput group "+--------|  DST SCHEDULE  |--------+";
input DSTSchedule ScheduleDST=AutoDst_Selection;class=class="str">"cmt">//SELECT DST OPTION
sinput iSeparator iCustomSchedule=Delimiter;class=class="str">"cmt">//__________________________
sinput iSeparator iCustomScheduleL=Delimiter;class=class="str">"cmt">//CUSTOM DST
input DST_type CustomSchedule=DST_NONE;class=class="str">"cmt">//SELECT CUSTOM DST
sinput group "";
sinput group "+--------| RISK MANAGEMENT |--------+";
input RiskOptions RISK_Type=MINIMUM_LOT;class=class="str">"cmt">//SELECT RISK OPTION
input RiskFloor RISK_Mini=RiskFloorMin;class=class="str">"cmt">//RISK FLOOR
input class="type">class="kw">double RISK_Mini_Percent=class="num">75;class=class="str">"cmt">//MAX-RISK [class="num">100<-->class="num">0.01]%
input RiskCeil  RISK_Maxi=RiskCeilMax;class=class="str">"cmt">//RISK CEILING
sinput iSeparator iRisk_1=Delimiter;class=class="str">"cmt">//__________________________
sinput iSeparator iRisk_1L=Delimiter;class=class="str">"cmt">//PERCENTAGE OF [BALANCE | FREE-MARGIN]
input class="type">class="kw">double Risk_1_PERCENTAGE=class="num">3;class=class="str">"cmt">//[class="num">100<-->class="num">0.01]%
sinput iSeparator iRisk_2=Delimiter;class=class="str">"cmt">//__________________________
sinput iSeparator iRisk_2L=Delimiter;class=class="str">"cmt">//AMOUNT PER [BALANCE | FREE-MARGIN]
input class="type">class="kw">double Risk_2_VALUE=class="num">1000;class=class="str">"cmt">//[BALANCE | FREE-MARGIN]
input class="type">class="kw">double Risk_2_AMOUNT=class="num">10;class=class="str">"cmt">//EACH AMOUNT

sinput iSeparator iRisk_3=Delimiter;class=class="str">"cmt">//__________________________
sinput iSeparator iRisk_3L=Delimiter;class=class="str">"cmt">//LOTSIZE PER [BALANCE | FREE-MARGIN]
input class="type">class="kw">double Risk_3_VALUE=class="num">1000;class=class="str">"cmt">//[BALANCE | FREE-MARGIN]
input class="type">class="kw">double Risk_3_LOTSIZE=class="num">0.1;class=class="str">"cmt">//EACH LOTS(VOLUME)
sinput iSeparator iRisk_4=Delimiter;class=class="str">"cmt">//__________________________
sinput iSeparator iRisk_4L=Delimiter;class=class="str">"cmt">//CUSTOM LOTSIZE
input class="type">class="kw">double Risk_4_LOTSIZE=class="num">0.01;class=class="str">"cmt">//LOTS(VOLUME)
sinput iSeparator iRisk_5=Delimiter;class=class="str">"cmt">//__________________________
sinput iSeparator iRisk_5L=Delimiter;class=class="str">"cmt">//PERCENTAGE OF MAX-RISK
input class="type">class="kw">double Risk_5_PERCENTAGE=class="num">1;class=class="str">"cmt">//[class="num">100<-->class="num">0.01]%
sinput group "";
sinput group "+--------| NEWS SETTINGS |--------+";
input Calendar_Importance iImportance=Calendar_Importance_High;class=class="str">"cmt">//CALENDAR IMPORTANCE
input Event_Frequency iFrequency=Event_Frequency_ALL;class=class="str">"cmt">//EVENT FREQUENCY
input Event_Sector iSector=Event_Sector_ALL;class=class="str">"cmt">//EVENT SECTOR
input Event_Type iType=Event_Type_Indicator;class=class="str">"cmt">//EVENT TYPE
input Event_Currency iCurrency=Event_Currency_Symbol;class=class="str">"cmt">//EVENT CURRENCY
sinput group "";
sinput group "+--------| TRADE SETTINGS |--------+";
input class="type">uint iStoploss=class="num">500;class=class="str">"cmt">//STOPLOSS [class="num">0=NONE]
input class="type">uint iTakeprofit=class="num">500;class=class="str">"cmt">//TAKEPROFIT [class="num">0=NONE]
input class="type">uint iSecondsPreEvent=class="num">5;class=class="str">"cmt">//PRE-ENTRY SEC
input DayOfTheWeek TradingDay=AllDays;class=class="str">"cmt">//TRADING DAY OF WEEK
sinput group "";
class=class="str">"cmt">//--- to keep track of start-up time
class="type">class="kw">datetime Startup_date;
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Expert initialization function                                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int OnInit()
  {
class=class="str">"cmt">//--- Assign if in LightMode or not
   isLightMode=(iDisplayMode==Display_LightMode)?true:class="kw">false;
class=class="str">"cmt">//--- call function for common initialization procedure
   InitCommon();
class=class="str">"cmt">//--- store Init result
   class="type">int InitResult;
   if(!MQLInfoInteger(MQL_TESTER))class=class="str">"cmt">//Checks whether the program is in the strategy tester
     {
class=class="str">"cmt">//--- initialization procedure outside strategy tester
       InitResult=InitNonTester();
     }
   else
     {
class=class="str">"cmt">//--- initialization procedure inside strategy tester
       InitResult=InitTester();
     }
class=class="str">"cmt">//--- Create DB in memory
   NewsObject.CreateEconomicDatabaseMemory();
class=class="str">"cmt">//--- Initialize Common graphics class pointer object
   CGraphics = new CCommonGraphics(Answer(iDisplay_Date),Answer(iDisplay_Spread),Answer(iDisplay_NewsInfo),Answer(iDisplay_EventObj));
   CGraphics.GraphicsRefresh(iSecondsPreEvent);class=class="str">"cmt">//-- Create chart objects
class=class="str">"cmt">//--- Initialize Candle properties pointer object
   CP = new CCandleProperties();
class=class="str">"cmt">//--- Store start-up time.
   Startup_date = TimeTradeServer();
class=class="str">"cmt">//--- class="kw">return Init result
   class="kw">return InitResult;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+

class=class="str">"cmt">//|function for common initialization procedure                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void InitCommon()
  {
class=class="str">"cmt">//Initializing CRiskManagement variable for Risk options
   RiskProfileOption = RISK_Type;
class=class="str">"cmt">//Initializing CRiskManagement variable for Risk floor
   RiskFloorOption = RISK_Mini;
class=class="str">"cmt">//Initializing CRiskManagement variable for RiskFloorMax
   RiskFloorPercentage = (RISK_Mini_Percent>class="num">100)?class="num">100:
                         (RISK_Mini_Percent<class="num">0.01)?class="num">0.01:RISK_Mini_Percent;class=class="str">"cmt">//Percentage cannot be more than class="num">100% or less than class="num">0.01%
class=class="str">"cmt">//Initializing CRiskManagement variable for Risk ceiling
   RiskCeilOption = RISK_Maxi;
class=class="str">"cmt">//Initializing CRiskManagement variable for Risk options(PERCENTAGE OF BALANCE and PERCENTAGE OF FREE-MARGIN)
   Risk_Profile_1 = (Risk_1_PERCENTAGE>class="num">100)?class="num">100:
                    (Risk_1_PERCENTAGE<class="num">0.01)?class="num">0.01:Risk_1_PERCENTAGE;class=class="str">"cmt">//Percentage cannot be more than class="num">100% or less than class="num">0.01%
class=class="str">"cmt">//Initializing CRiskManagement variables for Risk options(AMOUNT PER BALANCE and AMOUNT PER FREE-MARGIN)
   Risk_Profile_2.RiskAmountBoF = Risk_2_VALUE;
   Risk_Profile_2.RiskAmount = Risk_2_AMOUNT;
class=class="str">"cmt">//Initializing CRiskManagement variables for Risk options(LOTSIZE PER BALANCE and LOTSIZE PER FREE-MARGIN)
   Risk_Profile_3.RiskLotBoF = Risk_3_VALUE;
   Risk_Profile_3.RiskLot = Risk_3_LOTSIZE;
class=class="str">"cmt">//Initializing CRiskManagement variable for Risk option(CUSTOM LOTSIZE)
   Risk_Profile_4 = Risk_4_LOTSIZE;
class=class="str">"cmt">//Initializing CRiskManagement variable for Risk option(PERCENTAGE OF MAX-RISK)
   Risk_Profile_5 = (Risk_5_PERCENTAGE>class="num">100)?class="num">100:
                    (Risk_5_PERCENTAGE<class="num">0.01)?class="num">0.01:Risk_5_PERCENTAGE;class=class="str">"cmt">//Percentage cannot be more than class="num">100% or less than class="num">0.01%
class=class="str">"cmt">//--- Initializing DST Schedule variables
   MyDST = ScheduleDST;
   MySchedule = CustomSchedule;
class=class="str">"cmt">//--- Initializing News filter variables
   myFrequency=iFrequency;
   myImportance=iImportance;
   mySector=iSector;
   myType=iType;
   myCurrency=iCurrency;
   Chart.ChartRefresh();class=class="str">"cmt">//Load chart configurations
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|function for initialization procedure outside strategy tester       |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int InitNonTester()
  {
class=class="str">"cmt">//--- Check if in Strategy tester!
   if(MQLInfoInteger(MQL_TESTER))
     {
      class=class="str">"cmt">//--- Initialization failed.
      class="kw">return(INIT_SUCCEEDED);
     }
class=class="str">"cmt">//--- create OBJ_BITMAP_LABEL object for drawing
   ObjectCreate(class="num">0,"STATUS",OBJ_BITMAP_LABEL,class="num">0,class="num">0,class="num">0);
   ObjectSetInteger(class="num">0,"STATUS",OBJPROP_XDISTANCE,class="num">5);
   ObjectSetInteger(class="num">0,"STATUS",OBJPROP_YDISTANCE,class="num">22);
class=class="str">"cmt">//--- specify the name of the graphical resource
   ObjectSetString(class="num">0,"STATUS",OBJPROP_BMPFILE,"::PROGRESS");
   class="type">uint   w,h;            class=class="str">"cmt">// variables for receiving text class="type">class="kw">string sizes
   class="type">uint    x,y;           class=class="str">"cmt">// variables for calculation of the current coordinates of text class="type">class="kw">string anchor points
   /*
   In the Do class="kw">while loop below, the code will check if the terminal is connected to the internet.

class="type">bool done=class="kw">false;
 do
  {
   class=class="str">"cmt">//--- clear the drawing buffer array
   ArrayFill(ExtImg,class="num">0,IMG_WIDTH*IMG_HEIGHT,class="num">0);
   if(!TerminalInfoInteger(TERMINAL_CONNECTED))
     {
      class=class="str">"cmt">//-- integer dots used as a loading animation
      class="kw">static class="type">int dots=class="num">0;
      class=class="str">"cmt">//--- set the font
      TextSetFont("Arial",-class="num">150,FW_EXTRABOLD,class="num">0);
      TextGetSize("Waiting",w,h);class=class="str">"cmt">//get text width and height values
      class=class="str">"cmt">//--- calculate the coordinates of the &class="macro">#x27;Waiting&class="macro">#x27; text
      x=class="num">10;class=class="str">"cmt">//horizontal alignment
      y=IMG_HEIGHT/class="num">2-(h/class="num">2);class=class="str">"cmt">//alignment for the text to be centered vertically
      class=class="str">"cmt">//--- output the &class="macro">#x27;Waiting&class="macro">#x27; text to ExtImg[] buffer
      TextOut("Waiting",x,y,TA_LEFT|TA_TOP,ExtImg,IMG_WIDTH,IMG_HEIGHT,ColorToARGB(CSymbol.Background()),clr_format);
      class=class="str">"cmt">//--- calculate the coordinates for the dots after the &class="macro">#x27;Waiting&class="macro">#x27; text
      x=w+class="num">13;class=class="str">"cmt">//horizontal alignment
      y=IMG_HEIGHT/class="num">2-(h/class="num">2);class=class="str">"cmt">//alignment for the text to be centered vertically
      TextSetFont("Arial",-class="num">160,FW_EXTRABOLD,class="num">0);
      class=class="str">"cmt">//--- output of dots to ExtImg[] buffer
      TextOut(StringSubstr("...",class="num">0,dots),x,y,TA_LEFT|TA_TOP,ExtImg,IMG_WIDTH,IMG_HEIGHT,ColorToARGB(CSymbol.Background()),clr_format);
      class=class="str">"cmt">//--- update the graphical resource
      ResourceCreate("::PROGRESS",ExtImg,IMG_WIDTH,IMG_HEIGHT,class="num">0,class="num">0,IMG_WIDTH,clr_format);
      class=class="str">"cmt">//--- force chart update
      Chart.Redraw();
      dots=(dots==class="num">3)?class="num">0:dots+class="num">1;
      class=class="str">"cmt">//-- Notify user that program is waiting for connection
      Print("Waiting for connection...");
      Sleep(class="num">500);
      class="kw">continue;
      }
   else
     {
      class=class="str">"cmt">//--- set the font
      TextSetFont("Arial",-class="num">120,FW_EXTRABOLD,class="num">0);
      TextGetSize("Getting Ready",w,h);class=class="str">"cmt">//get text width and height values
      x=class="num">20;class=class="str">"cmt">//horizontal alignment

y=IMG_HEIGHT/class="num">2-(h/class="num">2); class=class="str">"cmt">//alignment for the text to be centered vertically
class=class="str">"cmt">//--- output the text &class="macro">#x27;Getting Ready...&class="macro">#x27; to ExtImg[] buffer
TextOut("Getting Ready...",x,y,TA_LEFT|TA_TOP,ExtImg,IMG_WIDTH,IMG_HEIGHT,ColorToARGB(CSymbol.Background()),clr_format);
class=class="str">"cmt">//--- update the graphical resource
ResourceCreate("::PROGRESS",ExtImg,IMG_WIDTH,IMG_HEIGHT,class="num">0,class="num">0,IMG_WIDTH,clr_format);
class=class="str">"cmt">//--- force chart update
Chart.Redraw();
class=class="str">"cmt">//-- Notify user that connection is successful
Print("Connection Successful!");
NewsObject.CreateEconomicDatabase(); class=class="str">"cmt">//calling the database create function
done=true;
}
  }
 class="kw">while(!done&&!IsStopped());
class=class="str">"cmt">//-- Delete chart object
 ObjectDelete(class="num">0,"STATUS");
class=class="str">"cmt">//-- force chart to update
 Chart.Redraw();
class=class="str">"cmt">//--- Initialization succeeded.
 class="kw">return(INIT_SUCCEEDED);
 }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|function for initialization procedure inside strategy tester        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int InitTester()
  {
class=class="str">"cmt">//--- Check if not in Strategy tester!
  if(!MQLInfoInteger(MQL_TESTER))
    {
class=class="str">"cmt">//--- Initialization failed.
      class="kw">return(INIT_SUCCEEDED);
    }
class=class="str">"cmt">//Checks whether the database file exists
  if(!FileIsExist(NEWS_DATABASE_FILE,FILE_COMMON))
    {
class=class="str">"cmt">//--- Warning messages
      Print("Necessary Files Do not Exist!");
      Print("Run Program outside of the Strategy Tester");
      Print("Necessary Files Should be Created First");
class=class="str">"cmt">//--- Initialization failed.
      class="kw">return(INIT_FAILED);
    }
  else
    {
class=class="str">"cmt">//Checks whether the latest database date includes the time and date being tested
      class="type">class="kw">datetime latestdate = CTM.TimeMinusOffset(NewsObject.GetLatestNewsDate(),CTM.DaysS()); class=class="str">"cmt">//Day before the latest recorded time in the database
      if(latestdate<TimeTradeServer())
        {
          Print("Necessary Files outdated!");
          Print("To Update Files: Run Program outside of the Strategy Tester");
        }
      Print("Database Dates End at: ",latestdate);
      PrintFormat("Dates after %s will not be available for backtest",TimeToString(latestdate));
    }
class=class="str">"cmt">//--- Initialization succeeded.
  class="kw">return(INIT_SUCCEEDED);
  }

class=class="str">"cmt">//| Expert tick function                                                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void OnTick()
  {
class=class="str">"cmt">//--- Run procedures
   Execution();
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|Execute program procedures                                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void Execution()
  {
class=class="str">"cmt">//--- Update realtime Graphic every class="num">1 min
   if(CP.NewCandle(class="num">1,PERIOD_M1))
     {
       CGraphics.Block_2_Realtime(iSecondsPreEvent);
     }
class=class="str">"cmt">//--- function to open trades
   EnterTrade();
class=class="str">"cmt">//--- Check if not start-up date
   if(!CTM.DateisToday(Startup_date))
     {
      class=class="str">"cmt">//--- Run every New Daily Candle
      if(CP.NewCandle(class="num">2,PERIOD_D1))
        {
         class=class="str">"cmt">//--- Check if not in strategy tester
         if(!MQLInfoInteger(MQL_TESTER))
           {
            class=class="str">"cmt">//--- Update/Create DB in Memory
            NewsObject.CreateEconomicDatabaseMemory();
           }
         CGraphics.GraphicsRefresh(iSecondsPreEvent);class=class="str">"cmt">//-- Create/Re-create chart objects
         class=class="str">"cmt">//--- Update Realtime Graphics
         CGraphics.Block_2_Realtime(iSecondsPreEvent);
        }
      class=class="str">"cmt">//--- Check if not in strategy tester
      if(!MQLInfoInteger(MQL_TESTER))
        {
         class=class="str">"cmt">//--- Run every New Hourly Candle
         if(CP.NewCandle(class="num">3,PERIOD_H1))
           {
            class=class="str">"cmt">//--- Check if DB in Storage needs an update
            if(NewsObject.UpdateRecords())
              {
               class=class="str">"cmt">//--- initialization procedure outside strategy tester
               InitNonTester();
              }
           }
        }
     }
   else
     {
      class=class="str">"cmt">//--- Run every New Daily Candle
      if(CP.NewCandle(class="num">4,PERIOD_D1))
        {
         class=class="str">"cmt">//--- Update Event objects on chart
         CGraphics.NewsEvent();
        }
     }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|function to open trades                                                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void EnterTrade()
  {
class=class="str">"cmt">//--- class="kw">static variable for storing upcoming event Impact value

class="kw">static ENUM_CALENDAR_EVENT_IMPACT Impact=CALENDAR_IMPACT_NA;
class=class="str">"cmt">//--- Check if Upcoming news date has passed and if upcoming news is not null and if new minute candle has formed.
  if(class="type">class="kw">datetime(UpcomingNews.EventDate)<TimeTradeServer()&&UpcomingNews.CountryName!=NULL&&CP.NewCandle(class="num">5,PERIOD_M1))
    {
      class=class="str">"cmt">//--- Update for next upcoming news
      NewsObject.EconomicNextEvent();
      class=class="str">"cmt">//--- Get impact value for upcoming news
      Impact=NewsObject.GetImpact();
    }
class=class="str">"cmt">//--- Check if upcoming news date is about to occur and if it is the trading day of week
  if(CTM.TimePreEvent(CTM.TimeMinusOffset(class="type">class="kw">datetime(UpcomingNews.EventDate),(iSecondsPreEvent==class="num">0)?class="num">1:iSecondsPreEvent)
                        ,class="type">class="kw">datetime(UpcomingNews.EventDate))
    &&CTM.isDayOfTheWeek(TradingDay))
    {
      class=class="str">"cmt">//--- Check each Impact value type
      class="kw">switch(Impact)
        {
         class=class="str">"cmt">//--- When Impact news is negative
         case CALENDAR_IMPACT_NEGATIVE:
            class=class="str">"cmt">//--- Check if profit currency is news event currency
            if(UpcomingNews.EventCurrency==CSymbol.CurrencyProfit())
              {
               class=class="str">"cmt">//--- Open buy trade with Event id as Magic number
               Trade.Buy(iStoploss,iTakeprofit,class="type">class="kw">ulong(UpcomingNews.EventId),"NewsTrading");
              }
            else
              {
               class=class="str">"cmt">//--- Open sell trade with Event id as Magic number
               Trade.Sell(iStoploss,iTakeprofit,class="type">class="kw">ulong(UpcomingNews.EventId),"NewsTrading");
              }
            class="kw">break;
         class=class="str">"cmt">//--- When Impact news is positive
         case CALENDAR_IMPACT_POSITIVE:
            class=class="str">"cmt">//--- Check if profit currency is news event currency
            if(UpcomingNews.EventCurrency==CSymbol.CurrencyProfit())
              {
               class=class="str">"cmt">//--- Open sell trade with Event id as Magic number
               Trade.Sell(iStoploss,iTakeprofit,class="type">class="kw">ulong(UpcomingNews.EventId),"NewsTrading");
              }
            else
              {
               class=class="str">"cmt">//--- Open buy trade with Event id as Magic number
               Trade.Buy(iStoploss,iTakeprofit,class="type">class="kw">ulong(UpcomingNews.EventId),"NewsTrading");
              }
            class="kw">break;
         class=class="str">"cmt">//--- Unknown
         class="kw">default:
            class="kw">break;
        }
    }