DoEasy.服务函数（第 3 部分）：外包线形态·综合运用

::Print(DFUN,CMessage::Text(MSG_LIB_SYS_NOT_GET_PRICE),CMessage::Text(this.m_result.retcode));
   class="kw">return class="kw">false;
   }
 class=class="str">"cmt">//--- Clear the structures
 ::ZeroMemory(this.m_request);
 ::ZeroMemory(this.m_result);
 class=class="str">"cmt">//--- Fill in the request structure
 this.m_request.action       = TRADE_ACTION_DEAL;
 this.m_request.symbol       = this.m_symbol;
 this.m_request.magic        = (magic==ULONG_MAX ? this.m_magic : magic);
 this.m_request.type         = (ENUM_ORDER_TYPE)type;
 this.m_request.price        = (type==POSITION_TYPE_BUY ? this.m_tick.ask : this.m_tick.bid);
 this.m_request.volume       = volume;
 this.m_request.sl           = sl;
 this.m_request.tp           = tp;
 this.m_request.deviation    = (deviation==ULONG_MAX ? this.m_deviation : deviation);
 this.m_request.type_filling=  (type_filling>WRONG_VALUE ? type_filling : this.m_type_filling);
 this.m_request.comment      = (comment==NULL ? this.m_comment : comment);
 class=class="str">"cmt">//--- Return the result of sending a request to the server
class="macro">#ifdef __MQL5__
   class="kw">return(!this.m_async_mode ? ::OrderSend(this.m_request,this.m_result) : ::OrderSendAsync(this.m_request,this.m_result));
class="macro">#else
   ::ResetLastError();
   class="type">int ticket=::OrderSend(m_request.symbol,m_request.type,m_request.volume,m_request.price,(class="type">int)m_request.deviation,m_request.sl,m_request.tp,m_request.comment,(class="type">int)m_request.magic,m_request.expiration,clrNONE);
   this.m_result.retcode=::GetLastError();
   ::SymbolInfoTick(this.m_symbol,this.m_tick);
   this.m_result.ask=this.m_tick.ask;
   this.m_result.bid=this.m_tick.bid;
   this.m_result.comment=CMessage::Text(this.m_result.retcode);
   if(ticket!=WRONG_VALUE)
     {
      this.m_result.deal=ticket;
      this.m_result.price=(::OrderSelect(ticket,SELECT_BY_TICKET) ? ::OrderOpenPrice() : this.m_request.price);
      this.m_result.volume=(::OrderSelect(ticket,SELECT_BY_TICKET) ? ::OrderLots() : this.m_request.volume);
      class="kw">return true;
     }
   else
     {
      class="kw">return class="kw">false;
     }
class="macro">#endif
   }

class="type">bool CTradeObj::ClosePosition(const class="type">class="kw">ulong ticket,
                              const class="type">class="kw">string comment=NULL,
                              const class="type">class="kw">ulong deviation=ULONG_MAX)
  {
  if(this.m_program==PROGRAM_INDICATOR || this.m_program==PROGRAM_SERVICE)
     class="kw">return true;
  ::ResetLastError();
  class=class="str">"cmt">//--- If the position selection failed. Write the error code and error description, send the message to the log and class="kw">return &class="macro">#x27;class="kw">false&class="macro">#x27;
  if(!::PositionSelectByTicket(ticket))
     {
      this.m_result.retcode=::GetLastError();
      this.m_result.comment=CMessage::Text(this.m_result.retcode);
      if(this.m_log_level>LOG_LEVEL_NO_MSG)
         ::Print(DFUN,"#",(class="type">class="kw">string)ticket,": ",CMessage::Text(MSG_LIB_SYS_ERROR_FAILED_SELECT_POS),CMessage::Text(this.m_result.retcode));
      class="kw">return class="kw">false;
     }
  class=class="str">"cmt">//--- If failed to get the current prices, write the error code and description, send the message to the journal and class="kw">return &class="macro">#x27;class="kw">false&class="macro">#x27;
  if(!::SymbolInfoTick(this.m_symbol,this.m_tick))
     {
      this.m_result.retcode=::GetLastError();
      this.m_result.comment=CMessage::Text(this.m_result.retcode);
      if(this.m_log_level>LOG_LEVEL_NO_MSG)
         ::Print(DFUN,CMessage::Text(MSG_LIB_SYS_NOT_GET_PRICE),CMessage::Text(this.m_result.retcode));
      class="kw">return class="kw">false;
     }
  class=class="str">"cmt">//--- Get a position type and an order type inverse of the position type
  class="type">ENUM_POSITION_TYPE position_type=(class="type">ENUM_POSITION_TYPE)::PositionGetInteger(POSITION_TYPE);
  ENUM_ORDER_TYPE type=OrderTypeOppositeByPositionType(position_type);
  class=class="str">"cmt">//--- Clear the structures
  ::ZeroMemory(this.m_request);
  ::ZeroMemory(this.m_result);
  class=class="str">"cmt">//--- Fill in the request structure
  this.m_request.action       =  TRADE_ACTION_DEAL;
  this.m_request.symbol       =  this.m_symbol;
  this.m_request.type         =  type;
  this.m_request.magic        =  ::PositionGetInteger(POSITION_MAGIC);
  this.m_request.price        =  (position_type==POSITION_TYPE_SELL ? this.m_tick.ask : this.m_tick.bid);
  this.m_request.volume       =  ::PositionGetDouble(POSITION_VOLUME);
  this.m_request.deviation    =  (deviation==ULONG_MAX ? this.m_deviation : deviation);
  this.m_request.comment      =  (comment==NULL ? this.m_comment : comment);
  this.m_request.type_filling =  this.m_type_filling;

  class=class="str">"cmt">//--- In case of a hedging account, write the ticket of a closed position to the structure
  if(this.IsHedge())
    this.m_request.position=::PositionGetInteger(POSITION_TICKET);
  class=class="str">"cmt">//--- Return the result of sending a request to the server
class="macro">#ifdef __MQL5__
  class="kw">return(!this.m_async_mode ? ::OrderSend(this.m_request,this.m_result) : ::OrderSendAsync(this.m_request,this.m_result));
class="macro">#else
  ::SymbolInfoTick(this.m_symbol,this.m_tick);
  this.m_result.ask=this.m_tick.ask;
  this.m_result.bid=this.m_tick.bid;
  ::ResetLastError();
  if(::OrderClose((class="type">int)this.m_request.position,this.m_request.volume,this.m_request.price,(class="type">int)this.m_request.deviation,clrNONE))
    {
      this.m_result.retcode=::GetLastError();
      this.m_result.deal=ticket;
      this.m_result.price=(::OrderSelect((class="type">int)ticket,SELECT_BY_TICKET) ? ::OrderClosePrice() : this.m_request.price);
      this.m_result.volume=(::OrderSelect((class="type">int)ticket,SELECT_BY_TICKET) ? ::OrderLots() : this.m_request.volume);
      this.m_result.comment=CMessage::Text(this.m_result.retcode);
      class="kw">return true;
    }
  else
    {
      this.m_result.retcode=::GetLastError();
      this.m_result.ask=this.m_tick.ask;
      this.m_result.bid=this.m_tick.bid;
      this.m_result.comment=CMessage::Text(this.m_result.retcode);
      class="kw">return class="kw">false;
    }
class="macro">#endif

this.m_result.retcode=::GetLastError();
this.m_result.comment=CMessage::Text(this.m_result.retcode);
if(this.m_log_level>LOG_LEVEL_NO_MSG)
   ::Print(DFUN,"#",(class="type">class="kw">string)ticket,": ",CMessage::Text(MSG_LIB_SYS_ERROR_FAILED_SELECT_POS),CMessage::Text(this.m_result.retcode));
class="kw">return class="kw">false;
   }
 class=class="str">"cmt">//--- If failed to get the current prices, write the error code and description, send the message to the journal and class="kw">return &class="macro">#x27;class="kw">false&class="macro">#x27;
 if(!::SymbolInfoTick(this.m_symbol,this.m_tick))
   {
    this.m_result.retcode=::GetLastError();
    this.m_result.comment=CMessage::Text(this.m_result.retcode);
    if(this.m_log_level>LOG_LEVEL_NO_MSG)
       ::Print(DFUN,CMessage::Text(MSG_LIB_SYS_NOT_GET_PRICE),CMessage::Text(this.m_result.retcode));
    class="kw">return class="kw">false;
   }
 class=class="str">"cmt">//--- Get a position type and an order type inverse of the position type
 class="type">ENUM_POSITION_TYPE position_type=(class="type">ENUM_POSITION_TYPE)::PositionGetInteger(POSITION_TYPE);
 ENUM_ORDER_TYPE type=OrderTypeOppositeByPositionType(position_type);
 class=class="str">"cmt">//--- Get a position volume
 class="type">class="kw">double position_volume=::PositionGetDouble(POSITION_VOLUME);
 class=class="str">"cmt">//--- Clear the structures
 ::ZeroMemory(this.m_request);
 ::ZeroMemory(this.m_result);
 class=class="str">"cmt">//--- Fill in the request structure
 this.m_request.action      =  TRADE_ACTION_DEAL;
 this.m_request.position    =  ticket;
 this.m_request.symbol      =  this.m_symbol;
 this.m_request.magic       =  ::PositionGetInteger(POSITION_MAGIC);
 this.m_request.type        =  type;
 this.m_request.price       =  (position_type==POSITION_TYPE_SELL ? this.m_tick.ask : this.m_tick.bid);
 this.m_request.volume      =  (volume<position_volume ? volume : position_volume);
 this.m_request.deviation   =  (deviation==ULONG_MAX ? this.m_deviation : deviation);
 this.m_request.comment     =  (comment==NULL ? this.m_comment : comment);
 this.m_request.type_filling=  this.m_type_filling;
 class=class="str">"cmt">//--- In case of a hedging account, write the ticket of a closed position to the structure
 if(this.IsHedge())
    this.m_request.position=::PositionGetInteger(POSITION_TICKET);
 class=class="str">"cmt">//--- Return the result of sending a request to the server
class="macro">#ifdef __MQL5__
 class="kw">return(!this.m_async_mode ? ::OrderSend(this.m_request,this.m_result) : ::OrderSendAsync(this.m_request,this.m_result));
class="macro">#else
 ::SymbolInfoTick(this.m_symbol,this.m_tick);

this.m_result.ask=this.m_tick.ask;
this.m_result.bid=this.m_tick.bid;
::ResetLastError();
if(::OrderClose((class="type">int)this.m_request.position,this.m_request.volume,this.m_request.price,(class="type">int)this.m_request.deviation,clrNONE))
  {
  this.m_result.retcode=::GetLastError();
  this.m_result.deal=ticket;
  this.m_result.price=(::OrderSelect((class="type">int)ticket,SELECT_BY_TICKET) ? ::OrderClosePrice() : this.m_request.price);
  this.m_result.volume=(::OrderSelect((class="type">int)ticket,SELECT_BY_TICKET) ? ::OrderLots() : this.m_request.volume);
  this.m_result.comment=CMessage::Text(this.m_result.retcode);
  class="kw">return true;
  }
else
  {
  this.m_result.retcode=::GetLastError();
  this.m_result.comment=CMessage::Text(this.m_result.retcode);
  class="kw">return class="kw">false;
  }
class="macro">#endif
}
class=class="str">"cmt">//--- Write the volume, deviation, comment and filling type to the request structure
this.m_request.volume=volume;
this.m_request.deviation=(deviation==ULONG_MAX ? trade_obj.GetDeviation() : deviation);
this.m_request.comment=(comment==NULL ? trade_obj.GetComment() : comment);
this.m_request.type_filling=(type_filling>WRONG_VALUE ? type_filling : trade_obj.GetTypeFilling());
class=class="str">"cmt">//--- In the loop by the number of attempts
for(class="type">int i=class="num">0;i<this.m_total_try;i++)
  {
  class=class="str">"cmt">//--- Send a request
  res=trade_obj.OpenPosition(type,this.m_request.volume,this.m_request.sl,this.m_request.tp,magic,comment,deviation,type_filling);
  class=class="str">"cmt">//... ... ...
  class=class="str">"cmt">//--- Send a request
  res=trade_obj.OpenPosition(type,this.m_request.volume,this.m_request.sl,this.m_request.tp,magic,this.m_request.comment,this.m_request.deviation,this.m_request.type_filling);
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| CChartObjectsControl: Create the event control indicator          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CChartObjectsControl::CreateEventControlInd(const class="type">long chart_id_main)
  {
class=class="str">"cmt">//--- If the symbol is not on the server, class="kw">return &class="macro">#x27;class="kw">false&class="macro">#x27;
  class="type">bool is_custom=class="kw">false;
  if(!::SymbolExist(this.Symbol(), is_custom))
    {
    CMessage::ToLog(DFUN+" "+this.Symbol()+": ",MSG_LIB_SYS_NOT_SYMBOL_ON_SERVER);
    class="kw">return class="kw">false;
    }
class=class="str">"cmt">//--- Create the indicator
  this.m_chart_id_main=chart_id_main;
  class="type">class="kw">string name="::"+PATH_TO_EVENT_CTRL_IND;
  ::ResetLastError();

this.m_handle_ind=::iCustom(this.Symbol(),this.Timeframe(),name,this.ChartID(),this.m_chart_id_main);
if(this.m_handle_ind==INVALID_HANDLE)
  {
  CMessage::ToLog(DFUN,MSG_GRAPH_OBJ_FAILED_CREATE_EVN_CTRL_INDICATOR);
  CMessage::ToLog(DFUN,::GetLastError(),true);
  class="kw">return class="kw">false;
  }

this.m_name_ind="EventSend_From#"+(class="type">class="kw">string)this.ChartID()+"_To#"+(class="type">class="kw">string)this.m_chart_id_main;
::Print(
  DFUN,this.Symbol()," ",TimeframeDescription(this.Timeframe()),": ",
  CMessage::Text(MSG_GRAPH_OBJ_CREATE_EVN_CTRL_INDICATOR)," \"",this.m_name_ind,"\""
  );
class="kw">return true;
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the description of the graphical element type              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CGBaseObj::TypeElementDescription(const ENUM_GRAPH_ELEMENT_TYPE type)
  {
  class="kw">return
    (
    type==GRAPH_ELEMENT_TYPE_STANDARD                ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_STANDARD)             :
    type==GRAPH_ELEMENT_TYPE_STANDARD_EXTENDED       ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_STANDARD_EXTENDED)    :
    type==GRAPH_ELEMENT_TYPE_ELEMENT                ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_ELEMENT)             :
    type==GRAPH_ELEMENT_TYPE_BITMAP                 ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_BITMAP)              :
    type==GRAPH_ELEMENT_TYPE_SHADOW_OBJ             ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_SHADOW_OBJ)          :
    type==GRAPH_ELEMENT_TYPE_FORM                   ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_FORM)                :
    type==GRAPH_ELEMENT_TYPE_WINDOW                 ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WINDOW)              :
    class=class="str">"cmt">//--- WinForms
    type==GRAPH_ELEMENT_TYPE_WF_UNDERLAY            ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_UNDERLAY)         :
    type==GRAPH_ELEMENT_TYPE_WF_BASE                ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_BASE)             :
    class=class="str">"cmt">//--- Containers
    type==GRAPH_ELEMENT_TYPE_WF_CONTAINER           ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_CONTAINER)        :

type==GRAPH_ELEMENT_TYPE_WF_GROUPBOX         ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_GROUPBOX)     :
type==GRAPH_ELEMENT_TYPE_WF_PANEL               ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_PANEL)         :
type==GRAPH_ELEMENT_TYPE_WF_TAB_CONTROL         ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_TAB_CONTROL)  :
type==GRAPH_ELEMENT_TYPE_WF_SPLIT_CONTAINER     ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SPLIT_CONTAINER) :
class=class="str">"cmt">//--- Standard controls
type==GRAPH_ELEMENT_TYPE_WF_COMMON_BASE         ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_COMMON_BASE)  :
type==GRAPH_ELEMENT_TYPE_WF_LABEL               ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_LABEL)        :
type==GRAPH_ELEMENT_TYPE_WF_CHECKBOX            ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_CHECKBOX)     :
type==GRAPH_ELEMENT_TYPE_WF_RADIOBUTTON         ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_RADIOBUTTON)  :
type==GRAPH_ELEMENT_TYPE_WF_BUTTON              ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_BUTTON)       :
type==GRAPH_ELEMENT_TYPE_WF_ELEMENTS_LIST_BOX   ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ELEMENTS_LIST_BOX) :
type==GRAPH_ELEMENT_TYPE_WF_LIST_BOX            ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_LIST_BOX)     :
type==GRAPH_ELEMENT_TYPE_WF_LIST_BOX_ITEM       ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_LIST_BOX_ITEM) :
type==GRAPH_ELEMENT_TYPE_WF_CHECKED_LIST_BOX    ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_CHECKED_LIST_BOX) :
type==GRAPH_ELEMENT_TYPE_WF_BUTTON_LIST_BOX     ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_BUTTON_LIST_BOX) :
type==GRAPH_ELEMENT_TYPE_WF_TOOLTIP             ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_TOOLTIP)      :
type==GRAPH_ELEMENT_TYPE_WF_PROGRESS_BAR        ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_PROGRESS_BAR) :
class=class="str">"cmt">//--- Auxiliary control objects
type==GRAPH_ELEMENT_TYPE_WF_TAB_HEADER          ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_TAB_HEADER)   :
type==GRAPH_ELEMENT_TYPE_WF_TAB_FIELD           ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_TAB_FIELD)   :
type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON        ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON) :
type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_UP     ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_UP) :
type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_DOWN   ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_DOWN) :
type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_LEFT   ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_LEFT) :

type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_RIGHT      ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_RIGHT)     :
type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTONS_UD_BOX    ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTONS_UD_BOX)   :
type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTONS_LR_BOX    ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTONS_LR_BOX)   :
type==GRAPH_ELEMENT_TYPE_WF_SPLIT_CONTAINER_PANEL   ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SPLIT_CONTAINER_PANEL) :
type==GRAPH_ELEMENT_TYPE_WF_SPLITTER                ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SPLITTER)               :
type==GRAPH_ELEMENT_TYPE_WF_HINT_BASE               ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_BASE)             :
type==GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_LEFT          ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_LEFT)         :
type==GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_RIGHT         ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_RIGHT)       :
type==GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_UP            ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_UP)          :
type==GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_DOWN          ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_DOWN)        :
type==GRAPH_ELEMENT_TYPE_WF_BAR_PROGRESS_BAR        ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_BAR_PROGRESS_BAR)      :
type==GRAPH_ELEMENT_TYPE_WF_GLARE_OBJ               ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_GLARE_OBJ)             :
type==GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR              ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR)            :
type==GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_VERTICAL     ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_VERTICAL)   :
type==GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_HORISONTAL   ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_HORISONTAL) :
type==GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_THUMB        ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_THUMB)      :
"Unknown"

type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_RIGHT      ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTON_RIGHT)     :
type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTONS_UD_BOX    ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTONS_UD_BOX)   :
type==GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTONS_LR_BOX    ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_ARROW_BUTTONS_LR_BOX)   :
type==GRAPH_ELEMENT_TYPE_WF_SPLIT_CONTAINER_PANEL   ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SPLIT_CONTAINER_PANEL) :
type==GRAPH_ELEMENT_TYPE_WF_SPLITTER                ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SPLITTER)               :
type==GRAPH_ELEMENT_TYPE_WF_HINT_BASE               ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_BASE)             :
type==GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_LEFT          ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_LEFT)         :
type==GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_RIGHT         ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_RIGHT)       :
type==GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_UP            ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_UP)          :
type==GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_DOWN          ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_HINT_MOVE_DOWN)        :
type==GRAPH_ELEMENT_TYPE_WF_BAR_PROGRESS_BAR        ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_BAR_PROGRESS_BAR)      :
type==GRAPH_ELEMENT_TYPE_WF_GLARE_OBJ               ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_GLARE_OBJ)             :
type==GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR              ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR)            :
type==GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_VERTICAL     ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_VERTICAL)   :
type==GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_HORISONTAL   ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_HORISONTAL) :
type==GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_THUMB        ? CMessage::Text(MSG_GRAPH_ELEMENT_TYPE_WF_SCROLL_BAR_THUMB)      :
"Unknown"

  class="type">class="kw">double                m_price;                                                        class=class="str">"cmt">// Price level the graphical object is placed at
  class="type">color                 m_color_bullish;                                                 class=class="str">"cmt">// Color of a graphical object set to the bullish pattern icon
  class="type">color                 m_color_bearish;                                                 class=class="str">"cmt">// Color of a graphical object set to the bearish pattern icon
  class="type">color                 m_color_bidirect;                                                class=class="str">"cmt">// Color of a graphical object set to the bidirectional pattern icon
  class="type">color                 m_color;                                                         class=class="str">"cmt">// Graphical object class="type">color
  class="type">color                 m_color_panel_bullish;                                           class=class="str">"cmt">// Bullish pattern panel class="type">color
  class="type">color                 m_color_panel_bearish;                                           class=class="str">"cmt">// Bearish pattern panel class="type">color
  class="type">color                 m_color_panel_bidirect;                                          class=class="str">"cmt">// Bidirectional pattern panel class="type">color
  class="type">int                   m_bars_formation;                                                class=class="str">"cmt">// Number of bars in the formation(nested pattern)
  class="type">bool                  m_draw_dots;                                                     class=class="str">"cmt">// Draw on the chart with dots
  class="type">int                   m_chart_scale;                                                   class=class="str">"cmt">// Chart scale
  class="type">int                   m_chart_height_px;                                               class=class="str">"cmt">// Height of the chart in pixels
  class="type">int                   m_chart_width_px;                                                class=class="str">"cmt">// Height of the chart in pixels
  class="type">class="kw">double                m_chart_price_max;                                               class=class="str">"cmt">// Chart maximum
  class="type">class="kw">double                m_chart_price_min;                                               class=class="str">"cmt">// Chart minimum

class="kw">public:
class=class="str">"cmt">//--- Calculate the bitmap object(class="num">1) width and(class="num">2) height

  class="type">int                GetBitmapWidth(class="type">void);
  class="type">int                GetBitmapHeight(class="type">void);
class=class="str">"cmt">//--- Calculate the bitmap object(class="num">1) width and(class="num">2) height
  class="kw">virtual class="type">int        CalculatetBitmapWidth(class="type">void);
  class="kw">virtual class="type">int        CalculatetBitmapHeight(class="type">void);
class="kw">public:
class=class="str">"cmt">//--- Remove a graphical object
  class="type">bool               DeleteGraphObj(class="type">bool redraw=class="kw">false);
class=class="str">"cmt">//--- Set graphical object display colors and pattern display class="type">color
  class="type">void               SetColors(const class="type">color color_bullish,const class="type">color color_bearish,const class="type">color color_bidirect,const class="type">bool redraw=class="kw">false);
class=class="str">"cmt">//--- Set the flag for drawing pattern labels as dots
  class="type">void               SetDrawAsDots(const class="type">bool flag)       { this.m_draw_dots=flag;       }
class=class="str">"cmt">//--- Set the background class="type">color for the(class="num">1) bullish, (class="num">2) bearish and(class="num">3) bidirectional pattern panel
  class="type">void               SetColorPanelBullish(const class="type">color clr)  { this.m_color_panel_bullish=clr;  }
  class="type">void               SetColorPanelBearish(const class="type">color clr)  { this.m_color_panel_bearish=clr;  }
  class="type">void               SetColorPanelBiDirect(const class="type">color clr) { this.m_color_panel_bidirect=clr; }
class=class="str">"cmt">//--- Set the background class="type">color for the(class="num">1) bullish, (class="num">2) bearish and(class="num">3) bidirectional pattern panel by setting the values of the RGB class="type">color components
  class="type">void               SetColorPanelBullish(const class="type">uchar R,const class="type">uchar G,const class="type">uchar B);
  class="type">void               SetColorPanelBearish(const class="type">uchar R,const class="type">uchar G,const class="type">uchar B);
  class="type">void               SetColorPanelBiDirect(const class="type">uchar R,const class="type">uchar G,const class="type">uchar B);
class=class="str">"cmt">//--- Draw the pattern icon on the chart
  class="kw">virtual class="type">void       Draw(const class="type">bool redraw);
class=class="str">"cmt">//--- (class="num">1) Display, (class="num">2) hide the pattern icon on the chart
  class="type">void               Show(const class="type">bool redraw=class="kw">false);
  class="type">void               Hide(const class="type">bool redraw=class="kw">false);
class=class="str">"cmt">//--- (class="num">1) Display and(class="num">2) hide the info panel on the chart
  class="type">void               ShowInfoPanel(const class="type">int x,const class="type">int y,const class="type">bool redraw=true);

class="type">void HideInfoPanel(class="type">void);
class="kw">public:
class=class="str">"cmt">//--- Remove a graphical object
  class="type">bool DeleteGraphObj(class="type">bool redraw=class="kw">false);
class=class="str">"cmt">//--- Set graphical object display colors and pattern display class="type">color
  class="type">void SetColors(const class="type">color color_bullish,const class="type">color color_bearish,const class="type">color color_bidirect,const class="type">bool redraw=class="kw">false);
class=class="str">"cmt">//--- Set the background class="type">color for the(class="num">1) bullish, (class="num">2) bearish and(class="num">3) bidirectional pattern panel
  class="type">void SetColorPanelBullish(const class="type">color clr)  { this.m_color_panel_bullish=clr;  }
  class="type">void SetColorPanelBearish(const class="type">color clr)  { this.m_color_panel_bearish=clr;  }
  class="type">void SetColorPanelBiDirect(const class="type">color clr) { this.m_color_panel_bidirect=clr; }
class=class="str">"cmt">//--- Set the background class="type">color for the(class="num">1) bullish, (class="num">2) bearish and(class="num">3) bidirectional pattern panel by setting the values of the RGB class="type">color components
  class="type">void SetColorPanelBullish(const class="type">uchar R,const class="type">uchar G,const class="type">uchar B);
  class="type">void SetColorPanelBearish(const class="type">uchar R,const class="type">uchar G,const class="type">uchar B);
  class="type">void SetColorPanelBiDirect(const class="type">uchar R,const class="type">uchar G,const class="type">uchar B);
class=class="str">"cmt">//--- (class="num">1) Draw and(class="num">2) resize the pattern icon on the chart
  class="kw">virtual class="type">bool Draw(const class="type">bool redraw);
  class="kw">virtual class="type">bool Redraw(const class="type">bool redraw)        { class="kw">return true; }
class=class="str">"cmt">//--- (class="num">1) Display, (class="num">2) hide the pattern icon on the chart
  class="type">void Show(const class="type">bool redraw=class="kw">false);
  class="type">void Hide(const class="type">bool redraw=class="kw">false);
class=class="str">"cmt">//--- (class="num">1) Display and(class="num">2) hide the info panel on the chart
  class="type">void ShowInfoPanel(const class="type">int x,const class="type">int y,const class="type">bool redraw=true);
  class="type">void HideInfoPanel(class="type">void);
class=class="str">"cmt">//--- Set the(class="num">1) chart scale, (class="num">2) height, (class="num">3) width in pixels, (class="num">4) high, (class="num">5) low
  class="type">void SetChartScale(const class="type">int scale)        { this.m_chart_scale=scale; }

class="type">void             SetChartHeightInPixels(const class="type">int height)     { this.m_chart_height_px=height; }
class="type">void             SetChartWidthInPixels(const class="type">int width)      { this.m_chart_width_px=width;   }
class="type">void             SetChartPriceMax(const class="type">class="kw">double price)        { this.m_chart_price_max=price;  }
class="type">void             SetChartPriceMin(const class="type">class="kw">double price)        { this.m_chart_price_min=price;  }
class=class="str">"cmt">//--- Return the(class="num">1) chart scale, (class="num">2) height, (class="num">3) width in pixels, (class="num">4) high, (class="num">5) low
class="type">int              ChartScale(class="type">void)                           const { class="kw">return this.m_chart_scale;     }
class="type">int              ChartHeightInPixels(class="type">void)                  const { class="kw">return this.m_chart_height_px; }
class="type">int              ChartWidthInPixels(class="type">void)                   const { class="kw">return this.m_chart_width_px;  }
class="type">class="kw">double           ChartPriceMax(class="type">void)                        const { class="kw">return this.m_chart_price_max; }
class="type">class="kw">double           ChartPriceMin(class="type">void)                        const { class="kw">return this.m_chart_price_min; }
class=class="str">"cmt">//--- Set base colors of the pattern information panels
this.m_color_panel_bullish=clrLightGray;
this.m_color_panel_bearish=clrLightGray;
this.m_color_panel_bidirect=clrLightGray;
this.m_form=NULL;
this.m_bitmap=NULL;
this.m_draw_dots=true;
this.m_bars_formation=class="num">1;
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the description of the pattern real class="kw">property               |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CPattern::GetPropertyDescription(ENUM_PATTERN_PROP_DOUBLE class="kw">property)
  {
   class="type">int dg=(this.m_digits>class="num">0 ? this.m_digits : class="num">1);
   class="kw">return
     (
      class="kw">property==PATTERN_PROP_BAR_PRICE_OPEN  ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_BAR_PRICE_OPEN)+
        (!this.SupportProperty(class="kw">property)     ?  ": "+CMessage::Text(MSG_LIB_PROP_NOT_SUPPORTED) :
                                            ": "+::DoubleToString(this.GetProperty(class="kw">property),dg)
        ) :
      class="kw">property==PATTERN_PROP_BAR_PRICE_HIGH  ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_BAR_PRICE_HIGH)+

   class="kw">property==PATTERN_PROP_BAR_PRICE_LOW   ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_BAR_PRICE_LOW)+
   (!this.SupportProperty(class="kw">property)   ?  ": "+CMessage::Text(MSG_LIB_PROP_NOT_SUPPORTED) :
      ": "+::DoubleToString(this.GetProperty(class="kw">property),dg)
   )  :
   class="kw">property==PATTERN_PROP_BAR_PRICE_CLOSE ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_BAR_PRICE_CLOSE)+
   (!this.SupportProperty(class="kw">property)   ?  ": "+CMessage::Text(MSG_LIB_PROP_NOT_SUPPORTED) :
      ": "+::DoubleToString(this.GetProperty(class="kw">property),dg)
   )  :
   class="kw">property==PATTERN_PROP_RATIO_BODY_TO_CANDLE_SIZE           ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_RATIO_BODY_TO_CANDLE_SIZE)+
   (!this.SupportProperty(class="kw">property)   ?  ": "+CMessage::Text(MSG_LIB_PROP_NOT_SUPPORTED) :
      ": "+::DoubleToString(this.GetProperty(class="kw">property),class="num">2)
   )  :
   class="kw">property==PATTERN_PROP_RATIO_LOWER_SHADOW_TO_CANDLE_SIZE ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_RATIO_LOWER_SHADOW_TO_CANDLE_SIZE)+
   (!this.SupportProperty(class="kw">property)   ?  ": "+CMessage::Text(MSG_LIB_PROP_NOT_SUPPORTED) :
      ": "+::DoubleToString(this.GetProperty(class="kw">property),class="num">2)
   )  :
   class="kw">property==PATTERN_PROP_RATIO_UPPER_SHADOW_TO_CANDLE_SIZE ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_RATIO_UPPER_SHADOW_TO_CANDLE_SIZE)+
   (!this.SupportProperty(class="kw">property)   ?  ": "+CMessage::Text(MSG_LIB_PROP_NOT_SUPPORTED) :
      ": "+::DoubleToString(this.GetProperty(class="kw">property),class="num">2)
   )  :
   class="kw">property==PATTERN_PROP_RATIO_CANDLE_SIZES ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_RATIO_CANDLE_SIZES)+
   (!this.SupportProperty(class="kw">property)   ?  ": "+CMessage::Text(MSG_LIB_PROP_NOT_SUPPORTED) :
      ": "+::DoubleToString(this.GetProperty(class="kw">property),class="num">2)
   )  :
   class="kw">property==PATTERN_PROP_RATIO_BODY_TO_CANDLE_SIZE_CRITERION         ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_RATIO_BODY_TO_CANDLE_SIZE_CRIT)+
   (!this.SupportProperty(class="kw">property)   ?  ": "+CMessage::Text(MSG_LIB_PROP_NOT_SUPPORTED) :
      ": "+::DoubleToString(this.GetProperty(class="kw">property),class="num">2)
   )  :
   class="kw">property==PATTERN_PROP_RATIO_LARGER_SHADOW_TO_CANDLE_SIZE_CRITERION ?  CMessage::Text(MSG_LIB_TEXT_PATTERN_RATIO_LARGER_SHADOW_TO_CANDLE_SIZE_CRIT)+
   (!this.SupportProperty(class="kw">property)   ?  ": "+CMessage::Text(MSG_LIB_PROP_NOT_SUPPORTED) :
      ": "+::DoubleToString(this.GetProperty(class="kw">property),class="num">2)

class="type">void CPattern::ShowInfoPanel(const class="type">int x,const class="type">int y,const class="type">bool redraw=true)
  {
class=class="str">"cmt">//--- If there is no panel object yet, create it
   if(this.m_form==NULL)
      if(!this.CreateInfoPanel())
         class="kw">return;
class=class="str">"cmt">//--- Calculate the X and Y coordinates of the panel so that it does not go beyond the chart
   class="type">int cx=(x+this.m_form.Width() > this.m_chart_width_px-class="num">1 ? this.m_chart_width_px-class="num">1-this.m_form.Width()  : x);
   class="type">int cy=(y+this.m_form.Height()> this.m_chart_height_px-class="num">1 ? this.m_chart_height_px-class="num">1-this.m_form.Height() : y);
class=class="str">"cmt">//--- Set the calculated coordinates and display the panel
   if(this.m_form.SetCoordX(cx) && this.m_form.SetCoordY(cy))

class="type">void CPattern::Draw(const class="type">bool redraw)
  {
class=class="str">"cmt">//--- If the graphical object has not yet been created, create it
   if(::ObjectFind(this.m_chart_id,this.m_name_graph_obj)<class="num">0)
      this.CreateTrendLine(this.m_chart_id,this.m_name_graph_obj,class="num">0,this.Time(),this.m_price,this.Time(),this.m_price,this.m_color,class="num">5);
class=class="str">"cmt">//--- Otherwise - display
   else
      this.Show(redraw);
  }
class="type">void CPattern::Show(const class="type">bool redraw=class="kw">false)
  {
   if(this.m_draw_dots)
     {
      ::ObjectSetInteger(this.m_chart_id,this.m_name_graph_obj,OBJPROP_TIMEFRAMES,OBJ_ALL_PERIODS);
      class="kw">return;
     }
   if(this.m_bitmap!=NULL)
      this.m_bitmap.Show();
   if(redraw)
      ::ChartRedraw(this.m_chart_id);
  }
class="type">void CPattern::Hide(const class="type">bool redraw=class="kw">false)
  {
   if(this.m_draw_dots)
     {
      ::ObjectSetInteger(this.m_chart_id,this.m_name_graph_obj,OBJPROP_TIMEFRAMES,OBJ_NO_PERIODS);
      class="kw">return;
     }
   if(this.m_bitmap!=NULL)
      this.m_bitmap.Hide();
   if(redraw)
      ::ChartRedraw(this.m_chart_id);
  }
class="type">bool CPattern::Draw(const class="type">bool redraw)
  {
   this.Show(redraw);
   class="kw">return true;
  }

class="type">void CPattern::Show(const class="type">bool redraw=class="kw">false)
  {
   if(this.m_bitmap==NULL)
      class="kw">return;
   this.m_bitmap.Show();
   if(redraw)
      ::ChartRedraw(this.m_chart_id);
  }
class="type">void CPattern::Hide(const class="type">bool redraw=class="kw">false)
  {
   if(this.m_bitmap==NULL)
      class="kw">return;
   this.m_bitmap.Hide();
   if(redraw)
      ::ChartRedraw(this.m_chart_id);
  }
class CPatternPinBar : class="kw">public CPattern
  {
class="kw">protected:
   class="kw">virtual class="type">bool      CreateBitmap(class="type">void);
   class="kw">virtual class="type">void      CreateInfoPanelView(class="type">void);
   class="type">void              CreateBitmapView(class="type">void);
  };

class="kw">virtual class="type">int      CalculatetBitmapWidth(class="type">void)                                                   { class="kw">return(class="num">20);  }
class="kw">virtual class="type">int      CalculatetBitmapHeight(class="type">void)                                                  { class="kw">return(class="num">40);  }
class="kw">public:
class=class="str">"cmt">//--- Return the flag of the pattern supporting the specified class="kw">property
  class="kw">virtual class="type">bool      SupportProperty(ENUM_PATTERN_PROP_INTEGER class="kw">property)   { class="kw">return true; }
  class="kw">virtual class="type">bool      SupportProperty(ENUM_PATTERN_PROP_DOUBLE class="kw">property)    { class="kw">return true; }
  class="kw">virtual class="type">bool      SupportProperty(ENUM_PATTERN_PROP_STRING class="kw">property)    { class="kw">return true; }

class=class="str">"cmt">//--- Return description of the pattern(class="num">1) status and(class="num">2) type
  class="kw">virtual class="type">class="kw">string    StatusDescription(class="type">void) const { class="kw">return CMessage::Text(MSG_LIB_TEXT_PATTERN_STATUS_PA);     }
  class="kw">virtual class="type">class="kw">string    TypeDescription(class="type">void)  const { class="kw">return CMessage::Text(MSG_LIB_TEXT_PATTERN_TYPE_PIN_BAR); }
class=class="str">"cmt">//--- Draw the pattern icon on the chart
  class="kw">virtual class="type">bool      Draw(const class="type">bool redraw);
class=class="str">"cmt">//--- Constructor
                  CPatternPinBar(const class="type">uint id,const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,class="type">MqlRates &rates,const ENUM_PATTERN_DIRECTION direct);
  };
class=class="str">"cmt">//--- Depending on the chart size and coordinates, we calculate the coordinates of the panel so that it does not go beyond the chart
  class="type">int chart_w=(class="type">int)::ChartGetInteger(this.m_chart_id,CHART_WIDTH_IN_PIXELS);
  class="type">int chart_h=(class="type">int)::ChartGetInteger(this.m_chart_id,CHART_HEIGHT_IN_PIXELS);
  class="type">int cx=(this.m_form.RightEdge() >chart_w-class="num">1 ? chart_w-class="num">1-this.m_form.Width()  : this.m_form.CoordX());
  class="type">int cy=(this.m_form.BottomEdge()>chart_h-class="num">1 ? chart_h-class="num">1-this.m_form.Height() : this.m_form.CoordY());
class=class="str">"cmt">//--- Depending on the chart size and coordinates, we calculate the coordinates of the panel so that it does not go beyond the chart
  class="type">int cx=(this.m_form.RightEdge() >this.m_chart_width_px-class="num">1 ? this.m_chart_width_px-class="num">1-this.m_form.Width()  : this.m_form.CoordX());
  class="type">int cy=(this.m_form.BottomEdge()>this.m_chart_height_px-class="num">1 ? this.m_chart_height_px-class="num">1-this.m_form.Height() : this.m_form.CoordY());

class="type">bool CPatternPinBar::Draw(const class="type">bool redraw)
  {
class=class="str">"cmt">//--- If the bitmap object has not yet been created, create it
   if(this.m_bitmap==NULL)
     {
       if(!this.CreateBitmap())
         class="kw">return class="kw">false;
     }
class=class="str">"cmt">//--- display
   this.Show(redraw);
   class="kw">return true;
  }

class="type">bool CPatternPinBar::CreateBitmap(class="type">void)
  {
class=class="str">"cmt">//--- If the bitmap object has already been created earlier, class="kw">return &class="macro">#x27;true&class="macro">#x27;
   if(this.m_bitmap!=NULL)
      class="kw">return true;
class=class="str">"cmt">//--- Calculate the object coordinates and dimensions
   class="type">class="kw">datetime time=this.MotherBarTime();
   class="type">class="kw">double   price=(this.Direction()==PATTERN_DIRECTION_BULLISH ? this.MotherBarLow() : this.MotherBarHigh());
   class="type">int      w=this.CalculatetBitmapWidth();
   class="type">int      h=this.CalculatetBitmapHeight();
class=class="str">"cmt">//--- Create the Bitmap object
   this.m_bitmap=this.CreateBitmap(this.ID(),this.GetChartID(),class="num">0,this.Name(),time,price,w,h,this.m_color_bidirect);
   if(this.m_bitmap==NULL)
      class="kw">return class="kw">false;
class=class="str">"cmt">//--- Set the object origin to its center and remove the tooltip
   ::ObjectSetInteger(this.GetChartID(),this.m_bitmap.NameObj(),OBJPROP_ANCHOR,ANCHOR_CENTER);
   ::ObjectSetString(this.GetChartID(),this.m_bitmap.NameObj(),OBJPROP_TOOLTIP,"\n");

class=class="str">"cmt">//--- Draw the bitmap object appearance
   this.CreateBitmapView();
   class="kw">return true;
  }

class="type">void CPatternPinBar::CreateBitmapView(class="type">void)
  {
   this.m_bitmap.Erase(CLR_CANV_NULL,class="num">0);
   class="type">int y=(this.Direction()==PATTERN_DIRECTION_BULLISH ? this.m_bitmap.Height()/class="num">2+class="num">6 : this.m_bitmap.Height()/class="num">2-class="num">6);
   class="type">int x=this.m_bitmap.Width()/class="num">2;
   class="type">int r=class="num">2;
   this.m_bitmap.DrawCircleFill(x,y,r,this.Direction()==PATTERN_DIRECTION_BULLISH ? this.m_color_bullish : this.m_color_bearish);
   this.m_bitmap.Update(class="kw">false);
  }

class=class="str">"cmt">//|                                                                 PatternInsideBar.mqh |
class=class="str">"cmt">//|                     Copyright class="num">2023, MetaQuotes Ltd. |
class=class="str">"cmt">//|                                       [MQL5官方文档] |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="macro">#class="kw">property copyright "Copyright class="num">2023, MetaQuotes Ltd."
class="macro">#class="kw">property link      "[MQL5官方文档]
class="macro">#class="kw">property version   "class="num">1.00"
class="macro">#class="kw">property strict    class=class="str">"cmt">// Necessary for mql4
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Include files                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="macro">#include "Pattern.mqh"
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| "Inside Bar" pattern class                                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CPatternInsideBar : class="kw">public CPattern
  {
class="kw">protected:
class=class="str">"cmt">//--- Create the(class="num">1) image object, the appearance of the(class="num">2) info panel and(class="num">3) the bitmap object
   class="kw">virtual class="type">bool      CreateBitmap(class="type">void);
   class="kw">virtual class="type">void      CreateInfoPanelView(class="type">void);
   class="type">void              CreateBitmapView(class="type">void);
class="kw">public:
class=class="str">"cmt">//--- Return the flag of the pattern supporting the specified class="kw">property
   class="kw">virtual class="type">bool      SupportProperty(ENUM_PATTERN_PROP_INTEGER class="kw">property)   { class="kw">return true; }
   class="kw">virtual class="type">bool      SupportProperty(ENUM_PATTERN_PROP_DOUBLE class="kw">property)    { class="kw">return true; }
   class="kw">virtual class="type">bool      SupportProperty(ENUM_PATTERN_PROP_STRING class="kw">property)    { class="kw">return true; }

class=class="str">"cmt">//--- Return description of the pattern(class="num">1) status and(class="num">2) type
   class="kw">virtual class="type">class="kw">string    StatusDescription(class="type">void) const { class="kw">return CMessage::Text(MSG_LIB_TEXT_PATTERN_STATUS_PA);      }
   class="kw">virtual class="type">class="kw">string    TypeDescription(class="type">void)  const { class="kw">return CMessage::Text(MSG_LIB_TEXT_PATTERN_TYPE_INSIDE_BAR); }
class=class="str">"cmt">//--- (class="num">1) Draw and(class="num">2) resize the pattern icon on the chart
   class="kw">virtual class="type">bool      Draw(const class="type">bool redraw);
   class="kw">virtual class="type">bool      Redraw(const class="type">bool redraw);
class=class="str">"cmt">//--- Constructor

class="type">bool CPatternInsideBar::Redraw(const class="type">bool redraw)
  {
class=class="str">"cmt">//--- If a drawing object has not yet been created, create and display it in the Draw() method
   if(this.m_bitmap==NULL)
      class="kw">return CPatternInsideBar::Draw(redraw);
class=class="str">"cmt">//--- Calculate the new object dimensions
   class="type">int w=this.CalculatetBitmapWidth();
   class="type">int h=this.CalculatetBitmapHeight();
class=class="str">"cmt">//--- If canvas resizing failed, class="kw">return &class="macro">#x27;class="kw">false&class="macro">#x27;
   if(!this.m_bitmap.SetWidth(w) || !this.m_bitmap.SetHeight(h))
      class="kw">return class="kw">false;
class=class="str">"cmt">//--- Draw the new bitmap object appearance with new dimensions
   this.CreateBitmapView();
class=class="str">"cmt">//--- display and class="kw">return &class="macro">#x27;true&class="macro">#x27;
   this.Show(redraw);
   class="kw">return true;
  }
class=class="str">"cmt">//--- Create strings to describe the pattern, its parameters and search criteria
   class="type">class="kw">string name=::StringFormat("Inside Bar(%lu bars)",::Bars(this.Symbol(),this.Timeframe(),this.MotherBarTime(),this.Time()));
   class="type">class="kw">string param=this.DirectDescription();
class=class="str">"cmt">//--- Depending on the chart size and coordinates, we calculate the coordinates of the panel so that it does not go beyond the chart
   class="type">int cx=(this.m_form.RightEdge() >this.m_chart_width_px-class="num">1 ? this.m_chart_width_px-class="num">1-this.m_form.Width()  : this.m_form.CoordX());

class="type">int cy=(this.m_form.BottomEdge()>this.m_chart_height_px-class="num">1 ? this.m_chart_height_px-class="num">1-this.m_form.Height() : this.m_form.CoordY());
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Draw the pattern icon on the chart                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPatternInsideBar::Draw(const class="type">bool redraw)
  {
class=class="str">"cmt">//--- If the flag for drawing with dots is set, call the parent class method and leave
   if(this.m_draw_dots)
     {
      CPattern::Draw(redraw);
      class="kw">return;
     }
class=class="str">"cmt">//--- If the bitmap object has not yet been created, create it
   if(this.m_bitmap==NULL)
     {
      if(!this.CreateBitmap())
        class="kw">return;
     }
class=class="str">"cmt">//--- display
   this.Show(redraw);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Draw the pattern icon on the chart                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CPatternInsideBar::Draw(const class="type">bool redraw)
  {
class=class="str">"cmt">//--- If the bitmap object has not yet been created, create it
   if(this.m_bitmap==NULL)
     {
      if(!this.CreateBitmap())
        class="kw">return class="kw">false;
     }
class=class="str">"cmt">//--- display
   this.Show(redraw);
   class="kw">return true;
  }

class="macro">#include "Pattern.mqh"
class CPatternOutsideBar : class="kw">public CPattern
  {
class="kw">protected:
class=class="str">"cmt">//--- Create the(class="num">1) image object, the appearance of the(class="num">2) info panel and(class="num">3) the bitmap object
   class="kw">virtual class="type">bool      CreateBitmap(class="type">void);
   class="kw">virtual class="type">void      CreateInfoPanelView(class="type">void);
   class="type">void              CreateBitmapView(class="type">void);
class=class="str">"cmt">//--- Calculate the bitmap object height
   class="kw">virtual class="type">int       CalculatetBitmapHeight(class="type">void);
class="kw">public:
class=class="str">"cmt">//--- Return the flag of the pattern supporting the specified class="kw">property
   class="kw">virtual class="type">bool      SupportProperty(ENUM_PATTERN_PROP_INTEGER class="kw">property)   { class="kw">return true; }
   class="kw">virtual class="type">bool      SupportProperty(ENUM_PATTERN_PROP_DOUBLE class="kw">property)     { class="kw">return true; }
   class="kw">virtual class="type">bool      SupportProperty(ENUM_PATTERN_PROP_STRING class="kw">property)     { class="kw">return true; }

class=class="str">"cmt">//--- Return description of the pattern(class="num">1) status and(class="num">2) type
   class="kw">virtual class="type">class="kw">string    StatusDescription(class="type">void) const { class="kw">return CMessage::Text(MSG_LIB_TEXT_PATTERN_STATUS_PA);       }
   class="kw">virtual class="type">class="kw">string    TypeDescription(class="type">void)  const { class="kw">return CMessage::Text(MSG_LIB_TEXT_PATTERN_TYPE_OUTSIDE_BAR);}
  };

class="kw">virtual class="type">bool      Draw(const class="type">bool redraw);
class="kw">virtual class="type">bool      Redraw(const class="type">bool redraw);
class=class="str">"cmt">//--- Constructor
                  CPatternOutsideBar(const class="type">uint id,const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,class="type">MqlRates &rates,const ENUM_PATTERN_DIRECTION direct);
  };
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Constructor                                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
CPatternOutsideBar::CPatternOutsideBar(const class="type">uint id,const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,class="type">MqlRates &rates,const ENUM_PATTERN_DIRECTION direct) :
  CPattern(PATTERN_STATUS_PA,PATTERN_TYPE_OUTSIDE_BAR,id,direct,symbol,timeframe,rates)
  {
  this.SetProperty(PATTERN_PROP_NAME,"Outside Bar");
  this.SetProperty(PATTERN_PROP_CANDLES,class="num">2);
  this.m_bars_formation=(class="type">int)this.GetProperty(PATTERN_PROP_CANDLES);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Create the info panel appearance                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPatternOutsideBar::CreateInfoPanelView(class="type">void)
  {
class=class="str">"cmt">//--- If the form object is not created, leave
  if(this.m_form==NULL)
    class="kw">return;
class=class="str">"cmt">//--- Change the class="type">color tone for bullish and bearish patterns: the bullish ones will have a blue tint, class="kw">while the bearish ones will have a red tint
  class="type">color color_bullish=this.m_form.ChangeRGBComponents(this.m_form.ChangeColorLightness(this.m_color_panel_bullish,class="num">5),class="num">0,class="num">0,class="num">100);
  class="type">color color_bearish=this.m_form.ChangeRGBComponents(this.m_form.ChangeColorLightness(this.m_color_panel_bearish,class="num">5),class="num">100,class="num">0,class="num">0);
  class="type">color color_bidirect=this.m_color_panel_bidirect;
class=class="str">"cmt">//--- Declare the array for the initial and final colors of the gradient fill
  class="type">color clr[class="num">2]={};
class=class="str">"cmt">//--- Depending on the direction of the pattern, change the lightness of the corresponding colors - the initial one is a little darker, the final one is a little lighter
  class="kw">switch(this.Direction())
    {
    case PATTERN_DIRECTION_BULLISH :
      clr[class="num">0]=this.m_form.ChangeColorLightness(color_bullish,-class="num">2.5);
      clr[class="num">1]=this.m_form.ChangeColorLightness(color_bullish,class="num">2.5);
      break;
    case PATTERN_DIRECTION_BEARISH :
      clr[class="num">0]=this.m_form.ChangeColorLightness(color_bearish,-class="num">2.5);

clr[class="num">1]=this.m_form.ChangeColorLightness(color_bearish,class="num">2.5);
      break;
      class="kw">default:
         clr[class="num">0]=this.m_form.ChangeColorLightness(color_bidirect,-class="num">2.5);
         clr[class="num">1]=this.m_form.ChangeColorLightness(color_bidirect,class="num">2.5);
         break;
     }

class=class="str">"cmt">//--- Set the background and form frame colors
   this.m_form.SetBackgroundColor(this.Direction()==PATTERN_DIRECTION_BULLISH ? color_bullish : this.Direction()==PATTERN_DIRECTION_BEARISH ? color_bearish : color_bidirect,true);
   this.m_form.SetBorderColor(clrGray,true);
class=class="str">"cmt">//--- Create strings to describe the pattern, its parameters and search criteria
   class="type">class="kw">string name=::StringFormat("Outside Bar(%.2f/%.2f)",this.GetProperty(PATTERN_PROP_RATIO_CANDLE_SIZES),this.GetProperty(PATTERN_PROP_RATIO_BODY_TO_CANDLE_SIZE));
   class="type">class="kw">string param=::StringFormat("%s(%.2f/%.2f)",this.DirectDescription(),this.GetProperty(PATTERN_PROP_RATIO_CANDLE_SIZES_CRITERION),this.GetProperty(PATTERN_PROP_RATIO_BODY_TO_CANDLE_SIZE_CRITERION));
class=class="str">"cmt">//--- Set the coordinates of the panel and calculate its width and height depending on the size of the texts placed on the panel
   class="type">int x=class="num">3;
   class="type">int y=class="num">20;
   class="type">int w=class="num">4+(::fmax(class="num">20+this.m_form.TextWidth(name),::fmax(x+this.m_form.TextWidth(param),x+this.m_form.TextWidth(::TimeToString(this.Time())))));
   class="type">int h=class="num">2+(class="num">20+this.m_form.TextHeight(this.DirectDescription())+this.m_form.TextHeight(::TimeToString(this.Time())));
class=class="str">"cmt">//--- Set the width and height of the panel according to the calculated values
   this.m_form.SetWidth(w);
   this.m_form.SetHeight(h);
class=class="str">"cmt">//--- Depending on the chart size and coordinates, we calculate the coordinates of the panel so that it does not go beyond the chart
   class="type">int cx=(this.m_form.RightEdge() >this.m_chart_width_px-class="num">1 ? this.m_chart_width_px-class="num">1-this.m_form.Width()  : this.m_form.CoordX());
   class="type">int cy=(this.m_form.BottomEdge()>this.m_chart_height_px-class="num">1 ? this.m_chart_height_px-class="num">1-this.m_form.Height() : this.m_form.CoordY());
   this.m_form.SetCoordX(cx);
   this.m_form.SetCoordY(cy);
class=class="str">"cmt">//--- Fill the background with a gradient class="type">color
   this.m_form.Erase(clr,class="num">200,true,class="kw">false);
class=class="str">"cmt">//--- Draw the panel frame, an icon with(i), draw the header text with the proportions of a candle and separate the header with a horizontal line
   this.m_form.DrawFrameSimple(class="num">0,class="num">0,this.m_form.Width(),this.m_form.Height(),class="num">1,class="num">1,class="num">1,class="num">1,this.m_form.BorderColor(),class="num">200);
   this.m_form.DrawIconInfo(class="num">1,class="num">1,class="num">200);
   this.m_form.Text(class="num">20,class="num">3,name,clrBlack,class="num">200);

this.m_form.DrawLine(class="num">1,class="num">18,this.m_form.Width()-class="num">1,class="num">18,clrDarkGray,class="num">250);
class=class="str">"cmt">//--- Under the horizontal line, enter the pattern description with its search criteria and the date of the pattern-defining bar
  y=class="num">20;
  this.m_form.Text(x,y,param,clrBlack,class="num">200);
  y+=this.m_form.TextHeight(::TimeToString(this.Time()));
  this.m_form.Text(x,y,::TimeToString(this.Time()),clrBlack,class="num">200);
class=class="str">"cmt">//--- Update the panel class="kw">while redrawing the chart
  this.m_form.Update(true);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Draw the pattern icon on the chart                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CPatternOutsideBar::Draw(const class="type">bool redraw)
  {
class=class="str">"cmt">//--- If the bitmap object has not yet been created, create it
  if(this.m_bitmap==NULL)
    {
      if(!this.CreateBitmap())
        class="kw">return class="kw">false;
    }
class=class="str">"cmt">//--- display
  this.Show(redraw);
  class="kw">return true;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Redraw the pattern icon on the chart with a new size              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CPatternOutsideBar::Redraw(const class="type">bool redraw)
  {
class=class="str">"cmt">//--- If a drawing object has not yet been created, create and display it in the Draw() method
  if(this.m_bitmap==NULL)
    class="kw">return CPatternOutsideBar::Draw(redraw);
class=class="str">"cmt">//--- Calculate the new object dimensions
  class="type">int w=this.CalculatetBitmapWidth();
  class="type">int h=this.CalculatetBitmapHeight();
class=class="str">"cmt">//--- If canvas resizing failed, class="kw">return &class="macro">#x27;class="kw">false&class="macro">#x27;
  if(!this.m_bitmap.SetWidth(w) || !this.m_bitmap.SetHeight(h))
    class="kw">return class="kw">false;
class=class="str">"cmt">//--- Draw the new bitmap object appearance with new dimensions
  this.CreateBitmapView();
class=class="str">"cmt">//--- display and class="kw">return &class="macro">#x27;true&class="macro">#x27;
  this.Show(redraw);
  class="kw">return true;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Create the bitmap object                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CPatternOutsideBar::CreateBitmap(class="type">void)
  {
class=class="str">"cmt">//--- If the bitmap object has already been created earlier, class="kw">return &class="macro">#x27;true&class="macro">#x27;
  if(this.m_bitmap!=NULL)
    class="kw">return true;
class=class="str">"cmt">//--- Calculate the object coordinates and dimensions
  class="type">class="kw">datetime time=this.MotherBarTime();
  class="type">class="kw">double   price=(this.BarPriceHigh()+this.BarPriceLow())/class="num">2;
  class="type">int      w=this.CalculatetBitmapWidth();
  class="type">int      h=this.CalculatetBitmapHeight();

class=class="str">"cmt">//--- 建 Bitmap 对象
this.m_bitmap=this.CreateBitmap(this.ID(),this.GetChartID(),class="num">0,this.Name(),time,price,w,h,this.m_color_bidirect);
class=class="str">"cmt">// 若创建失败直接退出
if(this.m_bitmap==NULL)
   class="kw">return class="kw">false;
class=class="str">"cmt">//--- 锚点设为图形中心，并清空悬浮提示
::ObjectSetInteger(this.GetChartID(),this.m_bitmap.NameObj(),OBJPROP_ANCHOR,ANCHOR_CENTER);
::ObjectSetString(this.GetChartID(),this.m_bitmap.NameObj(),OBJPROP_TOOLTIP(),"\n");
class=class="str">"cmt">//--- 画外观
this.CreateBitmapView();
class="kw">return true;

class="type">void CPatternOutsideBar::CreateBitmapView(class="type">void)
  {
   this.m_bitmap.Erase(CLR_CANV_NULL,class="num">0);
   class="type">int x=this.m_bitmap.Width()/class="num">2-class="type">int(class="num">1<<this.m_chart_scale)/class="num">2;
   this.m_bitmap.DrawRectangleFill(x,class="num">0,this.m_bitmap.Width()-class="num">1,this.m_bitmap.Height()-class="num">1,(this.Direction()==PATTERN_DIRECTION_BULLISH ? this.m_color_bullish : this.m_color_bearish),class="num">80);
   this.m_bitmap.DrawRectangle(x,class="num">0,this.m_bitmap.Width()-class="num">1,this.m_bitmap.Height()-class="num">1,clrGray);
   this.m_bitmap.Update(class="kw">false);
  }

class="type">void AddPatternType(const ENUM_PATTERN_TYPE pattern_type){ this.m_long_prop[BAR_PROP_PATTERNS_TYPE] |=pattern_type; }

case TYPE_COLOR  :  case TYPE_INT  : case TYPE_UINT  : case TYPE_DATETIME :  case TYPE_LONG     :
case TYPE_ULONG  :  class="kw">return(struct1.integer_value==struct2.integer_value);
class=class="str">"cmt">//--- real types
case TYPE_FLOAT  :
case TYPE_DOUBLE  :  class="kw">return(NormalizeDouble(struct1.double_value-struct2.double_value,DBL_DIG)==class="num">0);
class=class="str">"cmt">//--- class="type">class="kw">string type
case TYPE_STRING  :  class="kw">return(struct1.string_value==struct2.string_value);
class="kw">default           :  class="kw">return class="kw">false;
   }
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Compare array of class="type">MqlParam structures with each other              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool IsEqualMqlParamArrays(class="type">MqlParam &array1[],class="type">MqlParam &array2[])
  {
   class="type">int total=ArraySize(array1);
   class="type">int size=ArraySize(array2);
   if(total!=size || total==class="num">0 || size==class="num">0)
      class="kw">return class="kw">false;
   for(class="type">int i=class="num">0;i<total;i++)
     {
      if(!IsEqualMqlParams(array1[i],array2[i]))
         class="kw">return class="kw">false;
     }
   class="kw">return true;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Abstract pattern control class                                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CPatternControl : class="kw">public CBaseObjExt
  {
class="kw">private:
   ENUM_TIMEFRAMES  m_timeframe;                                              class=class="str">"cmt">// Pattern timeseries chart period
   class="type">class="kw">string           m_symbol;                                                 class=class="str">"cmt">// Pattern timeseries symbol
   class="type">class="kw">double           m_point;                                                  class=class="str">"cmt">// Symbol Point
   class="type">bool             m_used;                                                   class=class="str">"cmt">// Pattern use flag

  class="type">bool               m_drawing;                                                                     class=class="str">"cmt">// Flag for drawing the pattern icon on the chart
  class="type">bool               m_draw_dots;                                                                    class=class="str">"cmt">// Flag for drawing the pattern icon on the chart with dots
class=class="str">"cmt">//--- Handled pattern
  ENUM_PATTERN_TYPE m_type_pattern;                                                                  class=class="str">"cmt">// Pattern type
class="kw">protected:
class=class="str">"cmt">//--- Candle proportions
  class="type">class="kw">double             m_ratio_body_to_candle_size;                                                    class=class="str">"cmt">// Percentage ratio of the candle body to the full size of the candle
  class="type">class="kw">double             m_ratio_larger_shadow_to_candle_size;                                           class=class="str">"cmt">// Percentage ratio of the size of the larger shadow to the size of the candle
  class="type">class="kw">double             m_ratio_smaller_shadow_to_candle_size;                                          class=class="str">"cmt">// Percentage ratio of the size of the smaller shadow to the size of the candle
  class="type">class="kw">double             m_ratio_candle_sizes;                                                           class=class="str">"cmt">// Percentage of candle sizes
  class="type">uint               m_min_body_size;                                                                class=class="str">"cmt">// The minimum size of the candlestick body
  class="type">class="kw">ulong              m_object_id;                                                                    class=class="str">"cmt">// Unique object code based on pattern search criteria
class=class="str">"cmt">//--- List views
  CArrayObj         *m_list_series;                                                                  class=class="str">"cmt">// Pointer to the timeseries list
  CArrayObj         *m_list_all_patterns;                                                            class=class="str">"cmt">// Pointer to the list of all patterns
  CPattern           m_pattern_instance;                                                             class=class="str">"cmt">// Pattern object for searching by class="kw">property
class=class="str">"cmt">//--- Graph

class="type">class="kw">ulong m_symbol_code; class=class="str">"cmt">// Chart symbol name as a number
class="type">int m_chart_scale; class=class="str">"cmt">// Chart scale
class="type">int m_chart_height_px; class=class="str">"cmt">// Height of the chart in pixels
class="type">int m_chart_width_px; class=class="str">"cmt">// Height of the chart in pixels
class="type">class="kw">double m_chart_price_max; class=class="str">"cmt">// Chart maximum
class="type">class="kw">double m_chart_price_min; class=class="str">"cmt">// Chart minimum
class="kw">virtual ENUM_PATTERN_DIRECTION FindPattern(const class="type">class="kw">datetime series_bar_time,const class="type">uint min_body_size,class="type">MqlRates &mother_bar_data) const
            { class="kw">return WRONG_VALUE;  }
class=class="str">"cmt">//--- (class="num">1) Search for a pattern, class="kw">return direction(or -class="num">1 if no pattern is found),
class=class="str">"cmt">//--- (class="num">2) create a pattern with a specified direction,
class=class="str">"cmt">//--- (class="num">3) create and class="kw">return a unique pattern code,
class=class="str">"cmt">//--- (class="num">4) class="kw">return the list of patterns managed by the object
class="kw">virtual ENUM_PATTERN_DIRECTION FindPattern(const class="type">class="kw">datetime series_bar_time,class="type">MqlRates &mother_bar_data) const { class="kw">return WRONG_VALUE;    }
class="kw">virtual CPattern *CreatePattern(const ENUM_PATTERN_DIRECTION direction,const class="type">uint id,CBar *bar){ class="kw">return NULL;        }
class="kw">virtual class="type">class="kw">ulong   GetPatternCode(const ENUM_PATTERN_DIRECTION direction,const class="type">class="kw">datetime time) const { class="kw">return class="num">0;                }
class="kw">virtual CArrayObj*GetListPatterns(class="type">void)                                          { class="kw">return NULL;                      }

class=class="str">"cmt">//--- (class="num">1) Set and(class="num">2) class="kw">return the flag for drawing pattern icons as dots
   class="type">void              SetDrawingAsDots(const class="type">bool flag,const class="type">bool redraw);
   class="type">bool              IsDrawingAsDots(class="type">void)                                const { class="kw">return this.m_draw_dots; }
class="kw">public:
   class="type">MqlParam          PatternParams[];                                     class=class="str">"cmt">// Array of pattern parameters
class=class="str">"cmt">//--- Return itself
   CPatternControl  *GetObject(class="type">void)                                      { class="kw">return &this; }
class=class="str">"cmt">//--- (class="num">1) Set and(class="num">2) class="kw">return the pattern usage flag
   class="type">void              SetUsed(const class="type">bool flag)                             { this.m_used=flag; }
   class="type">bool              IsUsed(class="type">void)                                         const { class="kw">return this.m_used; }
class=class="str">"cmt">//--- (class="num">1) Set and(class="num">2) class="kw">return the pattern drawing flag
   class="type">void              SetDrawing(const class="type">bool flag)                          { this.m_drawing=flag; }
   class="type">bool              IsDrawing(class="type">void)                                      const { class="kw">return this.m_drawing; }
class=class="str">"cmt">//--- Set the necessary percentage ratio of the candle body to the full size of the candle,
class=class="str">"cmt">//--- size of the(class="num">2) upper and(class="num">3) lower shadow to the candle size, (class="num">4) sizes of candles, (class="num">5) minimum size of the candle body

class="type">void SetRatioBodyToCandleSizeValue(const class="type">class="kw">double value) { this.m_ratio_body_to_candle_size=value; }
class="type">void SetRatioLargerShadowToCandleSizeValue(const class="type">class="kw">double value) { this.m_ratio_larger_shadow_to_candle_size=value; }
class="type">void SetRatioSmallerShadowToCandleSizeValue(const class="type">class="kw">double value){ this.m_ratio_smaller_shadow_to_candle_size=value; }
class="type">void SetRatioCandleSizeValue(const class="type">class="kw">double value) { this.m_ratio_candle_sizes=value; }
class="type">void SetMinBodySize(const class="type">uint value) { this.m_min_body_size=value; }
class=class="str">"cmt">//--- Return the necessary percentage ratio of the candle body to the full size of the candle,
class=class="str">"cmt">//--- size of the(class="num">2) upper and(class="num">3) lower shadow to the candle size, (class="num">4) sizes of candles, (class="num">5) minimum size of the candle body
class="type">class="kw">double RatioBodyToCandleSizeValue(class="type">void) const { class="kw">return this.m_ratio_body_to_candle_size; }
class="type">class="kw">double RatioLargerShadowToCandleSizeValue(class="type">void) const { class="kw">return this.m_ratio_larger_shadow_to_candle_size; }
class="type">class="kw">double RatioSmallerShadowToCandleSizeValue(class="type">void) const { class="kw">return this.m_ratio_smaller_shadow_to_candle_size; }
class="type">class="kw">double RatioCandleSizeValue(class="type">void) const { class="kw">return this.m_ratio_candle_sizes; }
class="type">int MinBodySize(class="type">void) const { class="kw">return (class="type">int)this.m_min_body_size; }
class=class="str">"cmt">//--- Return object ID based on pattern search criteria

class="kw">virtual class="type">class="kw">ulong      ObjectID(class="type">void)                                                          const { class="kw">return this.m_object_id;                                                                      }
class=class="str">"cmt">//--- Return pattern(class="num">1) type, (class="num">2) timeframe, (class="num">3) symbol, (class="num">4) symbol Point, (class="num">5) symbol code
  ENUM_PATTERN_TYPE TypePattern(class="type">void)                                                          const { class="kw">return this.m_type_pattern;                                                                     }
  ENUM_TIMEFRAMES   Timeframe(class="type">void)                                                            const { class="kw">return this.m_timeframe;                                                                       }
  class="type">class="kw">string            Symbol(class="type">void)                                                              const { class="kw">return this.m_symbol;                                                                          }
  class="type">class="kw">double            Point(class="type">void)                                                               const { class="kw">return this.m_point;                                                                           }
  class="type">class="kw">ulong             SymbolCode(class="type">void)                                                          const { class="kw">return this.m_symbol_code;                                                                     }

class=class="str">"cmt">//--- Set the(class="num">1) chart scale, (class="num">2) height, (class="num">3) width in pixels, (class="num">4) high, (class="num">5) low
  class="type">void              SetChartScale(const class="type">int scale)                                                 { this.m_chart_scale=scale;                                                                      }
  class="type">void              SetChartHeightInPixels(const class="type">int height)                                        { this.m_chart_height_px=height;                                                                  }
  class="type">void              SetChartWidthInPixels(const class="type">int width)                                          { this.m_chart_width_px=width;                                                                    }

class="type">void SetChartPriceMax(const class="type">class="kw">double price) { this.m_chart_price_max=price; }
class="type">void SetChartPriceMin(const class="type">class="kw">double price) { this.m_chart_price_min=price; }
class=class="str">"cmt">//--- Return the(class="num">1) chart scale, (class="num">2) height, (class="num">3) width in pixels, (class="num">4) high, (class="num">5) low
class="type">int ChartScale(class="type">void) const { class="kw">return this.m_chart_scale; }
class="type">int ChartHeightInPixels(class="type">void) const { class="kw">return this.m_chart_height_px; }
class="type">int ChartWidthInPixels(class="type">void) const { class="kw">return this.m_chart_width_px; }
class="type">class="kw">double ChartPriceMax(class="type">void) const { class="kw">return this.m_chart_price_max; }
class="type">class="kw">double ChartPriceMin(class="type">void) const { class="kw">return this.m_chart_price_min; }
class=class="str">"cmt">//--- Compare CPatternControl objects by all possible properties
class="kw">virtual class="type">int Compare(const CObject *node,const class="type">int mode=class="num">0) const;
class=class="str">"cmt">//--- Search for patterns and add found ones to the list of all patterns
class="kw">virtual class="type">int CreateAndRefreshPatternList(class="type">void);
class=class="str">"cmt">//--- Display patterns on the chart
class="type">void DrawPatterns(const class="type">bool redraw=class="kw">false);
class=class="str">"cmt">//--- Redraw patterns on the chart with a new size
class="type">void RedrawPatterns(const class="type">bool redraw=class="kw">false);

class="kw">protected:
   CPatternControl(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const ENUM_PATTERN_STATUS status,const ENUM_PATTERN_TYPE type,CArrayObj *list_series,CArrayObj *list_patterns,const class="type">MqlParam &param[]);
  };

CPatternControl::CPatternControl(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const ENUM_PATTERN_STATUS status,const ENUM_PATTERN_TYPE type,CArrayObj *list_series,CArrayObj *list_patterns,const class="type">MqlParam &param[]) :
  m_used(true),m_drawing(true)
  {
   this.m_type=OBJECT_DE_TYPE_SERIES_PATTERN_CONTROL;
   this.m_type_pattern=type;
   this.m_symbol=(symbol==NULL || symbol=="" ? ::Symbol() : symbol);
   this.m_timeframe=(timeframe==PERIOD_CURRENT ? ::Period() : timeframe);
   this.m_point=::SymbolInfoDouble(this.m_symbol,SYMBOL_POINT);
   this.m_object_id=class="num">0;
   this.m_list_series=list_series;
   this.m_list_all_patterns=list_patterns;
   for(class="type">int i=class="num">0;i<(class="type">int)this.m_symbol.Length();i++)
      this.m_symbol_code+=this.m_symbol.GetChar(i);
   this.m_chart_scale=(class="type">int)::ChartGetInteger(this.m_chart_id,CHART_SCALE);
   this.m_chart_height_px=(class="type">int)::ChartGetInteger(this.m_chart_id,CHART_HEIGHT_IN_PIXELS);
   this.m_chart_width_px=(class="type">int)::ChartGetInteger(this.m_chart_id,CHART_WIDTH_IN_PIXELS);
   this.m_chart_price_max=::ChartGetDouble(this.m_chart_id,CHART_PRICE_MAX);
   this.m_chart_price_min=::ChartGetDouble(this.m_chart_id,CHART_PRICE_MIN);
class=class="str">"cmt">//--- fill in the array of parameters with data from the array passed to constructor
   class="type">int count=::ArrayResize(this.PatternParams,::ArraySize(param));
   for(class="type">int i=class="num">0;i<count;i++)
     {
      this.PatternParams[i].type       = param[i].type;
      this.PatternParams[i].double_value = param[i].double_value;
      this.PatternParams[i].integer_value= param[i].integer_value;
      this.PatternParams[i].string_value = param[i].string_value;
     }
  }

if(!this.m_used)
   class="kw">return class="num">0;
class=class="str">"cmt">//--- Reset the timeseries event flag and clear the list of all timeseries pattern events
this.m_is_event=class="kw">false;
this.m_list_events.Clear();
class=class="str">"cmt">//--- Get the opening date of the last(current) bar
class="type">class="kw">datetime time_open=class="num">0;
if(!::SeriesInfoInteger(this.Symbol(),this.Timeframe(),SERIES_LASTBAR_DATE,time_open))
   class="kw">return class="num">0;
   
class=class="str">"cmt">//--- Get a list of all bars in the timeseries except the current one
CArrayObj *list=CSelect::ByBarProperty(this.m_list_series,BAR_PROP_TIME,time_open,LESS);
if(list==NULL || list.Total()==class="num">0)
   class="kw">return class="num">0;
class=class="str">"cmt">//--- "Mother" bar data structure
class="type">MqlRates pattern_mother_bar_data={};
class=class="str">"cmt">//--- Sort the resulting list by bar opening time
list.Sort(SORT_BY_BAR_TIME);
class=class="str">"cmt">//--- In a loop from the latest bar,
for(class="type">int i=list.Total()-class="num">1;i>=class="num">0;i--)
   {
   class=class="str">"cmt">//--- get the next bar object from the list
   CBar *bar=list.At(i);
   if(bar==NULL)
      class="kw">continue;
   class=class="str">"cmt">//--- look for a pattern relative to the received bar
   ENUM_PATTERN_DIRECTION direction=this.FindPattern(bar.Time(),pattern_mother_bar_data);
   class=class="str">"cmt">//--- If there is no pattern, go to the next bar
   if(direction==WRONG_VALUE)
      class="kw">continue;
      
   class=class="str">"cmt">//--- Pattern found on the current bar of the loop
   class=class="str">"cmt">//--- unique pattern code = candle opening time + type + status + pattern direction + timeframe + timeseries symbol
   class="type">class="kw">ulong code=this.GetPatternCode(direction,bar.Time());
   class=class="str">"cmt">//--- Set the pattern code to the sample
   this.m_pattern_instance.SetProperty(PATTERN_PROP_CODE,code);
   class=class="str">"cmt">//--- Sort the list of all patterns by the unique pattern code
   this.m_list_all_patterns.Sort(SORT_BY_PATTERN_CODE);
   class=class="str">"cmt">//--- search for a pattern in the list class="kw">using a unique code
   class="type">int index=this.m_list_all_patterns.Search(&this.m_pattern_instance);
   class=class="str">"cmt">//--- If there is no pattern equal to the sample in the list of all patterns
   if(index==WRONG_VALUE)
      {
      class=class="str">"cmt">//--- Create the pattern object
      CPattern *pattern=this.CreatePattern(direction,this.m_list_all_patterns.Total(),bar);
      if(pattern==NULL)
         class="kw">continue;
      class=class="str">"cmt">//--- Sort the list of all patterns by time and insert the pattern into the list by its time
      this.m_list_all_patterns.Sort(SORT_BY_PATTERN_TIME);
      if(!this.m_list_all_patterns.InsertSort(pattern))
         {
         class="kw">delete pattern;
         class="kw">continue;
         }

class=class="str">"cmt">//--- 把形态类型追加进 bar 对象的形态类型列表
bar.AddPatternType(pattern.TypePattern());
class=class="str">"cmt">//--- 把形态所在 bar 的指针连同母棒数据写进 pattern
pattern.SetPatternBar(bar);
pattern.SetMotherBarData(pattern_mother_bar_data);
class=class="str">"cmt">//--- 给 pattern 设置图表数据
pattern.SetChartHeightInPixels(this.m_chart_height_px);
pattern.SetChartWidthInPixels(this.m_chart_width_px);
pattern.SetChartScale(this.m_chart_scale);
pattern.SetChartPriceMax(this.m_chart_price_max);
pattern.SetChartPriceMin(this.m_chart_price_min);
class=class="str">"cmt">//--- 若开启绘制开关，就在图上画形态标签
if(this.m_drawing)
   pattern.Draw(class="kw">false);
class=class="str">"cmt">//--- 取时间序列中倒数第二根(索引1)的开盘时间
class="type">class="kw">datetime time_prev=time_open-::PeriodSeconds(this.Timeframe());
class=class="str">"cmt">//--- 如果当前循环到的 bar 正是时间序列里索引1的那根，就创建并发送消息
if(bar.Time()==time_prev)
   {
   class=class="str">"cmt">// 这里写消息创建与发送逻辑
   }

class=class="str">"cmt">//--- Add the pattern type to the list of pattern types of the bar object
bar.AddPatternType(pattern.TypePattern());
class=class="str">"cmt">//--- Add the pointer to the bar the pattern object is found on, together with the mother bar data
pattern.SetPatternBar(bar);
pattern.SetMotherBarData(pattern_mother_bar_data);

class=class="str">"cmt">//--- set the chart data to the pattern object
pattern.SetChartHeightInPixels(this.m_chart_height_px);
pattern.SetChartWidthInPixels(this.m_chart_width_px);
pattern.SetChartScale(this.m_chart_scale);
pattern.SetChartPriceMax(this.m_chart_price_max);
pattern.SetChartPriceMin(this.m_chart_price_min);
class=class="str">"cmt">//--- If the drawing flag is set, draw the pattern label on the chart
if(this.m_drawing)
   pattern.Draw(class="kw">false);
class=class="str">"cmt">//--- Get the time of the penultimate bar in the collection list(timeseries bar with index class="num">1)
class="type">class="kw">datetime time_prev=time_open-::PeriodSeconds(this.Timeframe());
class=class="str">"cmt">//--- If the current bar in the loop is the bar with index class="num">1 in the timeseries, create and send a message
if(bar.Time()==time_prev)
   {
   class=class="str">"cmt">// Here is where the message is created and sent
   }
}
   }
class=class="str">"cmt">//--- Sort the list of all patterns by time and class="kw">return the total number of patterns in the list
this.m_list_all_patterns.Sort(SORT_BY_PATTERN_TIME);
class="kw">return m_list_all_patterns.Total();
class=class="str">"cmt">//+-------------------------------------------------------------------+
class=class="str">"cmt">//|Redraw patterns on a chart with a new size of the bitmap object    |
class=class="str">"cmt">//+-------------------------------------------------------------------+
class="type">void CPatternControl::RedrawPatterns(const class="type">bool redraw=class="kw">false)
  {
class=class="str">"cmt">//--- Get a list of patterns controlled by the control object
  CArrayObj *list=this.GetListPatterns();
  if(list==NULL || list.Total()==class="num">0)
     class="kw">return;
class=class="str">"cmt">//--- Sort the obtained list by pattern time
  list.Sort(SORT_BY_PATTERN_TIME);
class=class="str">"cmt">//--- In a loop from the latest pattern,
  for(class="type">int i=list.Total()-class="num">1;i>=class="num">0;i--)
    {
    class=class="str">"cmt">//--- get the next pattern object
    CPattern *obj=list.At(i);
    if(obj==NULL)
       class="kw">continue;
    class=class="str">"cmt">//--- Redraw the pattern bitmap object on the chart 
    obj.Redraw(class="kw">false);
    }
class=class="str">"cmt">//--- At the end of the cycle, redraw the chart if the flag is set
  if(redraw)
     ::ChartRedraw(this.m_chart_id);
  }

class CPatternControlPinBar : class="kw">public CPatternControl
  {
class="kw">protected:
class=class="str">"cmt">//--- (class="num">1) Search for a pattern, class="kw">return direction(or -class="num">1),
class=class="str">"cmt">//--- (class="num">2) create a pattern with a specified direction,
class=class="str">"cmt">//--- (class="num">3) create and class="kw">return a unique pattern code
class=class="str">"cmt">//--- (class="num">4) class="kw">return the list of patterns managed by the object
   class="kw">virtual ENUM_PATTERN_DIRECTION FindPattern(const class="type">class="kw">datetime series_bar_time,class="type">MqlRates &mother_bar_data) const;
   class="kw">virtual CPattern *CreatePattern(const ENUM_PATTERN_DIRECTION direction,const class="type">uint id,CBar *bar);
   class="kw">virtual class="type">class="kw">ulong     GetPatternCode(const ENUM_PATTERN_DIRECTION direction,const class="type">class="kw">datetime time) const
                     {
                     class=class="str">"cmt">//--- unique pattern code = candle opening time + type + status + pattern direction + timeframe + timeseries symbol
                     class="kw">return(time+PATTERN_TYPE_PIN_BAR+PATTERN_STATUS_PA+direction+this.Timeframe()+this.m_symbol_code);
                     }
   class="kw">virtual CArrayObj*GetListPatterns(class="type">void);
class=class="str">"cmt">//--- Create object ID based on pattern search criteria
   class="kw">virtual class="type">class="kw">ulong     CreateObjectID(class="type">void);
class="kw">public:
class=class="str">"cmt">//--- Parametric constructor
                     CPatternControlPinBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
                                           CArrayObj *list_series,CArrayObj *list_patterns,
                                           const class="type">MqlParam &param[]) :
                     CPatternControl(symbol,timeframe,PATTERN_STATUS_PA,PATTERN_TYPE_PIN_BAR,list_series,list_patterns,param)
                     {
                     this.m_min_body_size=(class="type">uint)this.PatternParams[class="num">0].integer_value;
                     this.m_ratio_body_to_candle_size=this.PatternParams[class="num">1].double_value;
                     this.m_ratio_larger_shadow_to_candle_size=this.PatternParams[class="num">2].double_value;
                     this.m_ratio_smaller_shadow_to_candle_size=this.PatternParams[class="num">3].double_value;
                     this.m_ratio_candle_sizes=class="num">0;
                     }

ENUM_PATTERN_DIRECTION CPatternControlPinBar::FindPattern(const class="type">class="kw">datetime series_bar_time,class="type">MqlRates &mother_bar_data) const
  {
class=class="str">"cmt">//--- Get data for one bar by time
   CArrayObj *list=CSelect::ByBarProperty(this.m_list_series,BAR_PROP_TIME,series_bar_time,EQUAL);
class=class="str">"cmt">//--- If the list is empty, class="kw">return -class="num">1
   if(list==NULL || list.Total()==class="num">0)
      class="kw">return WRONG_VALUE;
class=class="str">"cmt">//--- he size of the candle body should be less than or equal to RatioBodyToCandleSizeValue() (class="kw">default class="num">30%) of the entire candle size,
class=class="str">"cmt">//--- in this case, the body size should not be less than min_body_size
   list=CSelect::ByBarProperty(list,BAR_PROP_RATIO_BODY_TO_CANDLE_SIZE,this.RatioBodyToCandleSizeValue(),EQUAL_OR_LESS);
   list=CSelect::ByBarProperty(list,BAR_PROP_RATIO_BODY_TO_CANDLE_SIZE,this.m_min_body_size,EQUAL_OR_MORE);
class=class="str">"cmt">//--- If the list is empty - there are no patterns, class="kw">return -class="num">1
   if(list==NULL || list.Total()==class="num">0)
      class="kw">return WRONG_VALUE;
   class="kw">return WRONG_VALUE;
  }

class CPatternControlInsideBar : class="kw">public CPatternControl
  {
class="kw">private:
   class="type">bool CheckInsideBar(const CBar *bar1,const CBar *bar0) const
     {
      if(bar0==NULL || bar1==NULL)
         class="kw">return class="kw">false;
      class="kw">return(bar0.High()<bar1.High() && bar0.Low()>bar1.Low());
     }
  };

class="kw">return class="kw">false;
class=class="str">"cmt">//--- In a loop through the list, starting from the bar to the left of the base one
for(class="type">int i=list.Total()-class="num">2;i>class="num">0;i--)
  {
   class=class="str">"cmt">//--- Get the pointers to two consecutive bars 
   CBar *bar0=list.At(i);
   CBar *bar1=list.At(i-class="num">1);
   if(bar0==NULL || bar1==NULL)
     class="kw">return class="kw">false;
   class=class="str">"cmt">//--- If the obtained bars represent a pattern 
   if(CheckInsideBar(bar1,bar0))
     {
      class=class="str">"cmt">//--- set mother bar data to the class="type">MqlRates variable and set &class="macro">#x27;res&class="macro">#x27; to &class="macro">#x27;true&class="macro">#x27;
      this.SetBarData(bar1,rates);
      res=true;
     }
   class=class="str">"cmt">//--- If there is no pattern, interrupt the loop
   else
     break;
  }
class=class="str">"cmt">//--- class="kw">return the result
class="kw">return res;
}
class="kw">protected:
class=class="str">"cmt">//--- (class="num">1) Search for a pattern, class="kw">return direction(or -class="num">1),
class=class="str">"cmt">//--- (class="num">2) create a pattern with a specified direction,
class=class="str">"cmt">//--- (class="num">3) create and class="kw">return a unique pattern code
class=class="str">"cmt">//--- (class="num">4) class="kw">return the list of patterns managed by the object
  class="kw">virtual ENUM_PATTERN_DIRECTION FindPattern(const class="type">class="kw">datetime series_bar_time,class="type">MqlRates &mother_bar_data) const;
  class="kw">virtual CPattern *CreatePattern(const ENUM_PATTERN_DIRECTION direction,const class="type">uint id,CBar *bar);

class="kw">virtual class="type">class="kw">ulong GetPatternCode(const ENUM_PATTERN_DIRECTION direction,const class="type">class="kw">datetime time) const
  {
   class=class="str">"cmt">//--- unique pattern code = candle opening time + type + status + pattern direction + timeframe + timeseries symbol
   class="kw">return(time+PATTERN_TYPE_INSIDE_BAR+PATTERN_STATUS_PA+PATTERN_DIRECTION_BOTH+this.Timeframe()+this.m_symbol_code);
  }

CPatternControlInsideBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
                         CArrayObj *list_series,CArrayObj *list_patterns,const class="type">MqlParam &param[]) :
   CPatternControl(symbol,timeframe,PATTERN_STATUS_PA,PATTERN_TYPE_INSIDE_BAR,list_series,list_patterns,param)
  {
   this.m_min_body_size=(class="type">uint)this.PatternParams[class="num">0].integer_value;
   this.m_ratio_body_to_candle_size=class="num">0;
   this.m_ratio_larger_shadow_to_candle_size=class="num">0;
   this.m_ratio_smaller_shadow_to_candle_size=class="num">0;
   this.m_ratio_candle_sizes=class="num">0;
   this.m_object_id=this.CreateObjectID();
  }

class="kw">virtual class="type">class="kw">ulong GetPatternCode(const ENUM_PATTERN_DIRECTION direction,const class="type">class="kw">datetime time) const
  {
   class=class="str">"cmt">//--- unique pattern code = candle opening time + type + status + pattern direction + timeframe + timeseries symbol
   class="kw">return(time+PATTERN_TYPE_INSIDE_BAR+PATTERN_STATUS_PA+PATTERN_DIRECTION_BOTH+this.Timeframe()+this.m_symbol_code);
  }

class="kw">virtual CArrayObj*GetListPatterns(class="type">void);
class=class="str">"cmt">//--- Create object ID based on pattern search criteria
class="kw">virtual class="type">class="kw">ulong CreateObjectID(class="type">void);
class="kw">public:
class=class="str">"cmt">//--- Parametric constructor
CPatternControlInsideBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
                         CArrayObj *list_series,CArrayObj *list_patterns,const class="type">MqlParam &param[]) :
   CPatternControl(symbol,timeframe,PATTERN_STATUS_PA,PATTERN_TYPE_INSIDE_BAR,list_series,list_patterns,param)
  {
   this.m_min_body_size=(class="type">uint)this.PatternParams[class="num">0].integer_value;
   this.m_ratio_body_to_candle_size=class="num">0;
   this.m_ratio_larger_shadow_to_candle_size=class="num">0;
   this.m_ratio_smaller_shadow_to_candle_size=class="num">0;
   this.m_ratio_candle_sizes=class="num">0;
   this.m_object_id=this.CreateObjectID();
  }
};

ENUM_PATTERN_DIRECTION CPatternControlInsideBar::FindPattern(const class="type">class="kw">datetime series_bar_time,class="type">MqlRates &mother_bar_data) const

class CPatternControlOutsideBar : class="kw">public CPatternControl
  {
 class="kw">private:

class=class="str">"cmt">//--- Check and class="kw">return the flag of compliance with the ratio of the candle body to its size relative to the specified value
   class="type">bool                CheckProportions(const CBar *bar) const { class="kw">return(bar.RatioBodyToCandleSize()>=this.RatioBodyToCandleSizeValue());  }

class=class="str">"cmt">//--- Return the ratio of nearby candles for the specified bar
   class="type">class="kw">double              GetRatioCandles(const CBar *bar)  const
     {
      class=class="str">"cmt">//--- If an empty object is passed, class="kw">return class="num">0
      if(bar==NULL)
         class="kw">return class="num">0;
      class=class="str">"cmt">//--- Get a list of bars with a time less than that passed to the method
      CArrayObj *list=CSelect::ByBarProperty(this.m_list_series,BAR_PROP_TIME,bar.Time(),LESS);
      if(list==NULL || list.Total()==class="num">0)
         class="kw">return class="num">0;
      class=class="str">"cmt">//--- Set the flag of sorting by bar time for the list and
      list.Sort(SORT_BY_BAR_TIME);
      class=class="str">"cmt">//--- get the pointer to the last bar in the list(closest to the one passed to the method)
      CBar *bar1=list.At(list.Total()-class="num">1);
      if(bar1==NULL)
         class="kw">return class="num">0;
      class=class="str">"cmt">//--- Return the ratio of the sizes of one bar to another
      class="kw">return(bar.Size()>class="num">0 ? bar1.Size()*class="num">100.0/bar.Size() : class="num">0.0);
     }
class=class="str">"cmt">//--- Check and class="kw">return the presence of a pattern on two adjacent bars
   class="type">bool                CheckOutsideBar(const CBar *bar1,const CBar *bar0) const
     {
      class=class="str">"cmt">//--- If empty bar objects are passed, or their types in direction are neither bullish nor bearish, or are the same - class="kw">return &class="macro">#x27;class="kw">false&class="macro">#x27;
      if(bar0==NULL || bar1==NULL ||
         bar0.TypeBody()==BAR_BODY_TYPE_NULL || bar1.TypeBody()==BAR_BODY_TYPE_NULL ||

bar0.TypeBody()==BAR_BODY_TYPE_CANDLE_ZERO_BODY || bar1.TypeBody()==BAR_BODY_TYPE_CANDLE_ZERO_BODY ||
bar0.TypeBody()==bar1.TypeBody())
   class="kw">return class="kw">false;
   class=class="str">"cmt">//--- Calculate the ratio of the specified candles and, if it is less than the specified one, class="kw">return &class="macro">#x27;class="kw">false&class="macro">#x27;
   class="type">class="kw">double ratio=(bar0.Size()>class="num">0 ? bar1.Size()*class="num">100.0/bar0.Size() : class="num">0.0);
   if(ratio<this.RatioCandleSizeValue())
      class="kw">return class="kw">false;
   class=class="str">"cmt">//--- Return the fact that the bar body on the right completely covers the dimensions of the bar body on the left,
   class=class="str">"cmt">//--- and the shadows of the bars are either equal, or the shadows of the bar on the right overlap the shadows of the bar on the left
   class="kw">return(bar1.High()<=bar0.High() && bar1.Low()>=bar0.Low() && bar1.TopBody()<bar0.TopBody() && bar1.BottomBody()>bar0.BottomBody());

class="kw">protected:
class=class="str">"cmt">//--- (class="num">1) Search for a pattern, class="kw">return direction(or -class="num">1),
class=class="str">"cmt">//--- (class="num">2) create a pattern with a specified direction,
class=class="str">"cmt">//--- (class="num">3) create and class="kw">return a unique pattern code
class=class="str">"cmt">//--- (class="num">4) class="kw">return the list of patterns managed by the object
   class="kw">virtual ENUM_PATTERN_DIRECTION FindPattern(const class="type">class="kw">datetime series_bar_time,class="type">MqlRates &mother_bar_data) const;
   class="kw">virtual CPattern *CreatePattern(const ENUM_PATTERN_DIRECTION direction,const class="type">uint id,CBar *bar);
   class="kw">virtual class="type">class="kw">ulong    GetPatternCode(const ENUM_PATTERN_DIRECTION direction,const class="type">class="kw">datetime time) const
      {
      class=class="str">"cmt">//--- unique pattern code = candle opening time + type + status + pattern direction + timeframe + timeseries symbol
      class="kw">return(time+PATTERN_TYPE_OUTSIDE_BAR+PATTERN_STATUS_PA+direction+this.Timeframe()+this.m_symbol_code);
      }
   class="kw">virtual CArrayObj*GetListPatterns(class="type">void);
class=class="str">"cmt">//--- Create object ID based on pattern search criteria
   class="kw">virtual class="type">class="kw">ulong    CreateObjectID(class="type">void);
class="kw">public:
class=class="str">"cmt">//--- Parametric constructor
            CPatternControlOutsideBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
                                     CArrayObj *list_series,CArrayObj *list_patterns,

const class="type">MqlParam &param[]) :
		CPatternControl(symbol,timeframe,PATTERN_STATUS_PA,PATTERN_TYPE_OUTSIDE_BAR,list_series,list_patterns,param)
		{
			this.m_min_body_size=(class="type">uint)this.PatternParams[class="num">0].integer_value;    class=class="str">"cmt">// Minimum size of pattern candles
			this.m_ratio_candle_sizes=this.PatternParams[class="num">1].double_value;      class=class="str">"cmt">// Percentage of the size of the absorbing candle to the size of the absorbed one
			this.m_ratio_body_to_candle_size=this.PatternParams[class="num">2].double_value; class=class="str">"cmt">// Percentage of full size to candle body size
			this.m_object_id=this.CreateObjectID();
			}
	};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Create object ID based on pattern search criteria                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">ulong CPatternControlOutsideBar::CreateObjectID(class="type">void)
	{
	 class="type">class="kw">ushort bodies=(class="type">class="kw">ushort)this.RatioCandleSizeValue()*class="num">100;
	 class="type">class="kw">ushort body=(class="type">class="kw">ushort)this.RatioBodyToCandleSizeValue()*class="num">100;
	 class="type">class="kw">ulong  res=class="num">0;
	 this.UshortToLong(bodies,class="num">0,res);
	 class="kw">return this.UshortToLong(body,class="num">1,res);
	}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Pack a &class="macro">#x27;class="type">class="kw">ushort&class="macro">#x27; number to a passed &class="macro">#x27;class="type">long&class="macro">#x27; number                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">long CBaseObjExt::UshortToLong(const class="type">class="kw">ushort ushort_value,const class="type">uchar to_byte,class="type">long &long_value)
	{
	 if(to_byte>class="num">3)
		{
			::Print(DFUN,CMessage::Text(MSG_LIB_SYS_ERROR_INDEX));
			class="kw">return class="num">0;
		}
	 class="kw">return(long_value |= this.UshortToByte(ushort_value,to_byte));
	}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Convert a &class="macro">#x27;class="type">class="kw">ushort&class="macro">#x27; value to a specified &class="macro">#x27;class="type">long&class="macro">#x27; number byte       |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">long CBaseObjExt::UshortToByte(const class="type">class="kw">ushort value,const class="type">uchar to_byte) const
	{
	 class="kw">return(class="type">long)value<<(class="num">16*to_byte);
	}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Create a pattern with a specified direction                      |
class=class="str">"cmt">//+------------------------------------------------------------------+

CPattern *CPatternControlOutsideBar::CreatePattern(const ENUM_PATTERN_DIRECTION direction,const class="type">uint id,CBar *bar)
  {
class=class="str">"cmt">//--- If invalid indicator is passed to the bar object, class="kw">return NULL
   if(bar==NULL)
      class="kw">return NULL;
class=class="str">"cmt">//--- Fill the class="type">MqlRates structure with bar data
   class="type">MqlRates rates={class="num">0};
   this.SetBarData(bar,rates);
class=class="str">"cmt">//--- Create a new Outside Bar pattern
   CPatternOutsideBar *obj=new CPatternOutsideBar(id,this.Symbol(),this.Timeframe(),rates,direction);
   if(obj==NULL)
      class="kw">return NULL;
class=class="str">"cmt">//--- set the proportions of the candle the pattern was found on to the properties of the created pattern object
   obj.SetProperty(PATTERN_PROP_RATIO_BODY_TO_CANDLE_SIZE,bar.RatioBodyToCandleSize());
   obj.SetProperty(PATTERN_PROP_RATIO_LOWER_SHADOW_TO_CANDLE_SIZE,bar.RatioLowerShadowToCandleSize());
   obj.SetProperty(PATTERN_PROP_RATIO_UPPER_SHADOW_TO_CANDLE_SIZE,bar.RatioUpperShadowToCandleSize());
   obj.SetProperty(PATTERN_PROP_RATIO_CANDLE_SIZES,this.GetRatioCandles(bar));
class=class="str">"cmt">//--- set the search criteria of the candle the pattern was found on to the properties of the created pattern object
   obj.SetProperty(PATTERN_PROP_RATIO_BODY_TO_CANDLE_SIZE_CRITERION,this.RatioBodyToCandleSizeValue());
   obj.SetProperty(PATTERN_PROP_RATIO_LARGER_SHADOW_TO_CANDLE_SIZE_CRITERION,this.RatioLargerShadowToCandleSizeValue());
   obj.SetProperty(PATTERN_PROP_RATIO_SMALLER_SHADOW_TO_CANDLE_SIZE_CRITERION,this.RatioSmallerShadowToCandleSizeValue());
   obj.SetProperty(PATTERN_PROP_RATIO_CANDLE_SIZES_CRITERION,this.RatioCandleSizeValue());
class=class="str">"cmt">//--- Set the control object ID to the pattern object
   obj.SetProperty(PATTERN_PROP_CTRL_OBJ_ID,this.ObjectID());
class=class="str">"cmt">//--- Return the pointer to a created object
   class="kw">return obj;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| CPatternControlOutsideBar::Search for pattern                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
ENUM_PATTERN_DIRECTION CPatternControlOutsideBar::FindPattern(const class="type">class="kw">datetime series_bar_time,class="type">MqlRates &mother_bar_data) const
  {
class=class="str">"cmt">//--- Get bar data up to and including the specified time
   CArrayObj *list=CSelect::ByBarProperty(this.m_list_series,BAR_PROP_TIME,series_bar_time,EQUAL_OR_LESS);
class=class="str">"cmt">//--- If the list is empty, class="kw">return -class="num">1
   if(list==NULL || list.Total()==class="num">0)
      class="kw">return WRONG_VALUE;
class=class="str">"cmt">//--- Sort the list by bar opening time
   list.Sort(SORT_BY_BAR_TIME);
class=class="str">"cmt">//--- Get the latest bar from the list(base bar)
   CBar *bar_patt=list.At(list.Total()-class="num">1);
   if(bar_patt==NULL)
      class="kw">return WRONG_VALUE;
class=class="str">"cmt">//--- In the loop from the next bar(mother),
   for(class="type">int i=list.Total()-class="num">2;i>=class="num">0;i--)
     {
      class=class="str">"cmt">//--- Get the "mother" bar
      CBar *bar_prev=list.At(i);
      if(bar_prev==NULL)
         class="kw">return WRONG_VALUE;
      class=class="str">"cmt">//--- If the proportions of the bars do not match the pattern, class="kw">return -class="num">1
      if(!this.CheckProportions(bar_patt) || !this.CheckProportions(bar_prev))
         class="kw">return WRONG_VALUE;
      class=class="str">"cmt">//--- check that the resulting two bars are a pattern. If not, class="kw">return -class="num">1
      if(!this.CheckOutsideBar(bar_prev,bar_patt))

class="kw">return WRONG_VALUE;
class=class="str">"cmt">//--- Set the "mother" bar data
this.SetBarData(bar_prev,mother_bar_data);
class=class="str">"cmt">//--- If the pattern is found at the previous step, determine and class="kw">return its direction
if(bar_patt.TypeBody()==BAR_BODY_TYPE_BULLISH)
   class="kw">return PATTERN_DIRECTION_BULLISH;
if(bar_patt.TypeBody()==BAR_BODY_TYPE_BEARISH)
   class="kw">return PATTERN_DIRECTION_BEARISH;
}
class=class="str">"cmt">//--- No patterns found - class="kw">return -class="num">1
 class="kw">return WRONG_VALUE;
}
CArrayObj *CPatternControlOutsideBar::GetListPatterns(class="type">void)
  {
  CArrayObj *list=CSelect::ByPatternProperty(this.m_list_all_patterns,PATTERN_PROP_PERIOD,this.Timeframe(),EQUAL);
  list=CSelect::ByPatternProperty(list,PATTERN_PROP_SYMBOL,this.Symbol(),EQUAL);
  list=CSelect::ByPatternProperty(list,PATTERN_PROP_TYPE,PATTERN_TYPE_OUTSIDE_BAR,EQUAL);
  class="kw">return CSelect::ByPatternProperty(list,PATTERN_PROP_CTRL_OBJ_ID,this.ObjectID(),EQUAL);
  }

class="kw">public:
class=class="str">"cmt">//--- Return(class="num">1) timeframe, (class="num">2) timeseries symbol, (class="num">3) itself
  ENUM_TIMEFRAMES  Timeframe(class="type">void)                                                const { class="kw">return this.m_timeframe; }
  class="type">class="kw">string           Symbol(class="type">void)                                                    const { class="kw">return this.m_symbol;   }
  CPatternsControl *GetObject(class="type">void)                                                      { class="kw">return &this;         }

class="kw">protected:
class=class="str">"cmt">//--- Create an object for managing a specified pattern
  CPatternControl  *CreateObjControlPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[])
            {
              class="kw">switch(pattern)
               {
                 case PATTERN_TYPE_HARAMI                 :  class="kw">return NULL;
                 case PATTERN_TYPE_HARAMI_CROSS           :  class="kw">return NULL;
                 case PATTERN_TYPE_TWEEZER                :  class="kw">return NULL;
                 case PATTERN_TYPE_PIERCING_LINE          :  class="kw">return NULL;
                 case PATTERN_TYPE_DARK_CLOUD_COVER       :  class="kw">return NULL;
                 case PATTERN_TYPE_THREE_WHITE_SOLDIERS   :  class="kw">return NULL;
                 case PATTERN_TYPE_THREE_BLACK_CROWS      :  class="kw">return NULL;
                 case PATTERN_TYPE_SHOOTING_STAR          :  class="kw">return NULL;
                 case PATTERN_TYPE_HAMMER                 :  class="kw">return NULL;
                 case PATTERN_TYPE_INVERTED_HAMMER        :  class="kw">return NULL;

    case PATTERN_TYPE_HANGING_MAN       :  class="kw">return NULL;
    case PATTERN_TYPE_DOJI               :  class="kw">return NULL;
    case PATTERN_TYPE_DRAGONFLY_DOJI     :  class="kw">return NULL;
    case PATTERN_TYPE_GRAVESTONE_DOJI    :  class="kw">return NULL;
    case PATTERN_TYPE_MORNING_STAR       :  class="kw">return NULL;
    case PATTERN_TYPE_MORNING_DOJI_STAR  :  class="kw">return NULL;
    case PATTERN_TYPE_EVENING_STAR       :  class="kw">return NULL;
    case PATTERN_TYPE_EVENING_DOJI_STAR  :  class="kw">return NULL;
    case PATTERN_TYPE_THREE_STARS        :  class="kw">return NULL;
    case PATTERN_TYPE_ABANDONED_BABY     :  class="kw">return NULL;
    case PATTERN_TYPE_PIVOT_POINT_REVERSAL :  class="kw">return NULL;
    case PATTERN_TYPE_OUTSIDE_BAR        :  class="kw">return new CPatternControlOutsideBar(this.m_symbol,this.m_timeframe,this.m_list_series,this.m_list_all_patterns,param);
    case PATTERN_TYPE_INSIDE_BAR         :  class="kw">return new CPatternControlInsideBar(this.m_symbol,this.m_timeframe,this.m_list_series,this.m_list_all_patterns,param);
    case PATTERN_TYPE_PIN_BAR            :  class="kw">return new CPatternControlPinBar(this.m_symbol,this.m_timeframe,this.m_list_series,this.m_list_all_patterns,param);
    case PATTERN_TYPE_RAILS              :  class="kw">return NULL;

CPatternControl  *GetObjControlPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[])
            {
            class=class="str">"cmt">//--- In a loop through the list of control objects,
            class="type">int total=this.m_list_controls.Total();
            for(class="type">int i=class="num">0;i<total;i++)
              {
              class=class="str">"cmt">//--- get the next object
              CPatternControl *obj=this.m_list_controls.At(i);
              class=class="str">"cmt">//--- if this is not a pattern control object, go to the next one
              if(obj==NULL || obj.TypePattern()!=pattern)
                class="kw">continue;
              class=class="str">"cmt">//--- Check search conditions and class="kw">return the result
              if(IsEqualMqlParamArrays(obj.PatternParams,param))
                class="kw">return obj;
              }
            class=class="str">"cmt">//--- Not found - class="kw">return NULL
            class="kw">return NULL;
            }

class="type">void        RefreshAll(class="type">void)
            {
            class=class="str">"cmt">//--- In a loop through the list of pattern control objects,
            class="type">int total=this.m_list_controls.Total();
            for(class="type">int i=class="num">0;i<total;i++)

         {
         class=class="str">"cmt">//--- get the next control object
         CPatternControl *obj=this.m_list_controls.At(i);
         if(obj==NULL)
            class="kw">continue;
         
         class=class="str">"cmt">//--- if this is a tester and the current chart sizes are not set, or are not equal to the current ones - we try to get and set them
         if(::MQLInfoInteger(MQL_TESTER))
           {
            class="type">long   int_value=class="num">0;
            class="type">class="kw">double dbl_value=class="num">0;
            if(::ChartGetInteger(this.m_chart_id, CHART_SCALE, class="num">0, int_value))
              {
               if(obj.ChartScale()!=int_value)
                  obj.SetChartScale((class="type">int)int_value);
              }
            if(::ChartGetInteger(this.m_chart_id, CHART_HEIGHT_IN_PIXELS, class="num">0, int_value))
              {
               if(obj.ChartHeightInPixels()!=int_value)
                  obj.SetChartHeightInPixels((class="type">int)int_value);
              }
            if(::ChartGetInteger(this.m_chart_id, CHART_WIDTH_IN_PIXELS, class="num">0, int_value))
              {

if(obj.ChartWidthInPixels()!=int_value)
  obj.SetChartWidthInPixels((class="type">int)int_value);
}
if(::ChartGetDouble(this.m_chart_id, CHART_PRICE_MAX, class="num">0, dbl_value))
  {
   if(obj.ChartPriceMax()!=dbl_value)
     obj.SetChartPriceMax(dbl_value);
  }
if(::ChartGetDouble(this.m_chart_id, CHART_PRICE_MIN, class="num">0, dbl_value))
  {
   if(obj.ChartPriceMin()!=dbl_value)
     obj.SetChartPriceMin(dbl_value);
  }
 }
class=class="str">"cmt">//--- search and create a new pattern
 obj.CreateAndRefreshPatternList();
 }
}
class=class="str">"cmt">//--- Set chart parameters for all pattern management objects
class="type">void SetChartPropertiesToPattCtrl(const class="type">class="kw">double price_max,const class="type">class="kw">double price_min,const class="type">int scale,const class="type">int height_px,const class="type">int width_px)
  {
   class=class="str">"cmt">//--- In a loop through the list of pattern control objects,
   class="type">int total=this.m_list_controls.Total();
   for(class="type">int i=class="num">0;i<total;i++)

{
   class=class="str">"cmt">//--- get the next control object
   CPatternControl *obj=this.m_list_controls.At(i);
   if(obj==NULL)
      class="kw">continue;
   class=class="str">"cmt">//--- If the object is received, set the chart parameters
   obj.SetChartHeightInPixels(height_px);
   obj.SetChartWidthInPixels(width_px);
   obj.SetChartScale(scale);
   obj.SetChartPriceMax(price_max);
   obj.SetChartPriceMin(price_min);
   }
   }

class=class="str">"cmt">//--- Set the flag for class="kw">using the specified pattern and create a control object if it does not already exist
class="type">void SetUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">bool flag)
   {
   CPatternControl *obj=NULL;
   class=class="str">"cmt">//--- Get the pointer to the object for managing the specified pattern
   obj=this.GetObjControlPattern(pattern,param);
   class=class="str">"cmt">//--- If the pointer is received(the object exists), set the use flag 
   if(obj!=NULL)
      obj.SetUsed(flag);
   class=class="str">"cmt">//--- If there is no object and the flag is passed as &class="macro">#x27;true&class="macro">#x27;
   else if(flag)
      {
      class=class="str">"cmt">//--- Create a new pattern management object
      obj=this.CreateObjControlPattern(pattern,param);
      if(obj==NULL)

class="kw">return;
class=class="str">"cmt">//--- Add pointer to the created object to the list
if(!this.m_list_controls.Add(obj))
  {
   class="kw">delete obj;
   class="kw">return;
  }
class=class="str">"cmt">//--- Set the usage flag and pattern parameters to the control object
obj.SetUsed(flag);
obj.CreateAndRefreshPatternList();
   }
    }
class=class="str">"cmt">//--- Return the flag of class="kw">using the specified pattern
class="type">bool IsUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[])
   {
    CPatternControl *obj=this.GetObjControlPattern(pattern,param);
    class="kw">return(obj!=NULL ? obj.IsUsed() : class="kw">false);
   }
class=class="str">"cmt">//--- Places marks of the specified pattern on the chart
class="type">void DrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">bool redraw=class="kw">false)
   {
    CPatternControl *obj=GetObjControlPattern(pattern,param);
    if(obj!=NULL)
       obj.DrawPatterns(redraw);
   }
class=class="str">"cmt">//--- Redraw the bitmap objects of the specified pattern on the chart
class="type">void RedrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">bool redraw=class="kw">false)
   {
    CPatternControl *obj=GetObjControlPattern(pattern,param);
    if(obj!=NULL)

CBar *CSeriesDE::GetBar(const class="type">class="kw">datetime time)
  {
  CBar *obj=new CBar();
  if(obj==NULL)
    class="kw">return NULL;
  obj.SetSymbolPeriod(this.m_symbol,this.m_timeframe,time);
  this.m_list_series.Sort(SORT_BY_BAR_TIME);
  class="type">int index=this.m_list_series.Search(obj);
  class="kw">delete obj;
  class="kw">return this.m_list_series.At(index);
  }

CPatternsControl::CPatternsControl(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,CArrayObj *list_timeseries,CArrayObj *list_all_patterns)
  {
  this.m_type=OBJECT_DE_TYPE_SERIES_PATTERNS_CONTROLLERS;
  this.m_symbol=(symbol==NULL || symbol=="" ? ::Symbol() : symbol);
  this.m_timeframe=(timeframe==PERIOD_CURRENT ? ::Period() : timeframe);
  this.m_list_series=list_timeseries;
  this.m_list_all_patterns=list_all_patterns;
  }

CBar *CSeriesDE::GetBar(const class="type">class="kw">datetime time)
  {
   this.m_bar_tmp.SetSymbolPeriod(this.m_symbol,this.m_timeframe,time);
   this.m_list_series.Sort(SORT_BY_BAR_TIME);
   class="type">int index=this.m_list_series.Search(&this.m_bar_tmp);
   class="kw">return this.m_list_series.At(index);
  }
class="type">void              SetUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">bool flag)
                 {
                  if(this.m_patterns_control!=NULL)
                   this.m_patterns_control.SetUsedPattern(pattern,param,flag);
                 }
class="type">bool              IsUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[])
                 {
                  class="kw">return(this.m_patterns_control!=NULL ? this.m_patterns_control.IsUsedPattern(pattern,param) : class="kw">false);
                 }
class="type">void              DrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">bool redraw=class="kw">false)
                 {
                  if(this.m_patterns_control!=NULL)
                   this.m_patterns_control.DrawPattern(pattern,param,redraw);
                 }
class="type">void              RedrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">bool redraw=class="kw">false)
                 {
                  if(this.m_patterns_control!=NULL)

this.m_patterns_control.RedrawPattern(pattern,param,redraw);
class=class="str">"cmt">//--- Sets chart parameters for pattern management objects
class="type">void SetChartPropertiesToPattCtrl(const class="type">class="kw">double price_max,const class="type">class="kw">double price_min,const class="type">int scale,const class="type">int height_px,const class="type">int width_px)
  {
   if(this.m_patterns_control!=NULL)
      this.m_patterns_control.SetChartPropertiesToPattCtrl(price_max,price_min,scale,height_px,width_px);
  }
class=class="str">"cmt">//--- Constructors
CTimeSeriesDE(CArrayObj *list_all_patterns)
  {
   this.m_type=OBJECT_DE_TYPE_SERIES_SYMBOL;
   this.m_list_all_patterns=list_all_patterns;
  }
CTimeSeriesDE(CArrayObj *list_all_patterns,const class="type">class="kw">string symbol);
class=class="str">"cmt">//--- Set the flag for class="kw">using the specified pattern and create a control object if it does not already exist
class="type">void SetUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const ENUM_TIMEFRAMES timeframe,const class="type">bool flag);

class="type">bool IsUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const ENUM_TIMEFRAMES timeframe);
class="type">void DrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const ENUM_TIMEFRAMES timeframe,const class="type">bool redraw=class="kw">false);
class="type">void RedrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const ENUM_TIMEFRAMES timeframe,const class="type">bool redraw=class="kw">false);
class="type">void SetChartPropertiesToPattCtrl(const ENUM_TIMEFRAMES timeframe,const class="type">class="kw">double price_max,const class="type">class="kw">double price_min,const class="type">int scale,const class="type">int height_px,const class="type">int width_px);
};
class="type">void CTimeSeriesDE::SetUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const ENUM_TIMEFRAMES timeframe,const class="type">bool flag)
  {
   CSeriesDE *series=this.GetSeries(timeframe);
   if(series!=NULL)
      series.SetUsedPattern(pattern,param,flag);
  }
class="type">bool CTimeSeriesDE::IsUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const ENUM_TIMEFRAMES timeframe)
  {
   CSeriesDE *series=this.GetSeries(timeframe);
   class="kw">return(series!=NULL ? series.IsUsedPattern(pattern,param) : class="kw">false);
  }
class="type">void CTimeSeriesDE::DrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const ENUM_TIMEFRAMES timeframe,const class="type">bool redraw=class="kw">false)
  {
   CSeriesDE *series=this.GetSeries(timeframe);
   if(series!=NULL)
      series.DrawPattern(pattern,param,redraw);
  }

class=class="str">"cmt">//| Redraw the bitmap objects of the specified pattern on the chart  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTimeSeriesDE::RedrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const ENUM_TIMEFRAMES timeframe,const class="type">bool redraw=class="kw">false)
  {
   CSeriesDE *series=this.GetSeries(timeframe);
   if(series!=NULL)
      series.RedrawPattern(pattern,param,redraw);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Set chart parameters for pattern management objects              |
class=class="str">"cmt">//| on the specified timeframe                                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTimeSeriesDE::SetChartPropertiesToPattCtrl(const ENUM_TIMEFRAMES timeframe,const class="type">class="kw">double price_max,const class="type">class="kw">double price_min,const class="type">int scale,const class="type">int height_px,const class="type">int width_px)
  {
   CSeriesDE *series=this.GetSeries(timeframe);
   if(series!=NULL)
      series.SetChartPropertiesToPattCtrl(price_max,price_min,scale,height_px,width_px);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Symbol timeseries collection                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CTimeSeriesCollection : class="kw">public CBaseObjExt
  {
class="kw">private:
   CListObj            m_list;                 class=class="str">"cmt">// List of applied symbol timeseries
   CListObj            m_list_all_patterns;    class=class="str">"cmt">// List of all patterns of all used symbol timeseries
   CChartObjCollection *m_charts;              class=class="str">"cmt">// Pointer to the chart collection
   class="type">class="kw">double              m_chart_max;            class=class="str">"cmt">// Chart maximum
   class="type">class="kw">double              m_chart_min;            class=class="str">"cmt">// Chart minimum
   class="type">int                 m_chart_scale;          class=class="str">"cmt">// Chart scale
   class="type">int                 m_chart_wpx;            class=class="str">"cmt">// Chart width in pixels
   class="type">int                 m_chart_hpx;            class=class="str">"cmt">// Chart height in pixels

class=class="str">"cmt">//--- Return the timeseries index by symbol name
   class="type">int                 IndexTimeSeries(const class="type">class="kw">string symbol);
class="kw">public:
class=class="str">"cmt">//+------------------------------------------------------------------+

class=class="str">"cmt">//| Handling timeseries patterns                                                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//--- Copy the specified class="type">class="kw">double class="kw">property of the specified timeseries of the specified symbol to the array
class=class="str">"cmt">//--- Regardless of the array indexing direction, copying is performed the same way as copying to a timeseries array
   class="type">bool                CopyToBufferAsSeries(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
                                            const ENUM_BAR_PROP_DOUBLE class="kw">property,
                                            class="type">class="kw">double &array[],
                                            const class="type">class="kw">double empty=EMPTY_VALUE);

class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Handling timeseries patterns                                                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//--- Set the flag of class="kw">using the specified pattern
   class="type">void                SetUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">bool flag);
class=class="str">"cmt">//--- Return the flag of class="kw">using the specified pattern
   class="type">bool                IsUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe);
class=class="str">"cmt">//--- Draw marks of the specified pattern on the chart
   class="type">void                DrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">bool redraw=class="kw">false);
class=class="str">"cmt">//--- Redraw the bitmap objects of the specified pattern on the chart
   class="type">void                RedrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">bool redraw=class="kw">false);
class=class="str">"cmt">//--- Set chart parameters for pattern management objects on the specified symbol and timeframe

this.m_chart_scale=(class="type">int)::ChartGetInteger(this.m_chart_id,CHART_SCALE);class=class="str">"cmt">//-class="num">1;
this.m_chart_max=::ChartGetDouble(this.m_chart_id, CHART_PRICE_MAX);
this.m_chart_min=::ChartGetDouble(this.m_chart_id, CHART_PRICE_MIN);
this.m_chart_wpx=(class="type">int)::ChartGetInteger(this.m_chart_id,CHART_WIDTH_IN_PIXELS);
this.m_chart_hpx=(class="type">int)::ChartGetInteger(this.m_chart_id,CHART_HEIGHT_IN_PIXELS);

class="type">void CTimeSeriesCollection::SetUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">bool flag)
  {
   CTimeSeriesDE *timeseries=this.GetTimeseries(symbol);
   if(timeseries!=NULL)
      timeseries.SetUsedPattern(pattern,param,timeframe,flag);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the flag of class="kw">using the specified pattern                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CTimeSeriesCollection::IsUsedPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe)
  {
   CTimeSeriesDE *timeseries=this.GetTimeseries(symbol);
   class="kw">return(timeseries!=NULL ? timeseries.IsUsedPattern(pattern,param,timeframe) : class="kw">false);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Draw marks of the specified pattern on the chart                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTimeSeriesCollection::DrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">bool redraw=class="kw">false)
  {
   CTimeSeriesDE *timeseries=this.GetTimeseries(symbol);
   if(timeseries!=NULL)
      timeseries.DrawPattern(pattern,param,timeframe,redraw);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Redraw the bitmap objects of the specified pattern on the chart   |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTimeSeriesCollection::RedrawPattern(const ENUM_PATTERN_TYPE pattern,class="type">MqlParam &param[],const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">bool redraw=class="kw">false)
  {
   CTimeSeriesDE *timeseries=this.GetTimeseries(symbol);
   if(timeseries!=NULL)
      timeseries.RedrawPattern(pattern,param,timeframe,redraw);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Set chart parameters for pattern management objects               |
class=class="str">"cmt">//| on the specified symbol and timeframe                             |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CTimeSeriesCollection::SetChartPropertiesToPattCtrl(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">class="kw">double price_max,const class="type">class="kw">double price_min,const class="type">int scale,const class="type">int height_px,const class="type">int width_px)
  {
   CTimeSeriesDE *timeseries=this.GetTimeseries(symbol);
   if(timeseries!=NULL)
      timeseries.SetChartPropertiesToPattCtrl(timeframe,price_max,price_min,scale,height_px,width_px);
  }

class="type">void CTimeSeriesCollection::OnChartEvent(const class="type">int id,const class="type">long& lparam,const class="type">class="kw">double& dparam,const class="type">class="kw">string& sparam)
  {
  class=class="str">"cmt">// 取当前主图对象，拿不到就直接退出
  CChartObj *chart=this.m_charts.GetChart(this.m_charts.GetMainChartID());
  if(chart==NULL)
     class="kw">return;
  class=class="str">"cmt">// 取主图 class="num">0 号窗口（即主窗口），空则退出
  CChartWnd *wnd=this.m_charts.GetChartWindow(chart.ID(),class="num">0);
  if(wnd==NULL)
     class="kw">return;
  class=class="str">"cmt">// 标记是否有变更
  class="type">bool res=class="kw">false;
  if(id==CHARTEVENT_CHART_CHANGE)
     {
     class=class="str">"cmt">// 读取图表缩放级别，与缓存不一致则更新并置 res=true
     class="type">int scale=(class="type">int)::ChartGetInteger(chart.ID(),CHART_SCALE);
     if(this.m_chart_scale!=scale)
        {
        this.m_chart_scale=scale;
        res=true;
        }
     class=class="str">"cmt">// 读取图表像素宽度，变化则记录
     class="type">int chart_wpx=(class="type">int)::ChartGetInteger(chart.ID(),CHART_WIDTH_IN_PIXELS);
     if(this.m_chart_wpx!=chart_wpx)
        {
        this.m_chart_wpx=chart_wpx;
        res=true;
        }
     class=class="str">"cmt">// 读取图表像素高度，变化则记录
     class="type">int chart_hpx=(class="type">int)::ChartGetInteger(chart.ID(),CHART_HEIGHT_IN_PIXELS);
     if(this.m_chart_hpx!=chart_hpx)
        {
        this.m_chart_hpx=chart_hpx;
        res=true;
        }
     class=class="str">"cmt">// 读取价格最大值，变化则记录
     class="type">class="kw">double chart_max=::ChartGetDouble(chart.ID(),CHART_PRICE_MAX);
     if(this.m_chart_max!=chart_max)
        {
        this.m_chart_max=chart_max;
        res=true;
        }
     class=class="str">"cmt">// 读取价格最小值，变化则记录
     class="type">class="kw">double chart_min=::ChartGetDouble(chart.ID(),CHART_PRICE_MIN);
     if(this.m_chart_min!=chart_min)
        {
        this.m_chart_min=chart_min;
        res=true;
        }
     class=class="str">"cmt">// 只要有任一属性变了
     if(res)
        {
        class=class="str">"cmt">// 把新图表属性推给形态管理对象
        this.SetChartPropertiesToPattCtrl(chart.Symbol(),chart.Timeframe(),chart_max,chart_min,scale,chart_hpx,chart_wpx);
        class=class="str">"cmt">// 获取当前图表上的形态列表

class="type">void CTimeSeriesCollection::OnChartEvent(const class="type">int id,const class="type">long& lparam,const class="type">class="kw">double& dparam,const class="type">class="kw">string& sparam)
  {
  class=class="str">"cmt">//--- Get the current chart object
  CChartObj *chart=this.m_charts.GetChart(this.m_charts.GetMainChartID());
  if(chart==NULL)
     class="kw">return;
  class=class="str">"cmt">//--- Get the main window object of the current chart
  CChartWnd *wnd=this.m_charts.GetChartWindow(chart.ID(),class="num">0);
  if(wnd==NULL)
     class="kw">return;
  class=class="str">"cmt">//--- If the chart is changed
  class="type">bool res=class="kw">false;
  if(id==CHARTEVENT_CHART_CHANGE)
     {
     class=class="str">"cmt">//--- control the change in the chart scale
     class="type">int scale=(class="type">int)::ChartGetInteger(chart.ID(),CHART_SCALE);
     if(this.m_chart_scale!=scale)
        {
        this.m_chart_scale=scale;
        res=true;
        }
     class=class="str">"cmt">//--- control the change in the chart width in pixels
     class="type">int chart_wpx=(class="type">int)::ChartGetInteger(chart.ID(),CHART_WIDTH_IN_PIXELS);
     if(this.m_chart_wpx!=chart_wpx)
        {
        this.m_chart_wpx=chart_wpx;
        res=true;
        }
     class=class="str">"cmt">//--- control the change in the chart height in pixels
     class="type">int chart_hpx=(class="type">int)::ChartGetInteger(chart.ID(),CHART_HEIGHT_IN_PIXELS);
     if(this.m_chart_hpx!=chart_hpx)
        {
        this.m_chart_hpx=chart_hpx;
        res=true;
        }
     class=class="str">"cmt">//--- control the change in the chart maximum
     class="type">class="kw">double chart_max=::ChartGetDouble(chart.ID(),CHART_PRICE_MAX);
     if(this.m_chart_max!=chart_max)
        {
        this.m_chart_max=chart_max;
        res=true;
        }
     class=class="str">"cmt">//--- control the change in the chart minimum
     class="type">class="kw">double chart_min=::ChartGetDouble(chart.ID(),CHART_PRICE_MIN);
     if(this.m_chart_min!=chart_min)
        {
        this.m_chart_min=chart_min;
        res=true;
        }
     class=class="str">"cmt">//--- If there is at least one change
     if(res)
        {
        class=class="str">"cmt">//--- Write new values of the chart properties to the pattern management objects
        this.SetChartPropertiesToPattCtrl(chart.Symbol(),chart.Timeframe(),chart_max,chart_min,scale,chart_hpx,chart_wpx);
        class=class="str">"cmt">//--- Get a list of patterns on the current chart

CArrayObj *list=CSelect::ByPatternProperty(this.GetListAllPatterns(),PATTERN_PROP_SYMBOL,chart.Symbol(),EQUAL);
list=CSelect::ByPatternProperty(list,PATTERN_PROP_PERIOD,chart.Timeframe(),EQUAL);
class=class="str">"cmt">//--- If the list of patterns is received
if(list!=NULL)
  {
   class=class="str">"cmt">//--- In a loop by the list of patterns,
   class="type">int total=list.Total();
   for(class="type">int i=class="num">0;i<total;i++)
     {
      class=class="str">"cmt">//--- get the next pattern object
      CPattern *pattern=list.At(i);
      if(pattern==NULL)
         class="kw">continue;
      class=class="str">"cmt">//--- set the new chart data to the pattern object
      pattern.SetChartWidthInPixels(this.m_chart_wpx);
      pattern.SetChartHeightInPixels(this.m_chart_hpx);
      pattern.SetChartScale(this.m_chart_scale);
      pattern.SetChartPriceMax(this.m_chart_max);
      pattern.SetChartPriceMin(this.m_chart_min);
      class=class="str">"cmt">//--- Redraw the pattern bitmap object with new dimensions
      pattern.Redraw(class="kw">false);
     }
   class=class="str">"cmt">//--- Update the chart
   ::ChartRedraw(chart.ID());
  }
class=class="str">"cmt">//--- Set the flag for class="kw">using the Harami pattern and create a control object if it does not already exist
class="type">void SeriesSetUsedPatternHarami(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">bool flag)
  {
   class="type">MqlParam param[]={};
   if(::ArrayResize(param,class="num">1)==class="num">1)
     {
      param[class="num">0].type=TYPE_UINT;
      param[class="num">0].integer_value=class="num">0;
     }
  }

this.m_time_series.SetUsedPattern(PATTERN_TYPE_HARAMI,param,CorrectSymbol(symbol),CorrectTimeframe(timeframe),flag);
}
class=class="str">"cmt">//--- Set the flag for class="kw">using the Pattern Outside and create a control object if it does not already exist
   class="type">void                 SeriesSetUsedPatternOutsideBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
                                                    const class="type">bool   flag,                    class=class="str">"cmt">// Price Action Outside Bar usage flag
                                                    const class="type">class="kw">double ratio_candles=class="num">70,         class=class="str">"cmt">// Percentage ratio of the size of the engulfing class="type">color to the size of the engulfed one
                                                    const class="type">class="kw">double ratio_body_to_shadows=class="num">80, class=class="str">"cmt">// Percentage ratio of shadow sizes to candle body size
                                                    const class="type">uint   min_body_size=class="num">3)          class=class="str">"cmt">// Minimum candle body size
                      {
                       class="type">MqlParam param[]={};
                       if(::ArrayResize(param,class="num">3)==class="num">3)
                         {
                          param[class="num">0].type=TYPE_UINT;
                          param[class="num">0].integer_value=min_body_size;
                          class=class="str">"cmt">//--- Percentage ratio of the size of the engulfing class="type">color to the size of the engulfed one
                          param[class="num">1].type=TYPE_DOUBLE;
                          param[class="num">1].double_value=ratio_candles;
                          class=class="str">"cmt">//--- Percentage ratio of shadow sizes to candle body size
                          param[class="num">2].type=TYPE_DOUBLE;

class="type">void SeriesSetUsedPatternInsideBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">bool flag,const class="type">uint min_body_size=class="num">3)
  {
   class="type">MqlParam param[]={};
   if(::ArrayResize(param,class="num">1)==class="num">1)
     {
      param[class="num">0].type=TYPE_UINT;
      param[class="num">0].integer_value=min_body_size;
     }
   this.m_time_series.SetUsedPattern(PATTERN_TYPE_INSIDE_BAR,param,CorrectSymbol(symbol),CorrectTimeframe(timeframe),flag);
  }

class="type">void SeriesSetUsedPatternPinBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
                                const class="type">bool   flag,
                                const class="type">class="kw">double ratio_body=class="num">30,
                                const class="type">class="kw">double ratio_larger_shadow=class="num">60)

const class="type">class="kw">double ratio_smaller_shadow=class="num">30,   class=class="str">"cmt">// Percentage ratio of the size of the smaller shadow to the size of the candle
                  const class="type">uint   min_body_size=class="num">3)         class=class="str">"cmt">// Minimum candle body size
      {
       class="type">MqlParam param[]={};
       if(::ArrayResize(param,class="num">4)==class="num">4)
         {
          param[class="num">0].type=TYPE_UINT;
          param[class="num">0].integer_value=min_body_size;
          class=class="str">"cmt">//--- Percentage ratio of the candle body to the full size of the candle
          param[class="num">1].type=TYPE_DOUBLE;
          param[class="num">1].double_value=ratio_body;
          class=class="str">"cmt">//--- Percentage ratio of the size of the larger shadow to the size of the candle
          param[class="num">2].type=TYPE_DOUBLE;
          param[class="num">2].double_value=ratio_larger_shadow;
          class=class="str">"cmt">//--- Percentage ratio of the size of the smaller shadow to the size of the candle
          param[class="num">3].type=TYPE_DOUBLE;
          param[class="num">3].double_value=ratio_smaller_shadow;
         }
       this.m_time_series.SetUsedPattern(PATTERN_TYPE_PIN_BAR,param,CorrectSymbol(symbol),CorrectTimeframe(timeframe),flag);
      }
class=class="str">"cmt">//--- Draw Pattern Outside labels on the chart
   class="type">void         SeriesDrawPatternOutsideBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,

const class="type">class="kw">double ratio_candles=class="num">70,      class=class="str">"cmt">// Percentage ratio of the size of the engulfing class="type">color to the size of the engulfed one
const class="type">class="kw">double ratio_body_to_shadows=class="num">80, class=class="str">"cmt">// Percentage ratio of shadow sizes to candle body size
const class="type">uint   min_body_size=class="num">3,          class=class="str">"cmt">// Minimum candle body size
const class="type">bool   redraw=class="kw">false)             class=class="str">"cmt">// Chart redraw flag
      {
       class="type">MqlParam param[]={};
       if(::ArrayResize(param,class="num">3)==class="num">3)
         {
          param[class="num">0].type=TYPE_UINT;
          param[class="num">0].integer_value=min_body_size;
          class=class="str">"cmt">//--- Percentage ratio of the size of the engulfing class="type">color to the size of the engulfed one
          param[class="num">1].type=TYPE_DOUBLE;
          param[class="num">1].double_value=ratio_candles;
          class=class="str">"cmt">//--- Percentage ratio of shadow sizes to candle body size
          param[class="num">2].type=TYPE_DOUBLE;
          param[class="num">2].double_value=ratio_body_to_shadows;
         }
       this.m_time_series.DrawPattern(PATTERN_TYPE_OUTSIDE_BAR,param,CorrectSymbol(symbol),CorrectTimeframe(timeframe),redraw);
      }
class=class="str">"cmt">//--- Draw Inside Bar pattern labels on the chart

class="type">void SeriesDrawPatternInsideBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">uint min_body_size=class="num">3,const class="type">bool redraw=class="kw">false)
              {
               class="type">MqlParam param[]={};
               if(::ArrayResize(param,class="num">1)==class="num">1)
                 {
                  param[class="num">0].type=TYPE_UINT;
                  param[class="num">0].integer_value=min_body_size;
                 }
               this.m_time_series.DrawPattern(PATTERN_TYPE_INSIDE_BAR,param,CorrectSymbol(symbol),CorrectTimeframe(timeframe),redraw);
              }
class=class="str">"cmt">//--- Draw Pin Bar pattern labels on the chart
  class="type">void SeriesDrawPatternPinBar(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,
                               const class="type">class="kw">double ratio_body=class="num">30,       class=class="str">"cmt">// Percentage ratio of the candle body to the full size of the candle
                               const class="type">class="kw">double ratio_larger_shadow=class="num">60,     class=class="str">"cmt">// Percentage ratio of the size of the larger shadow to the size of the candle
                               const class="type">class="kw">double ratio_smaller_shadow=class="num">30,    class=class="str">"cmt">// Percentage ratio of the size of the smaller shadow to the size of the candle
                               const class="type">uint   min_body_size=class="num">3,      class=class="str">"cmt">// Minimum candle body size
                               const class="type">bool   redraw=class="kw">false)         class=class="str">"cmt">// Chart redraw flag
              {

class="type">MqlParam param[]={};
if(::ArrayResize(param,class="num">4)==class="num">4)
  {
  param[class="num">0].type=TYPE_UINT;
  param[class="num">0].integer_value=min_body_size;
  class=class="str">"cmt">//--- 蜡烛实体占全长的百分比
  param[class="num">1].type=TYPE_DOUBLE;
  param[class="num">1].double_value=ratio_body;
  class=class="str">"cmt">//--- 较大影线占蜡烛全长的百分比
  param[class="num">2].type=TYPE_DOUBLE;
  param[class="num">2].double_value=ratio_larger_shadow;
  class=class="str">"cmt">//--- 较小影线占蜡烛全长的百分比
  param[class="num">3].type=TYPE_DOUBLE;
  param[class="num">3].double_value=ratio_smaller_shadow;
  }
this.m_time_series.DrawPattern(PATTERN_TYPE_PIN_BAR,param,CorrectSymbol(symbol),CorrectTimeframe(timeframe),redraw);
if(redraw)
  ::ChartRedraw();

class="type">MqlParam param[]={};
if(::ArrayResize(param,class="num">4)==class="num">4)
  {
  param[class="num">0].type=TYPE_UINT;
  param[class="num">0].integer_value=min_body_size;
  class=class="str">"cmt">//--- Percentage ratio of the candle body to the full size of the candle
  param[class="num">1].type=TYPE_DOUBLE;
  param[class="num">1].double_value=ratio_body;
  class=class="str">"cmt">//--- Percentage ratio of the size of the larger shadow to the size of the candle
  param[class="num">2].type=TYPE_DOUBLE;
  param[class="num">2].double_value=ratio_larger_shadow;
  class=class="str">"cmt">//--- Percentage ratio of the size of the smaller shadow to the size of the candle
  param[class="num">3].type=TYPE_DOUBLE;
  param[class="num">3].double_value=ratio_smaller_shadow;
  }
this.m_time_series.DrawPattern(PATTERN_TYPE_PIN_BAR,param,CorrectSymbol(symbol),CorrectTimeframe(timeframe),redraw);
if(redraw)
  ::ChartRedraw();
class=class="str">"cmt">//--- Draw Rails pattern labels on the chart
class="type">void        SeriesDrawPatternRails(const class="type">class="kw">string symbol,const ENUM_TIMEFRAMES timeframe,const class="type">bool redraw=class="kw">false)
  {
  class="type">MqlParam param[]={};
  if(::ArrayResize(param,class="num">1)==class="num">1)
    {

param[class="num">0].type=TYPE_UINT;
param[class="num">0].integer_value=class="num">0;
}
this.m_time_series.DrawPattern(PATTERN_TYPE_RAILS,param,CorrectSymbol(symbol),CorrectTimeframe(timeframe),redraw);
}
class="kw">public:
class=class="str">"cmt">//--- Create and class="kw">return the composite magic number from the specified magic number value, the first and second group IDs and the pending request ID
  class="type">uint  SetCompositeMagicNumber(class="type">class="kw">ushort magic_id,const class="type">uchar group_id1=class="num">0,const class="type">uchar group_id2=class="num">0,const class="type">uchar pending_req_id=class="num">0);
class=class="str">"cmt">//--- Event handler
class="type">void  OnChartEvent(const class="type">int id,const class="type">long& lparam,const class="type">class="kw">double& dparam,const class="type">class="kw">string& sparam);
class=class="str">"cmt">//--- Handling DoEasy library events
class="type">void  OnDoEasyEvent(const class="type">int id,const class="type">long &lparam,const class="type">class="kw">double &dparam,const class="type">class="kw">string &sparam);
class=class="str">"cmt">//--- Working with events in the tester
class="type">void  EventsHandling(class="type">void);
};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Event handler                                                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CEngine::OnChartEvent(const class="type">int id,const class="type">long& lparam,const class="type">class="kw">double& dparam,const class="type">class="kw">string& sparam)
  {
   this.m_graph_objects.OnChartEvent(id,lparam,dparam,sparam);
   this.m_time_series.OnChartEvent(id,lparam,dparam,sparam);
  }
class=class="str">"cmt">//--- Handling timeseries events
   else if(idx>SERIES_EVENTS_NO_EVENT && idx<SERIES_EVENTS_NEXT_CODE)
    {
     class=class="str">"cmt">//--- "New bar" event
     if(idx==SERIES_EVENTS_NEW_BAR)
       {
        ::Print(DFUN,TextByLanguage("Новый бар на ","New Bar on "),sparam," ",TimeframeDescription((ENUM_TIMEFRAMES)dparam),": ",TimeToString(lparam));
        CArrayObj *list=this.m_buffers.GetListBuffersWithID();
        if(list!=NULL)
          {
           class="type">int total=list.Total();

for(class="type">int i=class="num">0;i<total;i++)
  {
   CBuffer *buff=list.At(i);
   if(buff==NULL)
     class="kw">continue;
   class="type">class="kw">string symbol=sparam;
   ENUM_TIMEFRAMES timeframe=(ENUM_TIMEFRAMES)dparam;
   if(buff.TypeBuffer()==BUFFER_TYPE_DATA || buff.IndicatorType()==WRONG_VALUE)
     class="kw">continue;
   if(buff.Symbol()==symbol && buff.Timeframe()==timeframe )
     {
      CSeriesDE *series=this.SeriesGetSeries(symbol,timeframe);
      if(series==NULL)
        class="kw">continue;
      class="type">int count=::fmin((class="type">int)series.AvailableUsedData(),::fmin(buff.GetDataTotal(),buff.IndicatorBarsCalculated()));
      this.m_buffers.PreparingDataBufferStdInd(buff.IndicatorType(),buff.ID(),count);
     }
   }
  }
 }
 class=class="str">"cmt">//--- "Bars skipped" event
 if(idx==SERIES_EVENTS_MISSING_BARS)
  {
   ::Print(DFUN,TextByLanguage("Пропущены бары на ","Missed bars on "),sparam," ",TimeframeDescription((ENUM_TIMEFRAMES)dparam),": ",(class="type">class="kw">string)lparam);
  }
 class=class="str">"cmt">//--- "New pattern" event
 if(idx==SERIES_EVENTS_PATTERN)
  {
   class=class="str">"cmt">// New pattern event is handled here
  }

sinput  class="type">class="kw">double             InpPinBarRatioBody   =  class="num">30.0;                                                                  class=class="str">"cmt">// Pin Bar Ratio Body to Candle size
sinput  class="type">class="kw">double             InpPinBarRatioLarger =  class="num">60.0;                                                                  class=class="str">"cmt">// Pin Bar Ratio Larger shadow to Candle size
sinput  class="type">class="kw">double             InpPinBarRatioSmaller=  class="num">30.0;                                                                  class=class="str">"cmt">// Pin Bar Ratio Smaller shadow to Candle size
sinput  class="type">bool               InpDrawPatternsAsDots=  true;                                                                  class=class="str">"cmt">// Draw Patterns as dots
sinput  ENUM_SYMBOLS_MODE InpModeUsedSymbols   =  SYMBOLS_MODE_CURRENT;                                                  class=class="str">"cmt">// Mode of used symbols list
sinput  class="type">class="kw">string             InpUsedSymbols       =  "EURUSD,AUDUSD,EURAUD,EURCAD,EURGBP,EURJPY,EURUSD,GBPUSD,NZDUSD,USDCAD,USDJPY";  class=class="str">"cmt">// List of used symbols(comma - separator)
sinput  ENUM_TIMEFRAMES_MODE InpModeUsedTFs    =  TIMEFRAMES_MODE_CURRENT;                                               class=class="str">"cmt">// Mode of used timeframes list
sinput  class="type">class="kw">string             InpUsedTFs           =  "M1,M5,M15,M30,H1,H4,D1,W1,MN1"; class=class="str">"cmt">// List of used timeframes(comma - separator)
sinput  ENUM_INPUT_YES_NO InpSearchPinBar      =  INPUT_YES;                                                             class=class="str">"cmt">// Search for Pin Bar patterns
sinput  class="type">class="kw">double             InpPinBarRatioBody   =  class="num">30.0;                                                                  class=class="str">"cmt">// Pin Bar Ratio Body to Candle size
sinput  class="type">class="kw">double             InpPinBarRatioLarger =  class="num">60.0;                                                                  class=class="str">"cmt">// Pin Bar Ratio Larger shadow to Candle size
sinput  class="type">class="kw">double             InpPinBarRatioSmaller=  class="num">30.0;                                                                  class=class="str">"cmt">// Pin Bar Ratio Smaller shadow to Candle size
sinput  ENUM_INPUT_YES_NO InpSearchInsideBar   =  INPUT_YES;                                                             class=class="str">"cmt">// Search for Inside Bar patterns

sinput   ENUM_INPUT_YES_NO InpSearchOutsideBar   =  INPUT_YES;                 class=class="str">"cmt">// Search for Outside Bar patterns
sinput   class="type">class="kw">double             InpOBRatioCandles     =  class="num">50.0;                         class=class="str">"cmt">// Outside Bar Ratio of sizes of neighboring candles
sinput   class="type">class="kw">double             InpOBRatioBodyToCandle= class="num">50.0;                         class=class="str">"cmt">// Outside Bar Ratio Body to Candle size
sinput   ENUM_INPUT_YES_NO InpUseBook            =  INPUT_NO;                    class=class="str">"cmt">// Use Depth of Market
sinput   ENUM_INPUT_YES_NO InpUseMqlSignals     =  INPUT_NO;                    class=class="str">"cmt">// Use signal service
sinput   ENUM_INPUT_YES_NO InpUseCharts          =  INPUT_NO;                    class=class="str">"cmt">// Use Charts control
sinput   ENUM_INPUT_YES_NO InpUseSounds          =  INPUT_YES;                   class=class="str">"cmt">// Use sounds
class=class="str">"cmt">//--- Clear the list of all patterns
   engine.GetListAllPatterns().Clear();
   
class=class="str">"cmt">//--- Set the flag of class="kw">using the Pin Bar pattern with the parameters specified in the settings
   engine.SeriesSetUsedPatternPinBar(NULL,PERIOD_CURRENT,(class="type">bool)InpSearchPinBar,InpPinBarRatioBody,InpPinBarRatioLarger,InpPinBarRatioSmaller);
   
class=class="str">"cmt">//--- Set the flag of class="kw">using the Inside Bar pattern
   engine.SeriesSetUsedPatternInsideBar(NULL,PERIOD_CURRENT,(class="type">bool)InpSearchInsideBar);
class=class="str">"cmt">//--- Set the flag of class="kw">using the Outside Bar pattern
   engine.SeriesSetUsedPatternOutsideBar(NULL,PERIOD_CURRENT,(class="type">bool)InpSearchOutsideBar,InpOBRatioCandles,InpOBRatioBodyToCandle);
class=class="str">"cmt">//---
   ChartRedraw();
   class="kw">return(INIT_SUCCEEDED);
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| ChartEvent function                                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void OnChartEvent(const class="type">int id,
                const class="type">long &lparam,
                const class="type">class="kw">double &dparam,
                const class="type">class="kw">string &sparam)
  {
class=class="str">"cmt">//--- If working in the tester, exit
  if(MQLInfoInteger(MQL_TESTER))
     class="kw">return;
class=class="str">"cmt">//--- Handling mouse events
  if(id==CHARTEVENT_OBJECT_CLICK)
     {
     class=class="str">"cmt">//--- Handle pressing the buttons in the panel
     if(StringFind(sparam,"BUTT_")>class="num">0)

  PressButtonEvents(sparam);
  }
class=class="str">"cmt">//--- Handling DoEasy library events
  if(id>CHARTEVENT_CUSTOM-class="num">1)
  {
   OnDoEasyEvent(id,lparam,dparam,sparam);
  }
  engine.OnChartEvent(id,lparam,dparam,sparam);
class=class="str">"cmt">//--- Chart change
  if(id==CHARTEVENT_CHART_CHANGE)
  {
   class=class="str">"cmt">//--- Whenever the chart changes, hide all information panels
class=class="str">"cmt">//... ... ...
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Handling DoEasy library events                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void OnDoEasyEvent(const class="type">int id,
                   const class="type">long &lparam,
                   const class="type">class="kw">double &dparam,
                   const class="type">class="kw">string &sparam)
  {
  class="type">int idx=id-CHARTEVENT_CUSTOM;
class=class="str">"cmt">//--- Retrieve(class="num">1) event time milliseconds, (class="num">2) reason and(class="num">3) source from lparam, as well as(class="num">4) set the exact event time
class=class="str">"cmt">//--- Handling timeseries events
  else if(idx>SERIES_EVENTS_NO_EVENT && idx<SERIES_EVENTS_NEXT_CODE)
   {
   class=class="str">"cmt">//--- "New bar" event
   if(idx==SERIES_EVENTS_NEW_BAR)
     {
      Print(TextByLanguage("Новый бар на ","New Bar on "),sparam," ",TimeframeDescription((ENUM_TIMEFRAMES)dparam),": ",TimeToString(lparam));
     }
   class=class="str">"cmt">//--- "Bars skipped" event
   if(idx==SERIES_EVENTS_MISSING_BARS)
     {
      Print(TextByLanguage("Пропущены бары на ","Missing bars on "),sparam," ",TimeframeDescription((ENUM_TIMEFRAMES)dparam),": ",lparam);
     }
   }

class=class="str">"cmt">//--- Handle chart auto events