轻松快捷开发 MetaTrader 程序的函数库(第八部分):订单和持仓修改事件·综合运用

  EVENT_PROP_PRICE_TP,                                                  class=class="str">"cmt">// TakeProfit Order/deal/position
  EVENT_PROP_VOLUME_ORDER_INITIAL,                                       class=class="str">"cmt">// Requested order volume
  EVENT_PROP_VOLUME_ORDER_EXECUTED,                                      class=class="str">"cmt">// Executed order volume
  EVENT_PROP_VOLUME_ORDER_CURRENT,                                       class=class="str">"cmt">// Remaining order volume
  EVENT_PROP_VOLUME_POSITION_EXECUTED,                                   class=class="str">"cmt">// Current executed position volume after a deal
  EVENT_PROP_PROFIT,                                                     class=class="str">"cmt">// Profit
  class=class="str">"cmt">//---
  EVENT_PROP_PRICE_OPEN_BEFORE,                                          class=class="str">"cmt">// Order price before modification
  EVENT_PROP_PRICE_SL_BEFORE,                                            class=class="str">"cmt">// StopLoss price before modification
  EVENT_PROP_PRICE_TP_BEFORE,                                            class=class="str">"cmt">// TakeProfit price before modification
  EVENT_PROP_PRICE_EVENT_ASK,                                            class=class="str">"cmt">// Ask price during an event
  EVENT_PROP_PRICE_EVENT_BID,                                            class=class="str">"cmt">// Bid price during an event
  };
class="macro">#define EVENT_PROP_DOUBLE_TOTAL(class="num">15)                                    class=class="str">"cmt">// Total number of event&class="macro">#x27;s real properties
class="macro">#define EVENT_PROP_DOUBLE_SKIP(class="num">5)                                     class=class="str">"cmt">// Number of order properties not used in sorting
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Possible event sorting criteria                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="macro">#define FIRST_EVN_DBL_PROP(EVENT_PROP_INTEGER_TOTAL-EVENT_PROP_INTEGER_SKIP)
class="macro">#define FIRST_EVN_STR_PROP(EVENT_PROP_INTEGER_TOTAL-EVENT_PROP_INTEGER_SKIP+EVENT_PROP_DOUBLE_TOTAL-EVENT_PROP_DOUBLE_SKIP)
enum ENUM_SORT_EVENTS_MODE
  {
  class=class="str">"cmt">//--- Sort by integer properties
  SORT_BY_EVENT_TYPE_EVENT       = class="num">0,                                    class=class="str">"cmt">// Sort by event type
  SORT_BY_EVENT_TIME_EVENT       = class="num">1,                                    class=class="str">"cmt">// Sort by event time

  SORT_BY_EVENT_STATUS_EVENT                 = class="num">2,                 class=class="str">"cmt">// Sort by event status(from the ENUM_EVENT_STATUS enumeration)
  SORT_BY_EVENT_REASON_EVENT                 = class="num">3,                 class=class="str">"cmt">// Sort by event reason(from the ENUM_EVENT_REASON enumeration)
  SORT_BY_EVENT_TYPE_DEAL_EVENT              = class="num">4,                 class=class="str">"cmt">// Sort by deal event type
  SORT_BY_EVENT_TICKET_DEAL_EVENT            = class="num">5,                 class=class="str">"cmt">// Sort by deal event ticket
  SORT_BY_EVENT_TYPE_ORDER_EVENT             = class="num">6,                 class=class="str">"cmt">// Sort by type of an order, based on which a deal event is opened(the last position order)
  SORT_BY_EVENT_TICKET_ORDER_EVENT           = class="num">7,                 class=class="str">"cmt">// Sort by type of an order, based on which a position deal is opened(the first position order)
  SORT_BY_EVENT_TIME_ORDER_POSITION          = class="num">8,                 class=class="str">"cmt">// Sort by time of an order, based on which a position deal is opened(the first position order)
  SORT_BY_EVENT_TYPE_ORDER_POSITION          = class="num">9,                 class=class="str">"cmt">// Sort by type of an order, based on which a position deal is opened(the first position order)
  SORT_BY_EVENT_TICKET_ORDER_POSITION        = class="num">10,                class=class="str">"cmt">// Sort by a ticket of an order, based on which a position deal is opened(the first position order)
  SORT_BY_EVENT_POSITION_ID                  = class="num">11,                class=class="str">"cmt">// Sort by position ID
  SORT_BY_EVENT_POSITION_BY_ID               = class="num">12,                class=class="str">"cmt">// Sort by opposite position ID
  SORT_BY_EVENT_MAGIC_ORDER                 = class="num">13,                class=class="str">"cmt">// Sort by order/deal/position magic number
  SORT_BY_EVENT_MAGIC_BY_ID                 = class="num">14,                class=class="str">"cmt">// Sort by opposite position magic number
  class=class="str">"cmt">//--- Sort by real properties
  SORT_BY_EVENT_PRICE_EVENT                  =  FIRST_EVN_DBL_PROP,    class=class="str">"cmt">// Sort by a price an event occurred at
  SORT_BY_EVENT_PRICE_OPEN                   =  FIRST_EVN_DBL_PROP+class="num">1,  class=class="str">"cmt">// Sort by position open price
  SORT_BY_EVENT_PRICE_CLOSE                  =  FIRST_EVN_DBL_PROP+class="num">2,  class=class="str">"cmt">// Sort by position close price
  SORT_BY_EVENT_PRICE_SL                     =  FIRST_EVN_DBL_PROP+class="num">3,  class=class="str">"cmt">// Sort by position&class="macro">#x27;s StopLoss price
  SORT_BY_EVENT_PRICE_TP                     =  FIRST_EVN_DBL_PROP+class="num">4,  class=class="str">"cmt">// Sort by position&class="macro">#x27;s TakeProfit price

SORT_BY_EVENT_VOLUME_ORDER_INITIAL     =  FIRST_EVN_DBL_PROP+class="num">5,   class=class="str">"cmt">// Sort by initial volume
SORT_BY_EVENT_VOLUME_ORDER_EXECUTED     =  FIRST_EVN_DBL_PROP+class="num">6,   class=class="str">"cmt">// Sort by the current volume
SORT_BY_EVENT_VOLUME_ORDER_CURRENT      =  FIRST_EVN_DBL_PROP+class="num">7,   class=class="str">"cmt">// Sort by remaining volume
SORT_BY_EVENT_VOLUME_POSITION_EXECUTED =  FIRST_EVN_DBL_PROP+class="num">8,   class=class="str">"cmt">// Sort by remaining volume
SORT_BY_EVENT_PROFIT                    =  FIRST_EVN_DBL_PROP+class="num">9,   class=class="str">"cmt">// Sort by profit
class=class="str">"cmt">//--- Sort by class="type">class="kw">string properties
SORT_BY_EVENT_SYMBOL                    =  FIRST_EVN_STR_PROP,     class=class="str">"cmt">// Sort by order/position/deal symbol
SORT_BY_EVENT_SYMBOL_BY_ID              class=class="str">"cmt">// Sort by an opposite position symbol
};
class CEvent : class="kw">public CObject
  {
class="kw">private:
   class="type">int               m_event_code;            class=class="str">"cmt">// Event code
   class="type">int               IndexProp(ENUM_EVENT_PROP_DOUBLE class="kw">property)class="kw">const { class="kw">return(class="type">int)class="kw">property-EVENT_PROP_INTEGER_TOTAL; }
   class="type">int               IndexProp(ENUM_EVENT_PROP_STRING class="kw">property)class="kw">const { class="kw">return(class="type">int)class="kw">property-EVENT_PROP_INTEGER_TOTAL-EVENT_PROP_DOUBLE_TOTAL; }
class="kw">protected:
   ENUM_TRADE_EVENT  m_trade_event;           class=class="str">"cmt">// Trading event
   class="type">bool              m_is_hedge;              class=class="str">"cmt">// Hedging account flag
   class="type">long              m_chart_id;              class=class="str">"cmt">// Control program chart ID
   class="type">int               m_digits;                class=class="str">"cmt">// Symbol Digits()
   class="type">int               m_digits_acc;            class=class="str">"cmt">// Number of decimal places for the account currency

class="type">long m_long_prop[EVENT_PROP_INTEGER_TOTAL]; class=class="str">"cmt">// Event integer properties
class="type">class="kw">double m_double_prop[EVENT_PROP_DOUBLE_TOTAL]; class=class="str">"cmt">// Event real properties
class="type">class="kw">string m_string_prop[EVENT_PROP_STRING_TOTAL]; class=class="str">"cmt">// Event class="type">class="kw">string properties
class=class="str">"cmt">//--- Return the flag presence in the trading event
class="type">bool IsPresentEventFlag(class="kw">const class="type">int event_code) class="kw">const { class="kw">return (this.m_event_code & event_code)==event_code; }
class=class="str">"cmt">//--- Protected parametric constructor
CEvent(class="kw">const ENUM_EVENT_STATUS event_status,class="kw">const class="type">int event_code,class="kw">const class="type">class="kw">ulong ticket);
class="kw">public:
class=class="str">"cmt">//--- Default constructor
CEvent(class="type">void){;}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Constructor |
class=class="str">"cmt">//+------------------------------------------------------------------+
CEvent::CEvent(class="kw">const ENUM_EVENT_STATUS event_status,class="kw">const class="type">int event_code,class="kw">const class="type">class="kw">ulong ticket) : m_event_code(event_code),m_digits(class="num">0)
  {
   this.m_long_prop[EVENT_PROP_STATUS_EVENT]     =  event_status;
   this.m_long_prop[EVENT_PROP_TICKET_ORDER_EVENT] = (class="type">long)ticket;
   this.m_is_hedge=class="type">bool(::AccountInfoInteger(ACCOUNT_MARGIN_MODE)==ACCOUNT_MARGIN_MODE_RETAIL_HEDGING);
   this.m_digits_acc=(class="type">int)::AccountInfoInteger(ACCOUNT_CURRENCY_DIGITS);
   this.m_chart_id=::ChartID();
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the description of the event&class="macro">#x27;s integer class="kw">property |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CEvent::GetPropertyDescription(ENUM_EVENT_PROP_INTEGER class="kw">property)
  {
   class="kw">return
     (
      class="kw">property==EVENT_PROP_TYPE_EVENT           ? TextByLanguage("Тип события","Event&class="macro">#x27;s type")+": "+this.TypeEventDescription() :
      class="kw">property==EVENT_PROP_TIME_EVENT           ? TextByLanguage("Время события","Time of event")+": "+TimeMSCtoString(this.GetProperty(class="kw">property)) :

class="kw">property==EVENT_PROP_STATUS_EVENT ? TextByLanguage("Статус события","Status of event")+": \""+this.StatusDescription()+"\"" :
class="kw">property==EVENT_PROP_REASON_EVENT ? TextByLanguage("Причина события","Reason of event")+": "+this.ReasonDescription() :
class="kw">property==EVENT_PROP_TYPE_DEAL_EVENT ? TextByLanguage("Тип сделки","Deal&class="macro">#x27;s type")+": "+DealTypeDescription((ENUM_DEAL_TYPE)this.GetProperty(class="kw">property)) :
class="kw">property==EVENT_PROP_TICKET_DEAL_EVENT ? TextByLanguage("Тикет сделки","Deal&class="macro">#x27;s ticket")+": #"+(class="type">class="kw">string)this.GetProperty(class="kw">property) :
class="kw">property==EVENT_PROP_TYPE_ORDER_EVENT ? TextByLanguage("Тип ордера события","Event&class="macro">#x27;s order type")+": "+OrderTypeDescription((ENUM_ORDER_TYPE)this.GetProperty(class="kw">property)) :
class="kw">property==EVENT_PROP_TYPE_ORDER_POSITION ? TextByLanguage("Тип ордера позиции","Position&class="macro">#x27;s order type")+": "+OrderTypeDescription((ENUM_ORDER_TYPE)this.GetProperty(class="kw">property)) :
class="kw">property==EVENT_PROP_TICKET_ORDER_POSITION ? TextByLanguage("Тикет первого ордера позиции","Position&class="macro">#x27;s first order ticket")+": #"+(class="type">class="kw">string)this.GetProperty(class="kw">property) :
class="kw">property==EVENT_PROP_TICKET_ORDER_EVENT ? TextByLanguage("Тикет ордера события","Event&class="macro">#x27;s order ticket")+": #"+(class="type">class="kw">string)this.GetProperty(class="kw">property) :
class="kw">property==EVENT_PROP_POSITION_ID ? TextByLanguage("Идентификатор позиции","Position ID")+": #"+(class="type">class="kw">string)this.GetProperty(class="kw">property) :
class="kw">property==EVENT_PROP_POSITION_BY_ID ? TextByLanguage("Идентификатор встречной позиции","Opposite position&class="macro">#x27;s ID")+": #"+(class="type">class="kw">string)this.GetProperty(class="kw">property) :

   class="kw">property==EVENT_PROP_MAGIC_ORDER             ?  TextByLanguage("Магический номер","Magic number")+": "+(class="type">class="kw">string)this.GetProperty(class="kw">property)              :
   class="kw">property==EVENT_PROP_MAGIC_BY_ID             ?  TextByLanguage("Магический номер встречной позиции","Magic number of opposite position")+": "+(class="type">class="kw">string)this.GetProperty(class="kw">property)    :
   class="kw">property==EVENT_PROP_TIME_ORDER_POSITION     ?  TextByLanguage("Время открытия позиции","Position&class="macro">#x27;s opened time")+": "+TimeMSCtoString(this.GetProperty(class="kw">property))                :
   class="kw">property==EVENT_PROP_TYPE_ORD_POS_BEFORE     ?  TextByLanguage("Тип ордера позиции до смены направления","Type order of position before changing direction")+": "+OrderTypeDescription((ENUM_ORDER_TYPE)this.GetProperty(class="kw">property)) :
   class="kw">property==EVENT_PROP_TICKET_ORD_POS_BEFORE   ?  TextByLanguage("Тикет ордера позиции до смены направления","Ticket order of position before changing direction")+": #"+(class="type">class="kw">string)this.GetProperty(class="kw">property)          :
   class="kw">property==EVENT_PROP_TYPE_ORD_POS_CURRENT    ?  TextByLanguage("Тип ордера текущей позиции","Type order of current position")+": "+OrderTypeDescription((ENUM_ORDER_TYPE)this.GetProperty(class="kw">property))                :
   class="kw">property==EVENT_PROP_TICKET_ORD_POS_CURRENT  ?  TextByLanguage("Тикет ордера текущей позиции","Ticket order of current position")+": #"+(class="type">class="kw">string)this.GetProperty(class="kw">property)                          :
   EnumToString(class="kw">property)
   );
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the description of the event&class="macro">#x27;s real class="kw">property               |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CEvent::GetPropertyDescription(ENUM_EVENT_PROP_DOUBLE class="kw">property)
  {
   class="type">int dg=(class="type">int)::SymbolInfoInteger(this.GetProperty(EVENT_PROP_SYMBOL),SYMBOL_DIGITS);
   class="type">int dgl=(class="type">int)DigitsLots(this.GetProperty(EVENT_PROP_SYMBOL));
   class="kw">return
     (
      class="kw">property==EVENT_PROP_PRICE_EVENT             ?  TextByLanguage("Цена на момент события","Price at the time of event")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg)      :

class="kw">property==EVENT_PROP_PRICE_OPEN ? TextByLanguage("Цена открытия","Open price")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg) :
class="kw">property==EVENT_PROP_PRICE_CLOSE ? TextByLanguage("Цена закрытия","Close price")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg) :
class="kw">property==EVENT_PROP_PRICE_SL ? TextByLanguage("Цена StopLoss","StopLoss price")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg) :
class="kw">property==EVENT_PROP_PRICE_TP ? TextByLanguage("Цена TakeProfit","TakeProfit price")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg) :
class="kw">property==EVENT_PROP_VOLUME_ORDER_INITIAL ? TextByLanguage("Начальный объём ордера","Order initial volume")+": "+::DoubleToString(this.GetProperty(class="kw">property),dgl) :
class="kw">property==EVENT_PROP_VOLUME_ORDER_EXECUTED ? TextByLanguage("Исполненный объём ордера","Order executed volume")+": "+::DoubleToString(this.GetProperty(class="kw">property),dgl) :
class="kw">property==EVENT_PROP_VOLUME_ORDER_CURRENT ? TextByLanguage("Оставшийся объём ордера","Order remaining volume")+": "+::DoubleToString(this.GetProperty(class="kw">property),dgl) :
class="kw">property==EVENT_PROP_VOLUME_POSITION_EXECUTED ? TextByLanguage("Текущий объём позиции","Position current volume")+": "+::DoubleToString(this.GetProperty(class="kw">property),dgl) :
class="kw">property==EVENT_PROP_PROFIT ? TextByLanguage("Профит","Profit")+": "+::DoubleToString(this.GetProperty(class="kw">property),this.m_digits_acc) :
class="kw">property==EVENT_PROP_PRICE_OPEN_BEFORE ? TextByLanguage("Цена открытия до модификации","Price open before modification")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg) :

   class="kw">property==EVENT_PROP_PRICE_SL_BEFORE      ?  TextByLanguage("Цена StopLoss до модификации","StopLoss price before modification")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg)  :
   class="kw">property==EVENT_PROP_PRICE_TP_BEFORE      ?  TextByLanguage("Цена TakeProfit до модификации","TakeProfit price before modification")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg) :
   class="kw">property==EVENT_PROP_PRICE_EVENT_ASK      ?  TextByLanguage("Цена Ask в момент события","Ask price at the time of event")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg)        :
   class="kw">property==EVENT_PROP_PRICE_EVENT_BID      ?  TextByLanguage("Цена Bid в момент события","Bid price at the time of event")+": "+::DoubleToString(this.GetProperty(class="kw">property),dg)        :
   EnumToString(class="kw">property)
   );
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the trading event name                                                                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CEvent::TypeEventDescription(class="type">void) class="kw">const
  {
   ENUM_TRADE_EVENT event=this.TypeEvent();
   class="kw">return
     (
      event==TRADE_EVENT_NO_EVENT                  ?  TextByLanguage("Нет торгового события","No trading event")                                                                    :
      event==TRADE_EVENT_PENDING_ORDER_PLASED      ?  TextByLanguage("Отложенный ордер установлен","Pending order placed")                                                          :
      event==TRADE_EVENT_PENDING_ORDER_REMOVED     ?  TextByLanguage("Отложенный ордер удалён","Pending order removed")                                                           :
      event==TRADE_EVENT_ACCOUNT_CREDIT            ?  TextByLanguage("Начисление кредита","Credit")                                                                               :

event==TRADE_EVENT_ACCOUNT_CHARGE ? TextByLanguage("Дополнительные сборы","Additional charge") :
event==TRADE_EVENT_ACCOUNT_CORRECTION ? TextByLanguage("Корректирующая запись","Correction") :
event==TRADE_EVENT_ACCOUNT_BONUS ? TextByLanguage("Перечисление бонусов","Bonus") :
event==TRADE_EVENT_ACCOUNT_COMISSION ? TextByLanguage("Дополнительные комиссии","Additional commission") :
event==TRADE_EVENT_ACCOUNT_COMISSION_DAILY ? TextByLanguage("Комиссия, начисляемая в конце торгового дня","Daily commission") :
event==TRADE_EVENT_ACCOUNT_COMISSION_MONTHLY ? TextByLanguage("Комиссия, начисляемая в конце месяца","Monthly commission") :
event==TRADE_EVENT_ACCOUNT_COMISSION_AGENT_DAILY ? TextByLanguage("Агентская комиссия, начисляемая в конце торгового дня","Daily agent commission") :
event==TRADE_EVENT_ACCOUNT_COMISSION_AGENT_MONTHLY ? TextByLanguage("Агентская комиссия, начисляемая в конце месяца","Monthly agent commission") :
event==TRADE_EVENT_ACCOUNT_INTEREST ? TextByLanguage("Начисления процентов на свободные средства","Interest rate") :
event==TRADE_EVENT_BUY_CANCELLED ? TextByLanguage("Отмененная сделка покупки","Canceled buy deal") :
event==TRADE_EVENT_SELL_CANCELLED ? TextByLanguage("Отмененная сделка продажи","Canceled sell deal") :

event==TRADE_EVENT_DIVIDENT ? TextByLanguage("Начисление дивиденда","Dividend operations") :
event==TRADE_EVENT_DIVIDENT_FRANKED ? TextByLanguage("Начисление франкированного дивиденда","Franked(non-taxable) dividend operations") :
event==TRADE_EVENT_TAX ? TextByLanguage("Начисление налога","Tax charges") :
event==TRADE_EVENT_ACCOUNT_BALANCE_REFILL ? TextByLanguage("Пополнение средств на балансе","Balance refill") :
event==TRADE_EVENT_ACCOUNT_BALANCE_WITHDRAWAL ? TextByLanguage("Снятие средств с баланса","Withdrawals") :
event==TRADE_EVENT_PENDING_ORDER_ACTIVATED ? TextByLanguage("Отложенный ордер активирован ценой","Pending order activated") :
event==TRADE_EVENT_PENDING_ORDER_ACTIVATED_PARTIAL ? TextByLanguage("Отложенный ордер активирован ценой частично","Pending order activated partially") :
event==TRADE_EVENT_POSITION_OPENED ? TextByLanguage("Позиция открыта","Position open") :
event==TRADE_EVENT_POSITION_OPENED_PARTIAL ? TextByLanguage("Позиция открыта частично","Position open partially") :
event==TRADE_EVENT_POSITION_CLOSED ? TextByLanguage("Позиция закрыта","Position closed") :

event==TRADE_EVENT_POSITION_CLOSED_PARTIAL ? TextByLanguage("Позиция закрыта частично","Position closed partially") :
event==TRADE_EVENT_POSITION_CLOSED_BY_POS ? TextByLanguage("Позиция закрыта встречной","Position closed by opposite position") :
event==TRADE_EVENT_POSITION_CLOSED_PARTIAL_BY_POS ? TextByLanguage("Позиция закрыта встречной частично","Position closed partially by opposite position") :
event==TRADE_EVENT_POSITION_CLOSED_BY_SL ? TextByLanguage("Позиция закрыта по StopLoss","Position closed by StopLoss") :
event==TRADE_EVENT_POSITION_CLOSED_BY_TP ? TextByLanguage("Позиция закрыта по TakeProfit","Position closed by TakeProfit") :
event==TRADE_EVENT_POSITION_CLOSED_PARTIAL_BY_SL ? TextByLanguage("Позиция закрыта частично по StopLoss","Position closed partially by StopLoss") :
event==TRADE_EVENT_POSITION_CLOSED_PARTIAL_BY_TP ? TextByLanguage("Позиция закрыта частично по TakeProfit","Position closed partially by TakeProfit") :
event==TRADE_EVENT_POSITION_REVERSED_BY_MARKET ? TextByLanguage("Разворот позиции по рыночному запросу","Position reversal by market request") :
event==TRADE_EVENT_POSITION_REVERSED_BY_PENDING ? TextByLanguage("Разворот позиции срабатыванием отложенного ордера","Position reversal by triggering pending order") :
event==TRADE_EVENT_POSITION_VOLUME_ADD_BY_MARKET ? TextByLanguage("Добавлен объём к позиции по рыночному запросу","Added volume to position by market request") :
event==TRADE_EVENT_POSITION_VOLUME_ADD_BY_PENDING ? TextByLanguage("Добавлен объём к позиции активацией отложенного ордера","Added volume to position by activation of pending order") :
event==TRADE_EVENT_POSITION_REVERSED_BY_MARKET_PARTIAL ? TextByLanguage("Разворот позиции частичным исполнением запроса","Position reversal by partial completion of market request") :
event==TRADE_EVENT_POSITION_REVERSED_BY_PENDING_PARTIAL ? TextByLanguage("Разворот позиции частичным срабатыванием отложенного ордера","Position reversal by partial activation of pending order") :

event==TRADE_EVENT_POSITION_VOLUME_ADD_BY_MARKET_PARTIAL ? TextByLanguage("Добавлен объём к позиции частичным исполнением запроса","Added volume to position by partial completion of market request") :
event==TRADE_EVENT_POSITION_VOLUME_ADD_BY_PENDING_PARTIAL ? TextByLanguage("Добавлен объём к позиции активацией отложенного ордера","Added volume to position by partial activation of pending order") :
event==TRADE_EVENT_TRIGGERED_STOP_LIMIT_ORDER ? TextByLanguage("Сработал StopLimit-ордер","StopLimit order triggered.") :
event==TRADE_EVENT_MODIFY_ORDER_PRICE ? TextByLanguage("Модифицирована цена установки ордера ","Order price modified") :
event==TRADE_EVENT_MODIFY_ORDER_PRICE_STOP_LOSS ? TextByLanguage("Модифицированы цена установки и StopLoss ордера","Order price and StopLoss modified") :
event==TRADE_EVENT_MODIFY_ORDER_PRICE_TAKE_PROFIT ? TextByLanguage("Модифицированы цена установки и TakeProfit ордера","Order price and TakeProfit modified") :
event==TRADE_EVENT_MODIFY_ORDER_PRICE_STOP_LOSS_TAKE_PROFIT ? TextByLanguage("Модифицированы цена установки, StopLoss и TakeProfit ордера","Order price, StopLoss and TakeProfit modified") :
event==TRADE_EVENT_MODIFY_ORDER_STOP_LOSS_TAKE_PROFIT ? TextByLanguage("Модифицированы цены StopLoss и TakeProfit ордера","Order StopLoss and TakeProfit modified") :
event==TRADE_EVENT_MODIFY_ORDER_STOP_LOSS ? TextByLanguage("Модифицирован StopLoss ордера","Order StopLoss modified") :

event==TRADE_EVENT_MODIFY_ORDER_TAKE_PROFIT ? TextByLanguage("Модифицирован TakeProfit ордера","Order TakeProfit modified") :
event==TRADE_EVENT_MODIFY_POSITION_STOP_LOSS_TAKE_PROFIT ? TextByLanguage("Модифицированы цены StopLoss и TakeProfit позиции","Position StopLoss and TakeProfit modified") :
event==TRADE_EVENT_MODIFY_POSITION_STOP_LOSS ? TextByLanguage("Модифицирован StopLoss позиции","Position StopLoss modified") :
event==TRADE_EVENT_MODIFY_POSITION_TAKE_PROFIT ? TextByLanguage("Модифицирован TakeProfit позиции","Position TakeProfit modified") :
EnumToString(event)
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the name of the deal/order/position reason                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CEvent::ReasonDescription(class="type">void) class="kw">const
  {
   ENUM_EVENT_REASON reason=this.Reason();
   class="kw">return
     (
      reason==EVENT_REASON_ACTIVATED_PENDING ? TextByLanguage("Активирован отложенный ордер","Pending order activated") :
      reason==EVENT_REASON_ACTIVATED_PENDING_PARTIALLY ? TextByLanguage("Частичное срабатывание отложенного ордера","Pending order partially triggered"):
      reason==EVENT_REASON_STOPLIMIT_TRIGGERED ? TextByLanguage("Срабатывание StopLimit-ордера","StopLimit order triggered") :
      reason==EVENT_REASON_MODIFY ? TextByLanguage("Модификация","Modified") :

reason==EVENT_REASON_CANCEL ? TextByLanguage("Отмена","Canceled") :
reason==EVENT_REASON_EXPIRED ? TextByLanguage("Истёк срок действия","Expired") :
reason==EVENT_REASON_DONE ? TextByLanguage("Рыночный запрос, выполненный в полном объёме","Fully completed market request") :
reason==EVENT_REASON_DONE_PARTIALLY ? TextByLanguage("Выполненный частично рыночный запрос","Partially completed market request") :
reason==EVENT_REASON_VOLUME_ADD ? TextByLanguage("Добавлен объём к позиции","Added volume to position") :
reason==EVENT_REASON_VOLUME_ADD_PARTIALLY ? TextByLanguage("Добавлен объём к позиции частичным исполнением заявки","Volume added to the position by request partial completion") :
reason==EVENT_REASON_VOLUME_ADD_BY_PENDING ? TextByLanguage("Добавлен объём к позиции активацией отложенного ордера","Added volume to position by activating pending order") :
reason==EVENT_REASON_VOLUME_ADD_BY_PENDING_PARTIALLY ? TextByLanguage("Добавлен объём к позиции частичной активацией отложенного ордера","Added volume to position by partial activation of pending order") :
reason==EVENT_REASON_REVERSE ? TextByLanguage("Разворот позиции","Position reversal") :
reason==EVENT_REASON_REVERSE_PARTIALLY ? TextByLanguage("Разворот позиции частичным исполнением заявки","Position reversal by partial completion of request") :
reason==EVENT_REASON_REVERSE_BY_PENDING ? TextByLanguage("Разворот позиции при срабатывании отложенного ордера","Position reversal on triggered pending order") :
reason==EVENT_REASON_REVERSE_BY_PENDING_PARTIALLY ? TextByLanguage("Разворот позиции при при частичном срабатывании отложенного ордера","Position reversal on partially triggered pending order") :

reason==EVENT_REASON_DONE_SL ? TextByLanguage("Закрытие по StopLoss","Close by StopLoss triggered") :
reason==EVENT_REASON_DONE_SL_PARTIALLY ? TextByLanguage("Частичное закрытие по StopLoss","Partial close by StopLoss triggered") :
reason==EVENT_REASON_DONE_TP ? TextByLanguage("Закрытие по TakeProfit","Close by TakeProfit triggered") :
reason==EVENT_REASON_DONE_TP_PARTIALLY ? TextByLanguage("Частичное закрытие по TakeProfit","Partial close by TakeProfit triggered") :
reason==EVENT_REASON_DONE_BY_POS ? TextByLanguage("Закрытие встречной позицией","Closed by opposite position") :
reason==EVENT_REASON_DONE_PARTIALLY_BY_POS ? TextByLanguage("Частичное закрытие встречной позицией","Closed partially by opposite position") :
reason==EVENT_REASON_DONE_BY_POS_PARTIALLY ? TextByLanguage("Закрытие частью объёма встречной позиции","Closed by incomplete volume of opposite position") :
reason==EVENT_REASON_DONE_PARTIALLY_BY_POS_PARTIALLY ? TextByLanguage("Частичное закрытие частью объёма встречной позиции","Closed partially by incomplete volume of opposite position") :
reason==EVENT_REASON_BALANCE_REFILL ? TextByLanguage("Пополнение баланса","Balance refill") :
reason==EVENT_REASON_BALANCE_WITHDRAWAL ? TextByLanguage("Снятие средств с баланса","Withdrawal from the balance") :
reason==EVENT_REASON_ACCOUNT_CREDIT ? TextByLanguage("Начисление кредита","Credit") :
reason==EVENT_REASON_ACCOUNT_CHARGE ? TextByLanguage("Дополнительные сборы","Additional charge") :

reason==EVENT_REASON_ACCOUNT_CORRECTION ? TextByLanguage("Корректирующая запись","Correction") :
reason==EVENT_REASON_ACCOUNT_BONUS ? TextByLanguage("Перечисление бонусов","Bonus") :
reason==EVENT_REASON_ACCOUNT_COMISSION ? TextByLanguage("Дополнительные комиссии","Additional commission") :
reason==EVENT_REASON_ACCOUNT_COMISSION_DAILY ? TextByLanguage("Комиссия, начисляемая в конце торгового дня","Daily commission") :
reason==EVENT_REASON_ACCOUNT_COMISSION_MONTHLY ? TextByLanguage("Комиссия, начисляемая в конце месяца","Monthly commission") :
reason==EVENT_REASON_ACCOUNT_COMISSION_AGENT_DAILY ? TextByLanguage("Агентская комиссия, начисляемая в конце торгового дня","Daily agent commission") :
reason==EVENT_REASON_ACCOUNT_COMISSION_AGENT_MONTHLY ? TextByLanguage("Агентская комиссия, начисляемая в конце месяца","Monthly agent commission") :
reason==EVENT_REASON_ACCOUNT_INTEREST ? TextByLanguage("Начисления процентов на свободные средства","Interest rate") :
reason==EVENT_REASON_BUY_CANCELLED ? TextByLanguage("Отмененная сделка покупки","Canceled buy deal") :
reason==EVENT_REASON_SELL_CANCELLED ? TextByLanguage("Отмененная сделка продажи","Canceled sell deal") :
reason==EVENT_REASON_DIVIDENT ? TextByLanguage("Начисление дивиденда","Dividend operations") :
reason==EVENT_REASON_DIVIDENT_FRANKED ? TextByLanguage("Начисление франкированного дивиденда","Franked(non-taxable) dividend operations") :

   reason==EVENT_REASON_TAX                                                                              ?   TextByLanguage("Начисление налога","Tax charges")                                                                                                    :
                                                                         EnumToString(reason)
   );
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Methods of simplified access to event object properties                                                                         |
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//--- Return(class="num">1) event type, (class="num">2) event time in milliseconds, (class="num">3) event status, (class="num">4) event reason, (class="num">5) deal type, (class="num">6) deal ticket, 
class=class="str">"cmt">//--- (class="num">7) order type, based on which a deal was executed, (class="num">8) position opening order type, (class="num">9) position last order ticket, 
class=class="str">"cmt">//--- (class="num">10) position first order ticket, (class="num">11) position ID, (class="num">12) opposite position ID, (class="num">13) magic number, (class="num">14) opposite position magic number, (class="num">15) position open time
   ENUM_TRADE_EVENT   TypeEvent(class="type">void)                                                                                class="kw">const { class="kw">return (ENUM_TRADE_EVENT)this.GetProperty(EVENT_PROP_TYPE_EVENT);         }
   class="type">long               TimeEvent(class="type">void)                                                                                class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_TIME_EVENT);                              }
   ENUM_EVENT_STATUS  Status(class="type">void)                                                                                   class="kw">const { class="kw">return (ENUM_EVENT_STATUS)this.GetProperty(EVENT_PROP_STATUS_EVENT);        }
   ENUM_EVENT_REASON  Reason(class="type">void)                                                                                   class="kw">const { class="kw">return (ENUM_EVENT_REASON)this.GetProperty(EVENT_PROP_REASON_EVENT);        }
   ENUM_DEAL_TYPE     TypeDeal(class="type">void)                                                                                 class="kw">const { class="kw">return (ENUM_DEAL_TYPE)this.GetProperty(EVENT_PROP_TYPE_DEAL_EVENT);        }
   class="type">long               TicketDeal(class="type">void)                                                                               class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_TICKET_DEAL_EVENT);                       }
   ENUM_ORDER_TYPE    TypeOrderEvent(class="type">void)                                                                           class="kw">const { class="kw">return (ENUM_ORDER_TYPE)this.GetProperty(EVENT_PROP_TYPE_ORDER_EVENT);      }

ENUM_ORDER_TYPE  TypeFirstOrderPosition(class="type">void)                                                class="kw">const { class="kw">return (ENUM_ORDER_TYPE)this.GetProperty(EVENT_PROP_TYPE_ORDER_POSITION);  }
class="type">long               TicketOrderEvent(class="type">void)                                                          class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_TICKET_ORDER_EVENT);                     }
class="type">long               TicketFirstOrderPosition(class="type">void)                                                  class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_TICKET_ORDER_POSITION);                  }
class="type">long               PositionID(class="type">void)                                                                class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_POSITION_ID);                            }
class="type">long               PositionByID(class="type">void)                                                              class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_POSITION_BY_ID);                         }
class="type">long               Magic(class="type">void)                                                                     class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_MAGIC_ORDER);                           }
class="type">long               MagicCloseBy(class="type">void)                                                              class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_MAGIC_BY_ID);                           }
class="type">long               TimePosition(class="type">void)                                                              class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_TIME_ORDER_POSITION);                   }
class=class="str">"cmt">//--- When changing position direction, class="kw">return (class="num">1) previous position order type, (class="num">2) previous position order ticket
class=class="str">"cmt">//--- (class="num">3) current position order type, (class="num">4) current position order ticket
class=class="str">"cmt">//--- (class="num">5) position type and(class="num">6) ticket before changing direction, (class="num">7) position type and(class="num">8) ticket after changing direction
ENUM_ORDER_TYPE  TypeOrderPosPrevious(class="type">void)                                                       class="kw">const { class="kw">return (ENUM_ORDER_TYPE)this.GetProperty(EVENT_PROP_TYPE_ORD_POS_BEFORE);  }

class="type">long TicketOrderPosPrevious(class="type">void) class="kw">const { class="kw">return (ENUM_ORDER_TYPE)this.GetProperty(EVENT_PROP_TICKET_ORD_POS_BEFORE); }
ENUM_ORDER_TYPE TypeOrderPosCurrent(class="type">void) class="kw">const { class="kw">return (ENUM_ORDER_TYPE)this.GetProperty(EVENT_PROP_TYPE_ORD_POS_CURRENT); }
class="type">long TicketOrderPosCurrent(class="type">void) class="kw">const { class="kw">return (ENUM_ORDER_TYPE)this.GetProperty(EVENT_PROP_TICKET_ORD_POS_CURRENT); }
class="type">ENUM_POSITION_TYPE TypePositionPrevious(class="type">void) class="kw">const { class="kw">return PositionTypeByOrderType(this.TypeOrderPosPrevious()); }
class="type">class="kw">ulong TicketPositionPrevious(class="type">void) class="kw">const { class="kw">return this.TicketOrderPosPrevious(); }
class="type">ENUM_POSITION_TYPE TypePositionCurrent(class="type">void) class="kw">const { class="kw">return PositionTypeByOrderType(this.TypeOrderPosCurrent()); }
class="type">class="kw">ulong TicketPositionCurrent(class="type">void) class="kw">const { class="kw">return this.TicketOrderPosCurrent(); }
class=class="str">"cmt">//--- Return(class="num">1) the price the event occurred at, (class="num">2) open price, (class="num">3) close price,
class=class="str">"cmt">//--- (class="num">4) StopLoss price, (class="num">5) TakeProfit price, (class="num">6) profit, (class="num">7) requested order volume, 
class=class="str">"cmt">//--- (class="num">8) executed order volume, (class="num">9) remaining order volume, (class="num">10) executed position volume
class="type">class="kw">double PriceEvent(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_EVENT); }
class="type">class="kw">double PriceOpen(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_OPEN); }

class="type">class="kw">double PriceClose(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_CLOSE); }
class="type">class="kw">double PriceStopLoss(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_SL); }
class="type">class="kw">double PriceTakeProfit(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_TP); }
class="type">class="kw">double Profit(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PROFIT); }
class="type">class="kw">double VolumeOrderInitial(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_VOLUME_ORDER_INITIAL); }
class="type">class="kw">double VolumeOrderExecuted(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_VOLUME_ORDER_EXECUTED); }
class="type">class="kw">double VolumeOrderCurrent(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_VOLUME_ORDER_CURRENT); }
class="type">class="kw">double VolumePositionExecuted(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_VOLUME_POSITION_EXECUTED); }
class=class="str">"cmt">//--- When modifying prices, class="kw">return (class="num">1) order price, (class="num">2) StopLoss and(class="num">3) TakeProfit before modification
class="type">class="kw">double PriceOpenBefore(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_OPEN_BEFORE); }

class="type">class="kw">double PriceStopLossBefore(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_SL_BEFORE); }
class="type">class="kw">double PriceTakeProfitBefore(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_TP_BEFORE); }
class="type">class="kw">double PriceEventAsk(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_EVENT_ASK); }
class="type">class="kw">double PriceEventBid(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_PRICE_EVENT_BID); }
class="type">class="kw">string Symbol(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_SYMBOL); }
class="type">class="kw">string SymbolCloseBy(class="type">void) class="kw">const { class="kw">return this.GetProperty(EVENT_PROP_SYMBOL_BY_ID); }
class="type">void CEvent::SetTypeEvent(class="type">void)
  {
   this.m_digits=(class="type">int)::SymbolInfoInteger(this.Symbol(),SYMBOL_DIGITS);
   if(this.m_event_code==TRADE_EVENT_FLAG_ORDER_PLASED)
     {
      this.m_trade_event=TRADE_EVENT_PENDING_ORDER_PLASED;
      this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
      class="kw">return;
     }
  }

if(this.m_event_code==TRADE_EVENT_FLAG_ORDER_REMOVED)
   {
   this.m_trade_event=TRADE_EVENT_PENDING_ORDER_REMOVED;
   this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
   class="kw">return;
   }
class=class="str">"cmt">//--- Pending order is modified
if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_ORDER_MODIFY))
   {
   class=class="str">"cmt">//--- If the placement price is modified
   if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_PRICE))
      {
      this.m_trade_event=TRADE_EVENT_MODIFY_ORDER_PRICE;
      class=class="str">"cmt">//--- If StopLoss and TakeProfit are modified
      if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_SL) && this.IsPresentEventFlag(TRADE_EVENT_FLAG_TP))
         this.m_trade_event=TRADE_EVENT_MODIFY_ORDER_PRICE_STOP_LOSS_TAKE_PROFIT;
      class=class="str">"cmt">//--- If StopLoss is modified
      else if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_SL))
         this.m_trade_event=TRADE_EVENT_MODIFY_ORDER_PRICE_STOP_LOSS;
      class=class="str">"cmt">//--- If TakeProfit is modified
      else if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_TP))
         this.m_trade_event=TRADE_EVENT_MODIFY_ORDER_PRICE_TAKE_PROFIT;
      }
   class=class="str">"cmt">//--- If the placement price is not modified
   else
      {
      class=class="str">"cmt">//--- If StopLoss and TakeProfit are modified
      if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_SL) && this.IsPresentEventFlag(TRADE_EVENT_FLAG_TP))
         this.m_trade_event=TRADE_EVENT_MODIFY_ORDER_STOP_LOSS_TAKE_PROFIT;
      class=class="str">"cmt">//--- If StopLoss is modified
      else if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_SL))
         this.m_trade_event=TRADE_EVENT_MODIFY_ORDER_STOP_LOSS;
      class=class="str">"cmt">//--- If TakeProfit is modified
      else if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_TP))
         this.m_trade_event=TRADE_EVENT_MODIFY_ORDER_TAKE_PROFIT;
      }
   this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
   class="kw">return;
   }
class=class="str">"cmt">//--- If a position is modified
if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_POSITION_MODIFY))
   {
   class=class="str">"cmt">//--- If StopLoss and TakeProfit are modified
   if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_SL) && this.IsPresentEventFlag(TRADE_EVENT_FLAG_TP))
      this.m_trade_event=TRADE_EVENT_MODIFY_POSITION_STOP_LOSS_TAKE_PROFIT;
   class=class="str">"cmt">//--- If StopLoss is modified
   else if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_SL))
      this.m_trade_event=TRADE_EVENT_MODIFY_POSITION_STOP_LOSS;
   class=class="str">"cmt">//--- If TakeProfit is modified

else if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_TP))
      this.m_trade_event=TRADE_EVENT_MODIFY_POSITION_TAKE_PROFIT;
   this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
   class="kw">return;
   }
class=class="str">"cmt">//--- Position opened(Check the presence of multiple flags in the event code)
  if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_POSITION_OPENED))
   {
   class=class="str">"cmt">//--- If an existing position is changed
    if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_POSITION_CHANGED))
     {
     class=class="str">"cmt">//--- If a pending order is activated by a price
     if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_ORDER_ACTIVATED))
       {
       class=class="str">"cmt">//--- If this is a position reversal
       if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_POSITION_REVERSE))
         {
         class=class="str">"cmt">//--- check the partial closure flag and set the 
         class=class="str">"cmt">//--- "position reversal by activation of a pending order" or "position reversal by partial activation of a pending order" trading event
         this.m_trade_event=
           (
            !this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ?
            TRADE_EVENT_POSITION_REVERSED_BY_PENDING :
            TRADE_EVENT_POSITION_REVERSED_BY_PENDING_PARTIAL
           );
         this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
         class="kw">return;
         }
       class=class="str">"cmt">//--- If this is adding a volume to a position
       else
         {
         class=class="str">"cmt">//--- check the partial opening flag and set the 
         class=class="str">"cmt">//--- "added volume to a position by activating a pending order" or "added volume to a position by partially activating a pending order" trading event
         this.m_trade_event=
           (
            !this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ?
            TRADE_EVENT_POSITION_VOLUME_ADD_BY_PENDING :
            TRADE_EVENT_POSITION_VOLUME_ADD_BY_PENDING_PARTIAL
           );
         this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
         class="kw">return;
         }
       }
     class=class="str">"cmt">//--- If a position was changed by a market deal
     else
       {

      class=class="str">"cmt">//--- If this is a position reversal
      if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_POSITION_REVERSE))
        {
         class=class="str">"cmt">//--- check the partial opening flag and set the "position reversal" or "position reversal by partial execution" trading event
         this.m_trade_event=
          (
           !this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ?
           TRADE_EVENT_POSITION_REVERSED_BY_MARKET :
           TRADE_EVENT_POSITION_REVERSED_BY_MARKET_PARTIAL
          );
         this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
         class="kw">return;
        }
      class=class="str">"cmt">//--- If this is adding a volume to a position
      else
        {
         class=class="str">"cmt">//--- check the partial opening flag and set "added volume to a position" or "added volume to a position by partial execution" trading event
         this.m_trade_event=
          (
           !this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ?
           TRADE_EVENT_POSITION_VOLUME_ADD_BY_MARKET :
           TRADE_EVENT_POSITION_VOLUME_ADD_BY_MARKET_PARTIAL
          );
         this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
         class="kw">return;
        }
     }
   }
  class=class="str">"cmt">//--- If a new position is opened
  else
    {
     class=class="str">"cmt">//--- If a pending order is activated by a price
     if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_ORDER_ACTIVATED))
       {
        class=class="str">"cmt">//--- check the partial opening flag and set "pending order activated" or "pending order partially activated" trading event
        this.m_trade_event=(!this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ? TRADE_EVENT_PENDING_ORDER_ACTIVATED : TRADE_EVENT_PENDING_ORDER_ACTIVATED_PARTIAL);
        this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
        class="kw">return;
       }
     class=class="str">"cmt">//--- check the partial opening flag and set the "Position opened" or "Position partially opened" trading event
     this.m_trade_event=(!this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ? TRADE_EVENT_POSITION_OPENED : TRADE_EVENT_POSITION_OPENED_PARTIAL);
     this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
     class="kw">return;
    }

   }

class=class="str">"cmt">//--- Position closed(Check the presence of multiple flags in the event code)
   if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_POSITION_CLOSED))
   {
      class=class="str">"cmt">//--- if a position is closed by StopLoss
      if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_SL))
        {
         class=class="str">"cmt">//--- check the partial closing flag and set the "Position closed by StopLoss" or "Position partially closed by StopLoss" trading event
         this.m_trade_event=(!this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ? TRADE_EVENT_POSITION_CLOSED_BY_SL : TRADE_EVENT_POSITION_CLOSED_PARTIAL_BY_SL);
         this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
         class="kw">return;
        }
      class=class="str">"cmt">//--- if a position is closed by TakeProfit
      else if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_TP))
        {
         class=class="str">"cmt">//--- check the partial closure flag and set the "Position closed by TakeProfit" or "Position partially closed by TakeProfit" trading event
         this.m_trade_event=(!this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ? TRADE_EVENT_POSITION_CLOSED_BY_TP : TRADE_EVENT_POSITION_CLOSED_PARTIAL_BY_TP);
         this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
         class="kw">return;
        }
      class=class="str">"cmt">//--- if a position is closed by an opposite one
      else if(this.IsPresentEventFlag(TRADE_EVENT_FLAG_BY_POS))
        {
         class=class="str">"cmt">//--- check the partial closure flag and set the "Position closed by opposite one" or "Position partially closed by opposite one" trading event
         this.m_trade_event=(!this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ? TRADE_EVENT_POSITION_CLOSED_BY_POS : TRADE_EVENT_POSITION_CLOSED_PARTIAL_BY_POS);
         this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
         class="kw">return;
        }
      class=class="str">"cmt">//--- If a position is closed
      else
        {
         class=class="str">"cmt">//--- check the partial closure flag and set the "Position closed" or "Position partially closed" trading event
         this.m_trade_event=(!this.IsPresentEventFlag(TRADE_EVENT_FLAG_PARTIAL) ? TRADE_EVENT_POSITION_CLOSED : TRADE_EVENT_POSITION_CLOSED_PARTIAL);
         this.SetProperty(EVENT_PROP_TYPE_EVENT,this.m_trade_event);
         class="kw">return;
        }
   }
class=class="str">"cmt">//--- Balance operation on the account(clarify the event by deal type)
   if(this.m_event_code==TRADE_EVENT_FLAG_ACCOUNT_BALANCE)
   {
      class=class="str">"cmt">//--- Initialize a trading event
      this.m_trade_event=TRADE_EVENT_NO_EVENT;
      class=class="str">"cmt">//--- Take a deal type
      ENUM_DEAL_TYPE deal_type=(ENUM_DEAL_TYPE)this.GetProperty(EVENT_PROP_TYPE_DEAL_EVENT);
      class=class="str">"cmt">//--- if a deal is a balance operation
      if(deal_type==DEAL_TYPE_BALANCE)
        {
         class=class="str">"cmt">//--- check the deal profit and set an event(funds deposit or withdrawal)

class="type">int COrder::ProfitInPoints(class="type">void) class="kw">const
  {
  class="type">MqlTick tick={class="num">0};
  class="type">class="kw">string symbol=this.Symbol();
  if(!::SymbolInfoTick(symbol,tick))
    class="kw">return class="num">0;
  ENUM_ORDER_TYPE type=(ENUM_ORDER_TYPE)this.TypeOrder();
  class="type">class="kw">double point=::SymbolInfoDouble(symbol,SYMBOL_POINT);
  if(type==ORDER_TYPE_CLOSE_BY || point==class="num">0) class="kw">return class="num">0;
  if(this.Status()==ORDER_STATUS_HISTORY_ORDER)
    class="kw">return class="type">int(type==ORDER_TYPE_BUY ? (this.PriceClose()-this.PriceOpen())/point : type==ORDER_TYPE_SELL ? (this.PriceOpen()-this.PriceClose())/point : class="num">0);
  else if(this.Status()==ORDER_STATUS_MARKET_POSITION)
   {
    if(type==ORDER_TYPE_BUY)
      class="kw">return class="type">int((tick.bid-this.PriceOpen())/point);
    else if(type==ORDER_TYPE_SELL)
      class="kw">return class="type">int((this.PriceOpen()-tick.ask)/point);
   }
  else if(this.Status()==ORDER_STATUS_MARKET_PENDING)
   {
    if(type==ORDER_TYPE_BUY_LIMIT || type==ORDER_TYPE_BUY_STOP || type==ORDER_TYPE_BUY_STOP_LIMIT)
      class="kw">return (class="type">int)fabs((tick.bid-this.PriceOpen())/point);
    else if(type==ORDER_TYPE_SELL_LIMIT || type==ORDER_TYPE_SELL_STOP || type==ORDER_TYPE_SELL_STOP_LIMIT)
      class="kw">return (class="type">int)fabs((this.PriceOpen()-tick.ask)/point);
   }
  class="kw">return class="num">0;
  }

class="type">class="kw">string COrder::GetPropertyDescription(ENUM_ORDER_PROP_INTEGER class="kw">property)
  {
   class="kw">return
     (
     class=class="str">"cmt">//--- General properties
       class="kw">property==ORDER_PROP_MAGIC           ?  TextByLanguage("Магик","Magic")+
       (!this.SupportProperty(class="kw">property)     ?  TextByLanguage(": Свойство не поддерживается",": Property not supported") :
          ": "+(class="type">class="kw">string)this.GetProperty(class="kw">property)
       )  :
       class="kw">property==ORDER_PROP_TICKET          ?  TextByLanguage("Тикет","Ticket")+
       (!this.SupportProperty(class="kw">property)     ?  TextByLanguage(": Свойство не поддерживается",": Property not supported") :
          " #"+(class="type">class="kw">string)this.GetProperty(class="kw">property)
       )  :
       class="kw">property==ORDER_PROP_TICKET_FROM     ?  TextByLanguage("Тикет родительского ордера","Parent order ticket")+
       (!this.SupportProperty(class="kw">property)     ?  TextByLanguage(": Свойство не поддерживается",": Property not supported") :
          " #"+(class="type">class="kw">string)this.GetProperty(class="kw">property)
       )  :
       class="kw">property==ORDER_PROP_TICKET_TO       ?  TextByLanguage("Тикет наследуемого ордера","Inherited order ticket")+
       (!this.SupportProperty(class="kw">property)     ?  TextByLanguage(": Свойство не поддерживается",": Property not supported") :
          " #"+(class="type">class="kw">string)this.GetProperty(class="kw">property)
       )  :
       class="kw">property==ORDER_PROP_TIME_OPEN       ?  TextByLanguage("Время открытия","Time open")+
       (!this.SupportProperty(class="kw">property)     ?  TextByLanguage(": Свойство не поддерживается",": Property not supported") :
          ": "+::TimeToString(this.GetProperty(class="kw">property),TIME_DATE|TIME_MINUTES|TIME_SECONDS)
       )  :
       class="kw">property==ORDER_PROP_TIME_CLOSE      ?  TextByLanguage("Время закрытия","Close time")+
       (!this.SupportProperty(class="kw">property)     ?  TextByLanguage(": Свойство не поддерживается",": Property not supported") :
          ": "+::TimeToString(this.GetProperty(class="kw">property),TIME_DATE|TIME_MINUTES|TIME_SECONDS)
       )  :
       class="kw">property==ORDER_PROP_TIME_EXP        ?  TextByLanguage("Дата экспирации","Expiration date")+
       (!this.SupportProperty(class="kw">property)     ?  TextByLanguage(": Свойство не поддерживается",": Property not supported") :

(this.GetProperty(class="kw">property)==class="num">0 ? TextByLanguage(": Не задана",": Not set") :
": "+::TimeToString(this.GetProperty(class="kw">property),TIME_DATE|TIME_MINUTES|TIME_SECONDS)))
 :
class="kw">property==ORDER_PROP_TYPE ? TextByLanguage("Тип","Type")+": "+this.TypeDescription() :
class="kw">property==ORDER_PROP_DIRECTION ? TextByLanguage("Тип по направлению","Type by direction")+": "+this.DirectionDescription() :

class="kw">property==ORDER_PROP_REASON ? TextByLanguage("Причина","Reason")+
 (!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 "": "+this.GetReasonDescription(this.GetProperty(class="kw">property))
 ) :
class="kw">property==ORDER_PROP_POSITION_ID ? TextByLanguage("Идентификатор позиции","Position ID")+
 (!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 "": #"+(class="type">class="kw">string)this.GetProperty(class="kw">property)
 ) :
class="kw">property==ORDER_PROP_DEAL_ORDER_TICKET ? TextByLanguage("Сделка на основании ордера с тикетом","Deal by order ticket")+
 (!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 "": #"+(class="type">class="kw">string)this.GetProperty(class="kw">property)
 ) :
class="kw">property==ORDER_PROP_DEAL_ENTRY ? TextByLanguage("Направление сделки","Deal entry")+
 (!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 "": "+this.GetEntryDescription(this.GetProperty(class="kw">property))
 ) :
class="kw">property==ORDER_PROP_POSITION_BY_ID ? TextByLanguage("Идентификатор встречной позиции","Opposite position ID")+
 (!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 "": "+(class="type">class="kw">string)this.GetProperty(class="kw">property)
 ) :
class="kw">property==ORDER_PROP_TIME_OPEN_MSC ? TextByLanguage("Время открытия в милисекундах","Open time in milliseconds")+
 (!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :

class="kw">property==ORDER_PROP_TIME_CLOSE_MSC ? TextByLanguage("Время закрытия в милисекундах","Close time in milliseconds")+
 (
 !this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 ": "+TimeMSCtoString(this.GetProperty(class="kw">property))+" ("+(class="type">class="kw">string)this.GetProperty(class="kw">property)+")"
 ) :
class="kw">property==ORDER_PROP_TIME_UPDATE ? TextByLanguage("Время изменения позиции","Position change time")+
 (
 !this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 ": "+(this.GetProperty(class="kw">property)!=class="num">0 ? ::TimeToString(this.GetProperty(class="kw">property),TIME_DATE|TIME_MINUTES|TIME_SECONDS) : "class="num">0")
 ) :
class="kw">property==ORDER_PROP_TIME_UPDATE_MSC ? TextByLanguage("Время изменения позиции в милисекундах","Time to change the position in milliseconds")+
 (
 !this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 ": "+(this.GetProperty(class="kw">property)!=class="num">0 ? TimeMSCtoString(this.GetProperty(class="kw">property))+" ("+(class="type">class="kw">string)this.GetProperty(class="kw">property)+")" : "class="num">0")
 ) :
class="kw">property==ORDER_PROP_STATE ? TextByLanguage("Состояние","Statе")+
 (
 !this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 ": \""+this.StateDescription()+"\""
 ) :
 class=class="str">"cmt">//--- Additional class="kw">property
class="kw">property==ORDER_PROP_STATUS ? TextByLanguage("Статус","Status")+
 (
 !this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
 ": \""+this.StatusDescription()+"\""
 ) :
class="kw">property==ORDER_PROP_PROFIT_PT ? (
 this.Status()==ORDER_STATUS_MARKET_PENDING ?

TextByLanguage("Дистанция от цены в пунктах","Distance from price in points") :
TextByLanguage("Прибыль в пунктах","Profit in points")
+
(!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
": "+ (class="type">class="kw">string)this.GetProperty(class="kw">property)
)
:
class="kw">property==ORDER_PROP_CLOSE_BY_SL ? TextByLanguage("Закрытие по StopLoss","Close by StopLoss")+
(!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
": "+ (this.GetProperty(class="kw">property) ? TextByLanguage("Да","Yes") : TextByLanguage("Нет","No"))
)
:
class="kw">property==ORDER_PROP_CLOSE_BY_TP ? TextByLanguage("Закрытие по TakeProfit","Close by TakeProfit")+
(!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
": "+ (this.GetProperty(class="kw">property) ? TextByLanguage("Да","Yes") : TextByLanguage("Нет","No"))
)
:
class="kw">property==ORDER_PROP_GROUP_ID ? TextByLanguage("Идентификатор группы","Group ID")+
(!this.SupportProperty(class="kw">property) ? TextByLanguage(": Свойство не поддерживается",": Property not supported") :
": "+ (class="type">class="kw">string)this.GetProperty(class="kw">property)
)
:
""
);

class="macro">#include "Event.mqh"
class CEventModify : class="kw">public CEvent
  {
class="kw">private:
   class="type">class="kw">double            m_price;             class=class="str">"cmt">// Price passed to an event
class=class="str">"cmt">//--- Create and class="kw">return a brief event description
   class="type">class="kw">string            EventsMessage(class="type">void);
class="kw">public:
class=class="str">"cmt">//--- Constructor
                     CEventModify(class="kw">const class="type">int event_code,class="kw">const class="type">class="kw">ulong ticket=class="num">0) : CEvent(EVENT_STATUS_MODIFY,event_code,ticket),m_price(class="num">0) {}
class=class="str">"cmt">//--- Supported order properties(class="num">1) real, (class="num">2) integer
   class="kw">virtual class="type">bool      SupportProperty(ENUM_EVENT_PROP_INTEGER class="kw">property);
   class="kw">virtual class="type">bool      SupportProperty(ENUM_EVENT_PROP_DOUBLE class="kw">property);
class=class="str">"cmt">//--- (class="num">1) Display a brief message about the event in the journal, (class="num">2) Send the event to the chart
   class="kw">virtual class="type">void      PrintShort(class="type">void);
   class="kw">virtual class="type">void      SendEvent(class="type">void);
   };
class="type">bool CEventModify::SupportProperty(ENUM_EVENT_PROP_INTEGER class="kw">property)
  {
   if(class="kw">property==EVENT_PROP_TYPE_DEAL_EVENT       ||
      class="kw">property==EVENT_PROP_TICKET_DEAL_EVENT      ||
      class="kw">property==EVENT_PROP_TYPE_ORDER_POSITION    ||
      class="kw">property==EVENT_PROP_TICKET_ORDER_POSITION  ||
      class="kw">property==EVENT_PROP_POSITION_ID            ||
      class="kw">property==EVENT_PROP_POSITION_BY_ID         ||
      class="kw">property==EVENT_PROP_TIME_ORDER_POSITION
     ) class="kw">return class="kw">false;
   class="kw">return true;
  }
class="type">bool CEventModify::SupportProperty(ENUM_EVENT_PROP_DOUBLE class="kw">property)
  {
   if(class="kw">property==EVENT_PROP_PRICE_CLOSE            ||
      class="kw">property==EVENT_PROP_PROFIT
     ) class="kw">return class="kw">false;
   class="kw">return true;
  }

class="type">void CEventModify::PrintShort(class="type">void)
  {
  ::Print(this.EventsMessage());
  }
class="type">void CEventModify::SendEvent(class="type">void)
  {
  this.PrintShort();
  ::EventChartCustom(this.m_chart_id,(class="type">class="kw">ushort)this.m_trade_event,this.TicketOrderEvent(),this.m_price,this.Symbol());
  }
class="type">class="kw">string CEventModify::EventsMessage(class="type">void)
  {
  class="type">class="kw">string head="- "+this.TypeEventDescription()+": "+TimeMSCtoString(this.TimePosition())+" -\n";
  class="type">class="kw">string magic=(this.Magic()!=class="num">0 ? TextByLanguage(", магик ",", magic ")+(class="type">class="kw">string)this.Magic() : "");
  class="type">class="kw">string text="";
  if(this.TypeEvent()==TRADE_EVENT_MODIFY_ORDER_PRICE)
    {
    class="type">class="kw">string order=OrderTypeDescription(this.TypeOrderPosCurrent())+" #"+(class="type">class="kw">string)this.TicketOrderPosCurrent();
    class="type">class="kw">string price="["+::DoubleToString(this.PriceOpenBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceOpen(),this.m_digits)+"]";
    text=order+TextByLanguage(": модифицирована цена: ",": modified price: ")+price+magic;
    this.m_price=this.PriceOpen();
    }
  else if(this.TypeEvent()==TRADE_EVENT_MODIFY_ORDER_PRICE_STOP_LOSS)
    {
    class="type">class="kw">string order=OrderTypeDescription(this.TypeOrderPosCurrent())+" #"+(class="type">class="kw">string)this.TicketOrderPosCurrent();
    class="type">class="kw">string price="["+::DoubleToString(this.PriceOpenBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceOpen(),this.m_digits)+"]";
    class="type">class="kw">string sl="["+::DoubleToString(this.PriceStopLossBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceStopLoss(),this.m_digits)+"]";
    text=order+TextByLanguage(": модифицирована цена: ",": modified price: ")+price+TextByLanguage(" и"," and")+" StopLoss: "+sl+magic;
  }

      this.m_price=this.PriceOpen();
   }
class=class="str">"cmt">//--- Pending order price and TakeProfit are modified
   else if(this.TypeEvent()==TRADE_EVENT_MODIFY_ORDER_PRICE_TAKE_PROFIT)
   {
      class="type">class="kw">string order=OrderTypeDescription(this.TypeOrderPosCurrent())+" #"+(class="type">class="kw">string)this.TicketOrderPosCurrent();
      class="type">class="kw">string price="["+::DoubleToString(this.PriceOpenBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceOpen(),this.m_digits)+"]";
      class="type">class="kw">string tp="["+::DoubleToString(this.PriceTakeProfitBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceTakeProfit(),this.m_digits)+"]";
      text=order+TextByLanguage(": модифицирована цена: ",": modified price: ")+price+TextByLanguage(" и"," and")+" TakeProfit: "+tp+magic;
      this.m_price=this.PriceOpen();
   }
class=class="str">"cmt">//--- Pending order price, as well as its StopLoss and TakeProfit are modified
   else if(this.TypeEvent()==TRADE_EVENT_MODIFY_ORDER_PRICE_STOP_LOSS_TAKE_PROFIT)
   {
      class="type">class="kw">string order=OrderTypeDescription(this.TypeOrderPosCurrent())+" #"+(class="type">class="kw">string)this.TicketOrderPosCurrent();
      class="type">class="kw">string price="["+::DoubleToString(this.PriceOpenBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceOpen(),this.m_digits)+"]";
      class="type">class="kw">string sl="["+::DoubleToString(this.PriceStopLossBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceStopLoss(),this.m_digits)+"]";
      class="type">class="kw">string tp="["+::DoubleToString(this.PriceTakeProfitBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceTakeProfit(),this.m_digits)+"]";
      text=order+TextByLanguage(": модифицирована цена: ",": modified price: ")+price+", StopLoss: "+sl+TextByLanguage(" и"," and")+" TakeProfit: "+tp+magic;
      this.m_price=this.PriceOpen();
   }
class=class="str">"cmt">//--- Pending order StopLoss is modified
   else if(this.TypeEvent()==TRADE_EVENT_MODIFY_ORDER_STOP_LOSS)
   {
      class="type">class="kw">string order=OrderTypeDescription(this.TypeOrderPosCurrent())+" #"+(class="type">class="kw">string)this.TicketOrderPosCurrent();
      class="type">class="kw">string sl="["+::DoubleToString(this.PriceStopLossBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceStopLoss(),this.m_digits)+"]";
      text=order+TextByLanguage(": модифицирован StopLoss: ",": modified StopLoss: ")+sl+magic;
      this.m_price=this.PriceStopLoss();
   }

class=class="str">"cmt">//--- Pending order TakeProfit is modified
  else if(this.TypeEvent()==TRADE_EVENT_MODIFY_ORDER_TAKE_PROFIT)
    {
      class="type">class="kw">string order=OrderTypeDescription(this.TypeOrderPosCurrent())+" #"+(class="type">class="kw">string)this.TicketOrderPosCurrent();
      class="type">class="kw">string tp="["+::DoubleToString(this.PriceTakeProfitBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceTakeProfit(),this.m_digits)+"]";
      text=order+TextByLanguage(": модифицирован TakeProfit: ",": modified TakeProfit: ")+tp+magic;
      this.m_price=this.PriceTakeProfit();
    }
class=class="str">"cmt">//--- Pending order StopLoss and TakeProfit are modified
  else if(this.TypeEvent()==TRADE_EVENT_MODIFY_ORDER_STOP_LOSS_TAKE_PROFIT)
    {
      class="type">class="kw">string order=OrderTypeDescription(this.TypeOrderPosCurrent())+" #"+(class="type">class="kw">string)this.TicketOrderPosCurrent();
      class="type">class="kw">string sl="["+::DoubleToString(this.PriceStopLossBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceStopLoss(),this.m_digits)+"]";
      class="type">class="kw">string tp="["+::DoubleToString(this.PriceTakeProfitBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceTakeProfit(),this.m_digits)+"]";
      text=order+TextByLanguage(": модифицирован StopLoss: ",": modified StopLoss: ")+sl+TextByLanguage(" и"," and")+" TakeProfit: "+tp+magic;
      this.m_price=this.PriceOpen();
    }
class=class="str">"cmt">//--- Position StopLoss is modified
  else if(this.TypeEvent()==TRADE_EVENT_MODIFY_POSITION_STOP_LOSS)
    {
      class="type">class="kw">string order=PositionTypeDescription(this.TypePositionCurrent())+" #"+(class="type">class="kw">string)this.TicketPositionCurrent();
      class="type">class="kw">string sl="["+::DoubleToString(this.PriceStopLossBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceStopLoss(),this.m_digits)+"]";
      text=order+TextByLanguage(": модифицирован StopLoss: ",": modified StopLoss: ")+sl+magic;
      this.m_price=this.PriceStopLoss();
    }
class=class="str">"cmt">//--- Position TakeProfit is modified
  else if(this.TypeEvent()==TRADE_EVENT_MODIFY_POSITION_TAKE_PROFIT)
    {
      class="type">class="kw">string order=PositionTypeDescription(this.TypePositionCurrent())+" #"+(class="type">class="kw">string)this.TicketPositionCurrent();
      class="type">class="kw">string tp="["+::DoubleToString(this.PriceTakeProfitBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceTakeProfit(),this.m_digits)+"]";
      text=order+TextByLanguage(": модифицирован TakeProfit: ",": modified TakeProfit: ")+tp+magic;

   this.m_price=this.PriceTakeProfit();
   }
class=class="str">"cmt">//--- Position StopLoss and TakeProfit are modified
   else if(this.TypeEvent()==TRADE_EVENT_MODIFY_POSITION_STOP_LOSS_TAKE_PROFIT)
   {
      class="type">class="kw">string order=PositionTypeDescription(this.TypePositionCurrent())+" #"+(class="type">class="kw">string)this.TicketPositionCurrent();
      class="type">class="kw">string sl="["+::DoubleToString(this.PriceStopLossBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceStopLoss(),this.m_digits)+"]";
      class="type">class="kw">string tp="["+::DoubleToString(this.PriceTakeProfitBefore(),this.m_digits)+" --> "+::DoubleToString(this.PriceTakeProfit(),this.m_digits)+"]";
      text=order+TextByLanguage(": модифицирован StopLoss: ",": modified StopLoss: ")+sl+TextByLanguage(" и"," and")+" TakeProfit: "+tp+magic;
      this.m_price=this.PriceOpen();
   }
   class="kw">return head+this.Symbol()+" "+text;

class="kw">private:
  CListObj              m_list_events;            class=class="str">"cmt">// Event list
  class="type">bool                  m_is_hedge;              class=class="str">"cmt">// Hedging account flag
  class="type">long                  m_chart_id;              class=class="str">"cmt">// Control program chart ID
  class="type">int                   m_trade_event_code;      class=class="str">"cmt">// Trading event code
  ENUM_TRADE_EVENT      m_trade_event;           class=class="str">"cmt">// Account trading event
  CEvent                m_event_instance;        class=class="str">"cmt">// Event object for searching by class="kw">property
  class="type">MqlTick               m_tick;                  class=class="str">"cmt">// Last tick structure

class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Constructor                                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
CEventsCollection::CEventsCollection(class="type">void) : m_trade_event(TRADE_EVENT_NO_EVENT),m_trade_event_code(TRADE_EVENT_FLAG_NO_EVENT)
  {
   this.m_list_events.Clear();
   this.m_list_events.Sort(SORT_BY_EVENT_TIME_EVENT);
   this.m_list_events.Type(COLLECTION_EVENTS_ID);
   this.m_is_hedge=class="type">bool(::AccountInfoInteger(ACCOUNT_MARGIN_MODE)==ACCOUNT_MARGIN_MODE_RETAIL_HEDGING);
   this.m_chart_id=::ChartID();
   ::ZeroMemory(this.m_tick);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Create a trading event depending on the order change type        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CEventsCollection::CreateNewEvent(COrderControl* order)
  {
   if(!::SymbolInfoTick(order.Symbol(),this.m_tick))
     {
      Print(DFUN,TextByLanguage("Не удалось получить текущие цены по символу события ","Failed to get current prices by event symbol "),order.Symbol());
      class="kw">return;
     }
   CEvent* event=NULL;
class=class="str">"cmt">//--- Pending StopLimit order activated
   if(order.GetChangeType()==CHANGE_TYPE_ORDER_TYPE)
     {
      this.m_trade_event_code=TRADE_EVENT_FLAG_ORDER_PLASED;
      event=new CEventOrderPlased(this.m_trade_event_code,order.Ticket());
     }
class=class="str">"cmt">//--- Modification
   else
     {
      class=class="str">"cmt">//--- Pending order price is modified
      if(order.GetChangeType()==CHANGE_TYPE_ORDER_PRICE)
        this.m_trade_event_code=TRADE_EVENT_FLAG_ORDER_MODIFY+TRADE_EVENT_FLAG_PRICE;
      class=class="str">"cmt">//--- Pending order price and StopLoss are modified

else if(order.GetChangeType()==CHANGE_TYPE_ORDER_PRICE_STOP_LOSS)
   this.m_trade_event_code=TRADE_EVENT_FLAG_ORDER_MODIFY+TRADE_EVENT_FLAG_PRICE+TRADE_EVENT_FLAG_SL;
class=class="str">"cmt">//--- Pending order price and TakeProfit are modified
else if(order.GetChangeType()==CHANGE_TYPE_ORDER_PRICE_TAKE_PROFIT)
   this.m_trade_event_code=TRADE_EVENT_FLAG_ORDER_MODIFY+TRADE_EVENT_FLAG_PRICE+TRADE_EVENT_FLAG_TP;
class=class="str">"cmt">//--- Pending order price, as well as its StopLoss and TakeProfit are modified
else if(order.GetChangeType()==CHANGE_TYPE_ORDER_PRICE_STOP_LOSS_TAKE_PROFIT)
   this.m_trade_event_code=TRADE_EVENT_FLAG_ORDER_MODIFY+TRADE_EVENT_FLAG_PRICE+TRADE_EVENT_FLAG_SL+TRADE_EVENT_FLAG_TP;
class=class="str">"cmt">//--- Pending order StopLoss is modified
else if(order.GetChangeType()==CHANGE_TYPE_ORDER_STOP_LOSS)
   this.m_trade_event_code=TRADE_EVENT_FLAG_ORDER_MODIFY+TRADE_EVENT_FLAG_SL;
class=class="str">"cmt">//--- Pending order TakeProfit is modified
else if(order.GetChangeType()==CHANGE_TYPE_ORDER_TAKE_PROFIT)
   this.m_trade_event_code=TRADE_EVENT_FLAG_ORDER_MODIFY+TRADE_EVENT_FLAG_TP;
class=class="str">"cmt">//--- Pending order StopLoss and TakeProfit are modified
else if(order.GetChangeType()==CHANGE_TYPE_ORDER_STOP_LOSS_TAKE_PROFIT)
   this.m_trade_event_code=TRADE_EVENT_FLAG_ORDER_MODIFY+TRADE_EVENT_FLAG_SL+TRADE_EVENT_FLAG_TP;
class=class="str">"cmt">//--- Position StopLoss is modified
else if(order.GetChangeType()==CHANGE_TYPE_POSITION_STOP_LOSS)
   this.m_trade_event_code=TRADE_EVENT_FLAG_POSITION_MODIFY+TRADE_EVENT_FLAG_SL;
class=class="str">"cmt">//--- Position TakeProfit is modified
else if(order.GetChangeType()==CHANGE_TYPE_POSITION_TAKE_PROFIT)
   this.m_trade_event_code=TRADE_EVENT_FLAG_POSITION_MODIFY+TRADE_EVENT_FLAG_TP;
class=class="str">"cmt">//--- Position StopLoss and TakeProfit are modified
else if(order.GetChangeType()==CHANGE_TYPE_POSITION_STOP_LOSS_TAKE_PROFIT)
   this.m_trade_event_code=TRADE_EVENT_FLAG_POSITION_MODIFY+TRADE_EVENT_FLAG_SL+TRADE_EVENT_FLAG_TP;

class=class="str">"cmt">//--- Create a modification event
event=new CEventModify(this.m_trade_event_code,order.Ticket());
}
class=class="str">"cmt">//--- Create an event
if(event!=NULL)
  {
   event.SetProperty(EVENT_PROP_TIME_EVENT,order.Time());                                              class=class="str">"cmt">// Event time
   event.SetProperty(EVENT_PROP_REASON_EVENT,EVENT_REASON_STOPLIMIT_TRIGGERED);                        class=class="str">"cmt">// Event reason(from the ENUM_EVENT_REASON enumeration)
   event.SetProperty(EVENT_PROP_TYPE_DEAL_EVENT,PositionTypeByOrderType((ENUM_ORDER_TYPE)order.TypeOrderPrev())); class=class="str">"cmt">// Type of the order that triggered an event
   event.SetProperty(EVENT_PROP_TICKET_DEAL_EVENT,order.Ticket());                                      class=class="str">"cmt">// Ticket of the order that triggered an event
   event.SetProperty(EVENT_PROP_TYPE_ORDER_EVENT,order.TypeOrder());                                    class=class="str">"cmt">// Event order type
   event.SetProperty(EVENT_PROP_TICKET_ORDER_EVENT,order.Ticket());                                     class=class="str">"cmt">// Event order ticket

event.SetProperty(EVENT_PROP_TYPE_ORDER_POSITION,order.TypeOrder());              class=class="str">"cmt">// First position order type
event.SetProperty(EVENT_PROP_TICKET_ORDER_POSITION,order.Ticket());              class=class="str">"cmt">// First position order ticket
event.SetProperty(EVENT_PROP_POSITION_ID,order.PositionID());                    class=class="str">"cmt">// Position ID
event.SetProperty(EVENT_PROP_POSITION_BY_ID,class="num">0);                                  class=class="str">"cmt">// Opposite position ID
event.SetProperty(EVENT_PROP_MAGIC_BY_ID,class="num">0);                                     class=class="str">"cmt">// Opposite position magic number

event.SetProperty(EVENT_PROP_TYPE_ORD_POS_BEFORE,order.TypeOrderPrev());        class=class="str">"cmt">// Position order type before changing the direction
event.SetProperty(EVENT_PROP_TICKET_ORD_POS_BEFORE,order.Ticket());              class=class="str">"cmt">// Position order ticket before changing direction
event.SetProperty(EVENT_PROP_TYPE_ORD_POS_CURRENT,order.TypeOrder());            class=class="str">"cmt">// Current position order type
event.SetProperty(EVENT_PROP_TICKET_ORD_POS_CURRENT,order.Ticket());             class=class="str">"cmt">// Current position order ticket

event.SetProperty(EVENT_PROP_PRICE_OPEN_BEFORE,order.PricePrev());               class=class="str">"cmt">// Order price before modification
event.SetProperty(EVENT_PROP_PRICE_SL_BEFORE,order.StopLossPrev());              class=class="str">"cmt">// StopLoss price before modification
event.SetProperty(EVENT_PROP_PRICE_TP_BEFORE,order.TakeProfitPrev());            class=class="str">"cmt">// TakeProfit price before modification
event.SetProperty(EVENT_PROP_PRICE_EVENT_ASK,this.m_tick.ask);                    class=class="str">"cmt">// Ask price during an event
event.SetProperty(EVENT_PROP_PRICE_EVENT_BID,this.m_tick.bid);                    class=class="str">"cmt">// Bid price during an event

event.SetProperty(EVENT_PROP_MAGIC_ORDER,order.Magic());                        class=class="str">"cmt">// Order magic number
event.SetProperty(EVENT_PROP_TIME_ORDER_POSITION,order.TimePrev());              class=class="str">"cmt">// Position first order time
event.SetProperty(EVENT_PROP_PRICE_EVENT,order.PricePrev());                     class=class="str">"cmt">// Price the event occurred at
event.SetProperty(EVENT_PROP_PRICE_OPEN,order.Price());                         class=class="str">"cmt">// Order placement price
event.SetProperty(EVENT_PROP_PRICE_CLOSE,order.Price());                        class=class="str">"cmt">// Order close price

event.SetProperty(EVENT_PROP_PRICE_SL,order.StopLoss()); class=class="str">"cmt">// Order StopLoss price
event.SetProperty(EVENT_PROP_PRICE_TP,order.TakeProfit()); class=class="str">"cmt">// Order TakeProfit price
event.SetProperty(EVENT_PROP_VOLUME_ORDER_INITIAL,order.Volume()); class=class="str">"cmt">// Requested order volume
event.SetProperty(EVENT_PROP_VOLUME_ORDER_EXECUTED,class="num">0); class=class="str">"cmt">// Executed order volume
event.SetProperty(EVENT_PROP_VOLUME_ORDER_CURRENT,order.Volume()); class=class="str">"cmt">// Remaining(unexecuted) order volume
event.SetProperty(EVENT_PROP_VOLUME_POSITION_EXECUTED,class="num">0); class=class="str">"cmt">// Executed position volume
event.SetProperty(EVENT_PROP_PROFIT,class="num">0); class=class="str">"cmt">// Profit
event.SetProperty(EVENT_PROP_SYMBOL,order.Symbol()); class=class="str">"cmt">// Order symbol
event.SetProperty(EVENT_PROP_SYMBOL_BY_ID,order.Symbol()); class=class="str">"cmt">// Opposite position symbol
class=class="str">"cmt">//--- Set the control program chart ID, decode the event code and set the event type
event.SetChartID(this.m_chart_id);
event.SetTypeEvent();
class=class="str">"cmt">//--- Add the event object if it is not in the list
if(!this.IsPresentEventInList(event))
  {
   this.m_list_events.InsertSort(event);
   class=class="str">"cmt">//--- Send a message about the event and set the value of the last trading event
   event.SendEvent();
   this.m_trade_event=event.TradeEvent();
   }
class=class="str">"cmt">//--- If the event is already present in the list, remove a new event object and display a debugging message
else
  {
   ::Print(DFUN_ERR_LINE,TextByLanguage("Такое событие уже есть в списке","This event already in the list."));
   class="kw">delete event;
   }

class=class="str">"cmt">//--- enums
enum ENUM_BUTTONS
  {
   BUTT_BUY,
   BUTT_BUY_LIMIT,
   BUTT_BUY_STOP,
   BUTT_BUY_STOP_LIMIT,
   BUTT_CLOSE_BUY,
   BUTT_CLOSE_BUY2,
   BUTT_CLOSE_BUY_BY_SELL,
   BUTT_SELL,
   BUTT_SELL_LIMIT,
   BUTT_SELL_STOP,
   BUTT_SELL_STOP_LIMIT,
   BUTT_CLOSE_SELL,
   BUTT_CLOSE_SELL2,
   BUTT_CLOSE_SELL_BY_BUY,
   BUTT_DELETE_PENDING,
   BUTT_CLOSE_ALL,
   BUTT_PROFIT_WITHDRAWAL,
   BUTT_SET_STOP_LOSS,   
   BUTT_SET_TAKE_PROFIT, 
   BUTT_TRAILING_ALL     
  };
class="macro">#define TOTAL_BUTT(class="num">20)
class=class="str">"cmt">//--- class="kw">input variables
class="kw">input class="type">class="kw">ulong     InpMagic            =  class="num">123;  class=class="str">"cmt">// Magic number
class="kw">input class="type">class="kw">double    InpLots             =  class="num">0.1;  class=class="str">"cmt">// Lots
class="kw">input class="type">uint      InpStopLoss         =  class="num">50;   class=class="str">"cmt">// StopLoss in points
class="kw">input class="type">uint      InpTakeProfit       =  class="num">50;   class=class="str">"cmt">// TakeProfit in points
class="kw">input class="type">uint      InpDistance         =  class="num">50;   class=class="str">"cmt">// Pending orders distance(points)
class="kw">input class="type">uint      InpDistanceSL       =  class="num">50;   class=class="str">"cmt">// StopLimit orders distance(points)
class="kw">input class="type">uint      InpSlippage         =  class="num">0;    class=class="str">"cmt">// Slippage in points
class="kw">input class="type">class="kw">double    InpWithdrawal       =  class="num">10;   class=class="str">"cmt">// Withdrawal funds(in tester)
class="kw">input class="type">uint      InpButtShiftX       =  class="num">40;   class=class="str">"cmt">// Buttons X shift 
class="kw">input class="type">uint      InpButtShiftY       =  class="num">10;   class=class="str">"cmt">// Buttons Y shift 
class="kw">input class="type">uint      InpTrailingStop     =  class="num">50;   class=class="str">"cmt">// Trailing Stop(points)

class="kw">input class="type">uint      InpTrailingStep       =  class="num">20;    class=class="str">"cmt">// Trailing Step(points)
class="kw">input class="type">uint      InpTrailingStart      =  class="num">0;      class=class="str">"cmt">// Trailing Start(points)
class="kw">input class="type">uint      InpStopLossModify     =  class="num">20;     class=class="str">"cmt">// StopLoss for modification(points)
class="kw">input class="type">uint      InpTakeProfitModify   =  class="num">60;     class=class="str">"cmt">// TakeProfit for modification(points)
class=class="str">"cmt">//--- global variables
CEngine         engine;
CTrade          trade;
SDataButt       butt_data[TOTAL_BUTT];
class="type">class="kw">string          prefix;
class="type">class="kw">double          lot;
class="type">class="kw">double          withdrawal=(InpWithdrawal<class="num">0.1 ? class="num">0.1 : InpWithdrawal);
class="type">class="kw">ulong           magic_number;
class="type">uint            stoploss;
class="type">uint            takeprofit;
class="type">uint            distance_pending;
class="type">uint            distance_stoplimit;
class="type">uint            slippage;
class="type">bool            trailing_on;
class="type">class="kw">double          trailing_stop;
class="type">class="kw">double          trailing_step;
class="type">uint            trailing_start;
class="type">uint            stoploss_to_modify;
class="type">uint            takeprofit_to_modify;

trailing_stop=InpTrailingStop*Point();
trailing_step=InpTrailingStep*Point();
trailing_start=InpTrailingStart;

stoploss_to_modify=InpStopLossModify;
takeprofit_to_modify=InpTakeProfitModify;
class=class="str">"cmt">//--- create buttons
if(!CreateButtons(InpButtShiftX,InpButtShiftY))
   class="kw">return INIT_FAILED;
class=class="str">"cmt">//--- set button trailing
ButtonState(butt_data[TOTAL_BUTT-class="num">1].name,trailing_on);
class=class="str">"cmt">//--- setting trade parameters
 trade.SetDeviationInPoints(slippage);
 trade.SetExpertMagicNumber(magic_number);
 trade.SetTypeFillingBySymbol(Symbol());
 trade.SetMarginMode();
 trade.LogLevel(LOG_LEVEL_NO);
class=class="str">"cmt">//---
 class="kw">return(INIT_SUCCEEDED);
 }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the flag of a prefixed object presence                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool IsPresentObects(class="kw">const class="type">class="kw">string object_prefix)
  {
  for(class="type">int i=ObjectsTotal(class="num">0)-class="num">1;i>=class="num">0;i--)
     if(StringFind(ObjectName(class="num">0,i,class="num">0),object_prefix)>WRONG_VALUE)
        class="kw">return true;
  class="kw">return class="kw">false;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Tracking the buttons&class="macro">#x27; status                                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void PressButtonsControl(class="type">void)
  {
  class="type">int total=ObjectsTotal(class="num">0);
  for(class="type">int i=class="num">0;i<total;i++)
     {
     class="type">class="kw">string obj_name=ObjectName(class="num">0,i);
     if(StringFind(obj_name,prefix+"BUTT_")<class="num">0)
        class="kw">continue;
     PressButtonEvents(obj_name);
     }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Set the button status                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void ButtonState(class="kw">const class="type">class="kw">string name,class="kw">const class="type">bool state)
  {
  ObjectSetInteger(class="num">0,name,OBJPROP_STATE,state);
  if(name==butt_data[TOTAL_BUTT-class="num">1].name)
     {
     if(state)
        ObjectSetInteger(class="num">0,name,OBJPROP_BGCOLOR,C&class="macro">#x27;class="num">220,class="num">255,class="num">240&class="macro">#x27;);

class="type">class="kw">string EnumToButtText(class="kw">const ENUM_BUTTONS member)
  {
  class="type">class="kw">string txt=StringSubstr(EnumToString(member),class="num">5);
  StringToLower(txt);
  StringReplace(txt,"set_take_profit","Set TakeProfit");
  StringReplace(txt,"set_stop_loss","Set StopLoss");
  StringReplace(txt,"trailing_all","Trailing All");
  StringReplace(txt,"buy","Buy");
  StringReplace(txt,"sell","Sell");
  StringReplace(txt,"_limit"," Limit");
  StringReplace(txt,"_stop"," Stop");
  StringReplace(txt,"close_","Close ");
  StringReplace(txt,"class="num">2"," class="num">1/class="num">2");
  StringReplace(txt,"_by_"," by ");
  StringReplace(txt,"profit_","Profit ");
  StringReplace(txt,"delete_","Delete ");
  class="kw">return txt;
  }

ButtonState(button_name,class="kw">false);
class=class="str">"cmt">//--- If the BUTT_TRAILING_ALL button is pressed
else
  {
  class=class="str">"cmt">//--- Set the class="type">class="kw">color of the active button
  ButtonState(button_name,true);
  trailing_on=true;
  }
class=class="str">"cmt">//--- re-draw the chart
ChartRedraw();
 }
 class=class="str">"cmt">//--- Return the inactive button class="type">class="kw">color (if this is a trailing button)
 else if(button==EnumToString(BUTT_TRAILING_ALL))
  {
  ButtonState(button_name,class="kw">false);
  trailing_on=class="kw">false;
  class=class="str">"cmt">//--- re-draw the chart
  ChartRedraw();
  }
}

class="type">void SetStopLoss(class="type">void)
  {
  if(stoploss_to_modify==class="num">0)
    class="kw">return;
class=class="str">"cmt">//--- Set StopLoss to all positions where it is absent
  CArrayObj* list=engine.GetListMarketPosition();
  list=CSelect::ByOrderProperty(list,ORDER_PROP_SL,class="num">0,EQUAL);
  if(list==NULL)
    class="kw">return;
  class="type">int total=list.Total();
  for(class="type">int i=total-class="num">1;i>=class="num">0;i--)
    {
    COrder* position=list.At(i);
    if(position==NULL)
      class="kw">continue;
    class="type">class="kw">double sl=CorrectStopLoss(position.Symbol(),position.TypeByDirection(),class="num">0,stoploss_to_modify);
    trade.PositionModify(position.Ticket(),sl,position.TakeProfit());
    }
class=class="str">"cmt">//--- Set StopLoss to all pending orders where it is absent
  list=engine.GetListMarketPendings();
  list=CSelect::ByOrderProperty(list,ORDER_PROP_SL,class="num">0,EQUAL);
  if(list==NULL)
    class="kw">return;
  total=list.Total();
  for(class="type">int i=total-class="num">1;i>=class="num">0;i--)
    {
    COrder* order=list.At(i);
    if(order==NULL)
      class="kw">continue;
    class="type">class="kw">double sl=CorrectStopLoss(order.Symbol(),(ENUM_ORDER_TYPE)order.TypeOrder(),order.PriceOpen(),stoploss_to_modify);
    trade.OrderModify(order.Ticket(),order.PriceOpen(),sl,order.TakeProfit(),trade.RequestTypeTime(),trade.RequestExpiration(),order.PriceStopLimit());
    }
  }

list=CSelect::ByOrderProperty(list,ORDER_PROP_TP,class="num">0,EQUAL);
if(list==NULL)
   class="kw">return;
class="type">int total=list.Total();
for(class="type">int i=total-class="num">1;i>=class="num">0;i--)
   {
   COrder* position=list.At(i);
   if(position==NULL)
      class="kw">continue;
   class="type">class="kw">double tp=CorrectTakeProfit(position.Symbol(),position.TypeByDirection(),class="num">0,takeprofit_to_modify);
   trade.PositionModify(position.Ticket(),position.StopLoss(),tp);
   }
class=class="str">"cmt">//--- Set TakeProfit to all pending orders where it is absent
list=engine.GetListMarketPendings();
list=CSelect::ByOrderProperty(list,ORDER_PROP_TP,class="num">0,EQUAL);
if(list==NULL)
   class="kw">return;
total=list.Total();
for(class="type">int i=total-class="num">1;i>=class="num">0;i--)
   {
   COrder* order=list.At(i);
   if(order==NULL)
      class="kw">continue;
   class="type">class="kw">double tp=CorrectTakeProfit(order.Symbol(),(ENUM_ORDER_TYPE)order.TypeOrder(),order.PriceOpen(),takeprofit_to_modify);
   trade.OrderModify(order.Ticket(),order.PriceOpen(),order.StopLoss(),tp,trade.RequestTypeTime(),trade.RequestExpiration(),order.PriceStopLimit());
   }
}

   {
   class=class="str">"cmt">//--- If we trail at any profit or position profit in points exceeds the trailing start, modify StopLoss
   if(trailing_start==class="num">0 || buy.ProfitInPoints()>(class="type">int)trailing_start)
      trade.PositionModify(buy.Ticket(),sl,buy.TakeProfit());
   }
   }
   }
   }
 class=class="str">"cmt">//--- Select only Sell positions from the list
 CArrayObj* list_sell=CSelect::ByOrderProperty(list,ORDER_PROP_TYPE,POSITION_TYPE_SELL,EQUAL);
 class=class="str">"cmt">//--- Sort the list by profit considering commission and swap
 list_sell.Sort(SORT_BY_ORDER_PROFIT_FULL);
 class=class="str">"cmt">//--- Get Sell position index with the maximum profit
 class="type">int index_sell=CSelect::FindOrderMax(list_sell,ORDER_PROP_PROFIT_FULL);
 if(index_sell>WRONG_VALUE)
  {
   COrder* sell=list_sell.At(index_sell);
   if(sell!=NULL)
     {
     class=class="str">"cmt">//--- Calculate the new StopLoss
     class="type">class="kw">double sl=NormalizeDouble(tick.ask+trailing_stop,Digits());
     class=class="str">"cmt">//--- If the price and StopLevel based on it are below the new StopLoss(the distance by StopLevel is maintained)
     if(tick.ask+stop_level<sl)
       {
       class=class="str">"cmt">//--- If the new StopLoss level is below the trailing step based on the current StopLoss or a position has no StopLoss
       if(sell.StopLoss()-trailing_step>sl || sell.StopLoss()==class="num">0)
         {
         class=class="str">"cmt">//--- If we trail at any profit or position profit in points exceeds the trailing start value, modify StopLoss
         if(trailing_start==class="num">0 || sell.ProfitInPoints()>(class="type">int)trailing_start)
            trade.PositionModify(sell.Ticket(),sl,sell.TakeProfit());
         }
       }
     }
   }
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Trailing the farthest pending orders                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void TrailingOrders(class="type">void)
  {
  class="type">MqlTick tick;
  if(!SymbolInfoTick(Symbol(),tick))
     class="kw">return;
  class="type">class="kw">double stop_level=StopLevel(Symbol(),class="num">2)*Point();
class=class="str">"cmt">//--- Get the list of all placed orders
  CArrayObj* list=engine.GetListMarketPendings();
class=class="str">"cmt">//--- Select only Buy orders from the list
  CArrayObj* list_buy=CSelect::ByOrderProperty(list,ORDER_PROP_DIRECTION,ORDER_TYPE_BUY,EQUAL);
  class=class="str">"cmt">//--- Sort the list by distance from the price in points(by profit in points)
  list_buy.Sort(SORT_BY_ORDER_PROFIT_PT);
  class=class="str">"cmt">//--- Get the index of the Buy order with the greatest distance
  class="type">int index_buy=CSelect::FindOrderMax(list_buy,ORDER_PROP_PROFIT_PT);
  if(index_buy>WRONG_VALUE)
   {
   COrder* buy=list_buy.At(index_buy);
   if(buy!=NULL)
     {

   class=class="str">"cmt">//--- If the order is below the price(BuyLimit) and it should be "elevated" following the price
   if(buy.TypeOrder()==ORDER_TYPE_BUY_LIMIT)
     {
      class=class="str">"cmt">//--- Calculate the new order price and stop levels based on it
      class="type">class="kw">double price=NormalizeDouble(tick.ask-trailing_stop,Digits());
      class="type">class="kw">double sl=(buy.StopLoss()>class="num">0 ? NormalizeDouble(price-(buy.PriceOpen()-buy.StopLoss()),Digits()) : class="num">0);
      class="type">class="kw">double tp=(buy.TakeProfit()>class="num">0 ? NormalizeDouble(price+(buy.TakeProfit()-buy.PriceOpen()),Digits()) : class="num">0);
      class=class="str">"cmt">//--- If the calculated price is below the StopLevel distance based on Ask order price(the distance by StopLevel is maintained)
      if(price<tick.ask-stop_level)
        {
         class=class="str">"cmt">//--- If the calculated price exceeds the trailing step based on the order placement price, modify the order price
         if(price>buy.PriceOpen()+trailing_step)
           {
            trade.OrderModify(buy.Ticket(),price,sl,tp,trade.RequestTypeTime(),trade.RequestExpiration(),buy.PriceStopLimit());
           }
        }
     }
   class=class="str">"cmt">//--- If the order exceeds the price(BuyStop and BuyStopLimit), and it should be "decreased" following the price
   else
     {
      class=class="str">"cmt">//--- Calculate the new order price and stop levels based on it
      class="type">class="kw">double price=NormalizeDouble(tick.ask+trailing_stop,Digits());
      class="type">class="kw">double sl=(buy.StopLoss()>class="num">0 ? NormalizeDouble(price-(buy.PriceOpen()-buy.StopLoss()),Digits()) : class="num">0);
      class="type">class="kw">double tp=(buy.TakeProfit()>class="num">0 ? NormalizeDouble(price+(buy.TakeProfit()-buy.PriceOpen()),Digits()) : class="num">0);
      class=class="str">"cmt">//--- If the calculated price exceeds the StopLevel based on Ask order price(the distance by StopLevel is maintained)
      if(price>tick.ask+stop_level)
        {
         class=class="str">"cmt">//--- If the calculated price is lower than the trailing step based on order price, modify the order price
         if(price<buy.PriceOpen()-trailing_step)
           {
            trade.OrderModify(buy.Ticket(),price,sl,tp,trade.RequestTypeTime(),trade.RequestExpiration(),(buy.PriceStopLimit()>class="num">0 ? price-distance_stoplimit*Point() : class="num">0));
           }
        }
     }
class=class="str">"cmt">//--- Select only Sell order from the list
   CArrayObj* list_sell=CSelect::ByOrderProperty(list,ORDER_PROP_DIRECTION,ORDER_TYPE_SELL,EQUAL);

  class=class="str">"cmt">//--- Sort the list by the distance from the price in points(by profit in points)
  list_sell.Sort(SORT_BY_ORDER_PROFIT_PT);
  class=class="str">"cmt">//--- Get the index of the Sell order having the greatest distance
  class="type">int index_sell=CSelect::FindOrderMax(list_sell,ORDER_PROP_PROFIT_PT);
  if(index_sell>WRONG_VALUE)
    {
      COrder* sell=list_sell.At(index_sell);
      if(sell!=NULL)
        {
         class=class="str">"cmt">//--- If the order exceeds the price(SellLimit), and it needs to be "decreased" following the price
         if(sell.TypeOrder()==ORDER_TYPE_SELL_LIMIT)
           {
            class=class="str">"cmt">//--- Calculate the new order price and stop levels based on it
            class="type">class="kw">double price=NormalizeDouble(tick.bid+trailing_stop,Digits());
            class="type">class="kw">double sl=(sell.StopLoss()>class="num">0 ? NormalizeDouble(price+(sell.StopLoss()-sell.PriceOpen()),Digits()) : class="num">0);
            class="type">class="kw">double tp=(sell.TakeProfit()>class="num">0 ? NormalizeDouble(price-(sell.PriceOpen()-sell.TakeProfit()),Digits()) : class="num">0);
            class=class="str">"cmt">//--- If the calculated price exceeds the StopLevel distance based on the Bid order price(the distance by StopLevel is maintained)
            if(price>tick.bid+stop_level)
              {
               class=class="str">"cmt">//--- If the calculated price is below the trailing step based on the order price, modify the order price
               if(price<sell.PriceOpen()-trailing_step)
                 {
                  trade.OrderModify(sell.Ticket(),price,sl,tp,trade.RequestTypeTime(),trade.RequestExpiration(),sell.PriceStopLimit());
                 }
              }
           }
         class=class="str">"cmt">//--- If the order is below the price(SellStop and SellStopLimit), and it should be "elevated" following the price
         else
           {
            class=class="str">"cmt">//--- Calculate the new order price and stop levels based on it
            class="type">class="kw">double price=NormalizeDouble(tick.bid-trailing_stop,Digits());
            class="type">class="kw">double sl=(sell.StopLoss()>class="num">0 ? NormalizeDouble(price+(sell.StopLoss()-sell.PriceOpen()),Digits()) : class="num">0);
            class="type">class="kw">double tp=(sell.TakeProfit()>class="num">0 ? NormalizeDouble(price-(sell.PriceOpen()-sell.TakeProfit()),Digits()) : class="num">0);
            class=class="str">"cmt">//--- If the calculated price is below the StopLevel distance based on the Bid order price(the distance by StopLevel is maintained)
            if(price<tick.bid-stop_level)
              {
               class=class="str">"cmt">//--- If the calculated price exceeds the trailing step based on the order price, modify the order price
               if(price>sell.PriceOpen()+trailing_step)
                 {

trade.OrderModify(sell.Ticket(),price,sl,tp,trade.RequestTypeTime(),trade.RequestExpiration(),(sell.PriceStopLimit()>class="num">0 ? price+distance_stoplimit*Point() : class="num">0));
}
}
}
}
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Expert tick function                                             |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void OnTick()
  {
class=class="str">"cmt">//--- Initialize the last trading event
   class="kw">static ENUM_TRADE_EVENT last_event=WRONG_VALUE;
class=class="str">"cmt">//--- If working in the tester
   if(MQLInfoInteger(MQL_TESTER))
     {
      engine.OnTimer();
      PressButtonsControl();
     }
class=class="str">"cmt">//--- If the last trading event changed
   if(engine.LastTradeEvent()!=last_event)
     {
      last_event=engine.LastTradeEvent();
     }
class=class="str">"cmt">//--- If the trailing flag is set
   if(trailing_on)
     {
      TrailingPositions();
      TrailingOrders();   
     }
  }

class="kw">input class="type">class="kw">double   InpLots            =  class="num">0.1;   class=class="str">"cmt">// Lots
class="kw">input class="type">uint     InpStopLoss        =  class="num">50;    class=class="str">"cmt">// StopLoss in points
class="kw">input class="type">uint     InpTakeProfit      =  class="num">50;    class=class="str">"cmt">// TakeProfit in points
class="kw">input class="type">uint     InpDistance        =  class="num">50;    class=class="str">"cmt">// Pending orders distance(points)
class="kw">input class="type">uint     InpDistanceSL      =  class="num">50;    class=class="str">"cmt">// StopLimit orders distance(points)
class="kw">input class="type">uint     InpSlippage        =  class="num">0;     class=class="str">"cmt">// Slippage in points
class="kw">input class="type">class="kw">double   InpWithdrawal      =  class="num">10;    class=class="str">"cmt">// Withdrawal funds(in tester)
class="kw">input class="type">uint     InpButtShiftX      =  class="num">40;    class=class="str">"cmt">// Buttons X shift 
class="kw">input class="type">uint     InpButtShiftY      =  class="num">10;    class=class="str">"cmt">// Buttons Y shift 
class="kw">input class="type">uint     InpTrailingStop    =  class="num">50;    class=class="str">"cmt">// Trailing Stop(points)
class="kw">input class="type">uint     InpTrailingStep    =  class="num">20;    class=class="str">"cmt">// Trailing Step(points)
class="kw">input class="type">uint     InpTrailingStart   =  class="num">0;     class=class="str">"cmt">// Trailing Start(points)
class="kw">input class="type">uint     InpStopLossModify  =  class="num">20;    class=class="str">"cmt">// StopLoss for modification(points)
class="kw">input class="type">uint     InpTakeProfitModify=  class="num">60;    class=class="str">"cmt">// TakeProfit for modification(points)
class=class="str">"cmt">//--- global variables
CEngine        engine;
CTrade         trade;
SDataButt      butt_data[TOTAL_BUTT];
class="type">class="kw">string         prefix;
class="type">class="kw">double         lot;
class="type">class="kw">double         withdrawal=(InpWithdrawal<class="num">0.1 ? class="num">0.1 : InpWithdrawal);
class="type">class="kw">ulong          magic_number;
class="type">uint           stoploss;
class="type">uint           takeprofit;
class="type">uint           distance_pending;
class="type">uint           distance_stoplimit;
class="type">uint           slippage;
class="type">bool           trailing_on;
class="type">class="kw">double         trailing_stop;
class="type">class="kw">double         trailing_step;
class="type">uint           trailing_start;
class="type">uint           stoploss_to_modify;
class="type">uint           takeprofit_to_modify;
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Expert initialization function                                     |

class="type">int OnInit()
  {
class=class="str">"cmt">//--- Calling the function displays the list of enumeration constants in the journal, 
class=class="str">"cmt">//--- (the list is set in the strings class="num">22 and class="num">25 of the DELib.mqh file) for checking the constants validity
   class=class="str">"cmt">//EnumNumbersTest();
class=class="str">"cmt">//--- check for undeleted objects
   if(IsPresentObects(prefix))
      ObjectsDeleteAll(class="num">0,prefix);
class=class="str">"cmt">//--- set global variables
   prefix=MQLInfoString(MQL_PROGRAM_NAME)+"_";
   for(class="type">int i=class="num">0;i<TOTAL_BUTT;i++)
     {
      butt_data[i].name=prefix+EnumToString((ENUM_BUTTONS)i);
      butt_data[i].text=EnumToButtText((ENUM_BUTTONS)i);
     }
   lot=NormalizeLot(Symbol(),fmax(InpLots,MinimumLots(Symbol())*class="num">2.0));
   magic_number=InpMagic;
   stoploss=InpStopLoss;
   takeprofit=InpTakeProfit;
   distance_pending=InpDistance;
   distance_stoplimit=InpDistanceSL;
   slippage=InpSlippage;
   trailing_stop=InpTrailingStop*Point();
   trailing_step=InpTrailingStep*Point();
   trailing_start=InpTrailingStart;
   stoploss_to_modify=InpStopLossModify;
   takeprofit_to_modify=InpTakeProfitModify;
class=class="str">"cmt">//--- create buttons
   if(!CreateButtons(InpButtShiftX,InpButtShiftY))
      class="kw">return INIT_FAILED;
class=class="str">"cmt">//--- set button trailing
   ButtonState(butt_data[TOTAL_BUTT-class="num">1].name,trailing_on);
class=class="str">"cmt">//--- setting trade parameters
   trade.SetDeviationInPoints(slippage);
   trade.SetExpertMagicNumber(magic_number);
   trade.SetTypeFillingBySymbol(Symbol());
   trade.SetMarginMode();
   trade.LogLevel(LOG_LEVEL_NO);
class=class="str">"cmt">//---
   class="kw">return(INIT_SUCCEEDED);
  }
class="type">void OnDeinit(class="kw">const class="type">int reason)
  {
class=class="str">"cmt">//--- class="kw">delete objects
   ObjectsDeleteAll(class="num">0,prefix);
   Comment("");
  }
class="type">void OnTick()
  {
class=class="str">"cmt">//--- Initialize the last trading event
   class="kw">static ENUM_TRADE_EVENT last_event=WRONG_VALUE;
class=class="str">"cmt">//--- If working in the tester
   if(MQLInfoInteger(MQL_TESTER))
     {
      engine.OnTimer();
      PressButtonsControl();
     }
class=class="str">"cmt">//--- If the last trading event changed
   if(engine.LastTradeEvent()!=last_event)
     {
      last_event=engine.LastTradeEvent();
     }
class=class="str">"cmt">//--- If the trailing flag is set
   if(trailing_on)
     {
      TrailingPositions();
      TrailingOrders();
     }
   }

class="type">void OnTimer()
  {
   if(!MQLInfoInteger(MQL_TESTER))
       engine.OnTimer();
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| ChartEvent function                                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void OnChartEvent(class="kw">const class="type">int id,
                  class="kw">const class="type">long &lparam,
                  class="kw">const class="type">class="kw">double &dparam,
                  class="kw">const class="type">class="kw">string &sparam)
  {
   if(MQLInfoInteger(MQL_TESTER))
      class="kw">return;
   if(id==CHARTEVENT_OBJECT_CLICK && StringFind(sparam,"BUTT_")>class="num">0)
     {
      PressButtonEvents(sparam);
     }
   if(id>=CHARTEVENT_CUSTOM)
     {
      class="type">class="kw">ushort event=class="type">class="kw">ushort(id-CHARTEVENT_CUSTOM);
      Print(DFUN,"id=",id,", event=",EnumToString((ENUM_TRADE_EVENT)event),", lparam=",lparam,", dparam=",DoubleToString(dparam,Digits()),", sparam=",sparam);
     }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the flag of a prefixed object presence                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool IsPresentObects(class="kw">const class="type">class="kw">string object_prefix)
  {
   for(class="type">int i=ObjectsTotal(class="num">0)-class="num">1;i>=class="num">0;i--)
      if(StringFind(ObjectName(class="num">0,i,class="num">0),object_prefix)>WRONG_VALUE)
         class="kw">return true;
   class="kw">return class="kw">false;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Tracking the buttons&class="macro">#x27; status                                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void PressButtonsControl(class="type">void)
  {
   class="type">int total=ObjectsTotal(class="num">0);
   for(class="type">int i=class="num">0;i<total;i++)
     {
      class="type">class="kw">string obj_name=ObjectName(class="num">0,i);
      if(StringFind(obj_name,prefix+"BUTT_")<class="num">0)
         class="kw">continue;
      PressButtonEvents(obj_name);
     }
  }

class="type">bool CreateButtons(class="kw">const class="type">int shift_x=class="num">30,class="kw">const class="type">int shift_y=class="num">0)
  {
   class="type">int h=class="num">18,w=class="num">84,offset=class="num">2;
   class="type">int cx=offset+shift_x,cy=offset+shift_y+(h+class="num">1)*(TOTAL_BUTT/class="num">2)+class="num">3*h+class="num">1;
   class="type">int x=cx,y=cy;
   class="type">int shift=class="num">0;
   for(class="type">int i=class="num">0;i<TOTAL_BUTT;i++)
     {
      x=x+(i==class="num">7 ? w+class="num">2 : class="num">0);
      if(i==TOTAL_BUTT-class="num">6) x=cx;
      y=(cy-(i-(i>class="num">6 ? class="num">7 : class="num">0))*(h+class="num">1));
      if(!ButtonCreate(butt_data[i].name,x,y,(i<TOTAL_BUTT-class="num">6 ? w : w*class="num">2+class="num">2),h,butt_data[i].text,(i<class="num">4 ? clrGreen : i>class="num">6 && i<class="num">11 ? clrRed : clrBlue)))
        {
         Alert(TextByLanguage("Не удалось создать кнопку "","Could not create button "));
         class="kw">return class="kw">false;
        }
     }
   ChartRedraw(class="num">0);
   class="kw">return true;
  }

class="type">bool ButtonCreate(class="kw">const class="type">class="kw">string name,class="kw">const class="type">int x,class="kw">const class="type">int y,class="kw">const class="type">int w,class="kw">const class="type">int h,class="kw">const class="type">class="kw">string text,class="kw">const class="type">class="kw">color clr,class="kw">const class="type">class="kw">string font="Calibri",class="kw">const class="type">int font_size=class="num">8)
  {
   if(ObjectFind(class="num">0,name)<class="num">0)
     {
      if(!ObjectCreate(class="num">0,name,OBJ_BUTTON,class="num">0,class="num">0,class="num">0))
        {
         Print(DFUN,TextByLanguage("не удалось создать кнопку! Код ошибки=","Could not create button! Error code="),GetLastError());
         class="kw">return class="kw">false;
        }
      ObjectSetInteger(class="num">0,name,OBJPROP_SELECTABLE,class="kw">false);
      ObjectSetInteger(class="num">0,name,OBJPROP_HIDDEN,true);
      ObjectSetInteger(class="num">0,name,OBJPROP_XDISTANCE,x);
      ObjectSetInteger(class="num">0,name,OBJPROP_YDISTANCE,y);

ObjectSetInteger(class="num">0,name,OBJPROP_XSIZE,w);
ObjectSetInteger(class="num">0,name,OBJPROP_YSIZE,h);
ObjectSetInteger(class="num">0,name,OBJPROP_CORNER,CORNER_LEFT_LOWER);
ObjectSetInteger(class="num">0,name,OBJPROP_ANCHOR,ANCHOR_LEFT_LOWER);
ObjectSetInteger(class="num">0,name,OBJPROP_FONTSIZE,font_size);
ObjectSetString(class="num">0,name,OBJPROP_FONT,font);
ObjectSetString(class="num">0,name,OBJPROP_TEXT,text);
ObjectSetInteger(class="num">0,name,OBJPROP_COLOR,clr);
ObjectSetString(class="num">0,name,OBJPROP_TOOLTIP,"\n");
ObjectSetInteger(class="num">0,name,OBJPROP_BORDER_COLOR,clrGray);
class="kw">return true;
   }
 class="kw">return class="kw">false;
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the button status                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool ButtonState(class="kw">const class="type">class="kw">string name)
  {
   class="kw">return (class="type">bool)ObjectGetInteger(class="num">0,name,OBJPROP_STATE);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Set the button status                                             |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void ButtonState(class="kw">const class="type">class="kw">string name,class="kw">const class="type">bool state)
  {
   ObjectSetInteger(class="num">0,name,OBJPROP_STATE,state);
   if(name==butt_data[TOTAL_BUTT-class="num">1].name)
     {
      if(state)
         ObjectSetInteger(class="num">0,name,OBJPROP_BGCOLOR,C&class="macro">#x27;class="num">220,class="num">255,class="num">240&class="macro">#x27;);
      else
         ObjectSetInteger(class="num">0,name,OBJPROP_BGCOLOR,C&class="macro">#x27;class="num">240,class="num">240,class="num">240&class="macro">#x27;);
     }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Transform enumeration into the button text                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string EnumToButtText(class="kw">const ENUM_BUTTONS member)
  {
   class="type">class="kw">string txt=StringSubstr(EnumToString(member),class="num">5);
   StringToLower(txt);
   StringReplace(txt,"set_take_profit","Set TakeProfit");
   StringReplace(txt,"set_stop_loss","Set StopLoss");
   StringReplace(txt,"trailing_all","Trailing All");
   StringReplace(txt,"buy","Buy");
   StringReplace(txt,"sell","Sell");

class="type">class="kw">string button=StringSubstr(button_name,StringLen(prefix));
if(ButtonState(button_name))
  {
  if(button==EnumToString(BUTT_BUY))
    {
    class="type">class="kw">double sl=CorrectStopLoss(Symbol(),ORDER_TYPE_BUY,class="num">0,stoploss);
    class="type">class="kw">double tp=CorrectTakeProfit(Symbol(),ORDER_TYPE_BUY,class="num">0,takeprofit);
    trade.Buy(NormalizeLot(Symbol(),lot),Symbol(),class="num">0,sl,tp);
    }
  else if(button==EnumToString(BUTT_BUY_LIMIT))
    {
    class="type">class="kw">double price_set=CorrectPricePending(Symbol(),ORDER_TYPE_BUY_LIMIT,distance_pending);
    class="type">class="kw">double sl=CorrectStopLoss(Symbol(),ORDER_TYPE_BUY_LIMIT,price_set,stoploss);
    class="type">class="kw">double tp=CorrectTakeProfit(Symbol(),ORDER_TYPE_BUY_LIMIT,price_set,takeprofit);
    trade.BuyLimit(lot,price_set,Symbol(),sl,tp);
    }
  else if(button==EnumToString(BUTT_BUY_STOP))
    {
    class="type">class="kw">double price_set=CorrectPricePending(Symbol(),ORDER_TYPE_BUY_STOP,distance_pending);
    class="type">class="kw">double sl=CorrectStopLoss(Symbol(),ORDER_TYPE_BUY_STOP,price_set,stoploss);
    class="type">class="kw">double tp=CorrectTakeProfit(Symbol(),ORDER_TYPE_BUY_STOP,price_set,takeprofit);
    trade.BuyStop(lot,price_set,Symbol(),sl,tp);
    }

class="type">class="kw">double tp=CorrectTakeProfit(Symbol(),ORDER_TYPE_BUY_STOP,price_set,takeprofit);
class=class="str">"cmt">//--- Set BuyStop order
trade.BuyStop(lot,price_set,Symbol(),sl,tp);
}
class=class="str">"cmt">//--- If the BUTT_BUY_STOP_LIMIT button is pressed: Set BuyStopLimit
else if(button==EnumToString(BUTT_BUY_STOP_LIMIT))
  {
  class=class="str">"cmt">//--- Get the correct BuyStop order placement price relative to StopLevel
  class="type">class="kw">double price_set_stop=CorrectPricePending(Symbol(),ORDER_TYPE_BUY_STOP,distance_pending);
  class=class="str">"cmt">//--- Calculate BuyLimit order price relative to BuyStop level considering StopLevel
  class="type">class="kw">double price_set_limit=CorrectPricePending(Symbol(),ORDER_TYPE_BUY_LIMIT,distance_stoplimit,price_set_stop);
  class=class="str">"cmt">//--- Get correct StopLoss and TakeProfit prices relative to the order placement level considering StopLevel
  class="type">class="kw">double sl=CorrectStopLoss(Symbol(),ORDER_TYPE_BUY_STOP,price_set_limit,stoploss);
  class="type">class="kw">double tp=CorrectTakeProfit(Symbol(),ORDER_TYPE_BUY_STOP,price_set_limit,takeprofit);
  class=class="str">"cmt">//--- Set BuyStopLimit order
  trade.OrderOpen(Symbol(),ORDER_TYPE_BUY_STOP_LIMIT,lot,price_set_limit,price_set_stop,sl,tp);
  }
class=class="str">"cmt">//--- If the BUTT_SELL button is pressed: Open Sell position
else if(button==EnumToString(BUTT_SELL))
  {
  class=class="str">"cmt">//--- Get the correct StopLoss and TakeProfit prices relative to StopLevel
  class="type">class="kw">double sl=CorrectStopLoss(Symbol(),ORDER_TYPE_SELL,class="num">0,stoploss);
  class="type">class="kw">double tp=CorrectTakeProfit(Symbol(),ORDER_TYPE_SELL,class="num">0,takeprofit);
  class=class="str">"cmt">//--- Open Sell position
  trade.Sell(lot,Symbol(),class="num">0,sl,tp);
  }
class=class="str">"cmt">//--- If the BUTT_SELL_LIMIT button is pressed: Set SellLimit
else if(button==EnumToString(BUTT_SELL_LIMIT))
  {
  class=class="str">"cmt">//--- Get correct order placement relative to StopLevel
  class="type">class="kw">double price_set=CorrectPricePending(Symbol(),ORDER_TYPE_SELL_LIMIT,distance_pending);
  class=class="str">"cmt">//--- Get correct StopLoss and TakeProfit prices relative to the order placement level considering StopLevel
  class="type">class="kw">double sl=CorrectStopLoss(Symbol(),ORDER_TYPE_SELL_LIMIT,price_set,stoploss);
  class="type">class="kw">double tp=CorrectTakeProfit(Symbol(),ORDER_TYPE_SELL_LIMIT,price_set,takeprofit);
  class=class="str">"cmt">//--- Set SellLimit order
  trade.SellLimit(lot,price_set,Symbol(),sl,tp);
  }
class=class="str">"cmt">//--- If the BUTT_SELL_STOP button is pressed: Set SellStop
else if(button==EnumToString(BUTT_SELL_STOP))
  {
  class=class="str">"cmt">//--- Get correct order placement relative to StopLevel

class="type">class="kw">double price_set=CorrectPricePending(Symbol(),ORDER_TYPE_SELL_STOP,distance_pending);
class=class="str">"cmt">//--- Get correct StopLoss and TakeProfit prices relative to the order placement level considering StopLevel
class="type">class="kw">double sl=CorrectStopLoss(Symbol(),ORDER_TYPE_SELL_STOP,price_set,stoploss);
class="type">class="kw">double tp=CorrectTakeProfit(Symbol(),ORDER_TYPE_SELL_STOP,price_set,takeprofit);
class=class="str">"cmt">//--- Set SellStop order
trade.SellStop(lot,price_set,Symbol(),sl,tp);
}
class=class="str">"cmt">//--- If the BUTT_SELL_STOP_LIMIT button is pressed: Set SellStopLimit
else if(button==EnumToString(BUTT_SELL_STOP_LIMIT))
  {
  class=class="str">"cmt">//--- Get the correct SellStop order price relative to StopLevel
  class="type">class="kw">double price_set_stop=CorrectPricePending(Symbol(),ORDER_TYPE_SELL_STOP,distance_pending);
  class=class="str">"cmt">//--- Calculate SellLimit order price relative to SellStop level considering StopLevel
  class="type">class="kw">double price_set_limit=CorrectPricePending(Symbol(),ORDER_TYPE_SELL_LIMIT,distance_stoplimit,price_set_stop);
  class=class="str">"cmt">//--- Get correct StopLoss and TakeProfit prices relative to the order placement level considering StopLevel
  class="type">class="kw">double sl=CorrectStopLoss(Symbol(),ORDER_TYPE_SELL_STOP,price_set_limit,stoploss);
  class="type">class="kw">double tp=CorrectTakeProfit(Symbol(),ORDER_TYPE_SELL_STOP,price_set_limit,takeprofit);
  class=class="str">"cmt">//--- Set SellStopLimit order
  trade.OrderOpen(Symbol(),ORDER_TYPE_SELL_STOP_LIMIT,lot,price_set_limit,price_set_stop,sl,tp);
  }
class=class="str">"cmt">//--- If the BUTT_CLOSE_BUY button is pressed: Close Buy with the maximum profit
else if(button==EnumToString(BUTT_CLOSE_BUY))
  {
  class=class="str">"cmt">//--- Get the list of all open positions
  CArrayObj* list=engine.GetListMarketPosition();
  class=class="str">"cmt">//--- Select only Buy positions from the list
  list=CSelect::ByOrderProperty(list,ORDER_PROP_TYPE,POSITION_TYPE_BUY,EQUAL);
  class=class="str">"cmt">//--- Sort the list by profit considering commission and swap
  list.Sort(SORT_BY_ORDER_PROFIT_FULL);
  class=class="str">"cmt">//--- Get the index of the Buy position with the maximum profit
  class="type">int index=CSelect::FindOrderMax(list,ORDER_PROP_PROFIT_FULL);
  if(index>WRONG_VALUE)
    {
    COrder* position=list.At(index);
    if(position!=NULL)
      {
      class=class="str">"cmt">//--- Get the Buy position ticket and close the position by the ticket
      trade.PositionClose(position.Ticket());
      }
    }
  }
class=class="str">"cmt">//--- If the BUTT_CLOSE_BUY2 button is pressed: Close the half of the Buy with the maximum profit
else if(button==EnumToString(BUTT_CLOSE_BUY2))

{
 class=class="str">"cmt">//--- Get the list of all open positions
 CArrayObj* list=engine.GetListMarketPosition();
 class=class="str">"cmt">//--- Select only Buy positions from the list
 list=CSelect::ByOrderProperty(list,ORDER_PROP_TYPE,POSITION_TYPE_BUY,EQUAL);
 class=class="str">"cmt">//--- Sort the list by profit considering commission and swap
 list.Sort(SORT_BY_ORDER_PROFIT_FULL);
 class=class="str">"cmt">//--- Get the index of the Buy position with the maximum profit
 class="type">int index=CSelect::FindOrderMax(list,ORDER_PROP_PROFIT_FULL);
 if(index>WRONG_VALUE)
   {
   COrder* position=list.At(index);
   if(position!=NULL)
     {
     class=class="str">"cmt">//--- Calculate the closed volume and close the half of the Buy position by the ticket
     if(engine.IsHedge())
       trade.PositionClosePartial(position.Ticket(),NormalizeLot(position.Symbol(),position.Volume()/class="num">2.0));
     else
       trade.Sell(NormalizeLot(position.Symbol(),position.Volume()/class="num">2.0));
     }
   }
}
class=class="str">"cmt">//--- If the BUTT_CLOSE_BUY_BY_SELL button is pressed: Close Buy with the maximum profit by the opposite Sell with the maximum profit
else if(button==EnumToString(BUTT_CLOSE_BUY_BY_SELL))
  {
  class=class="str">"cmt">//--- Get the list of all open positions
  CArrayObj* list_buy=engine.GetListMarketPosition();
  class=class="str">"cmt">//--- Select only Buy positions from the list
  list_buy=CSelect::ByOrderProperty(list_buy,ORDER_PROP_TYPE,POSITION_TYPE_BUY,EQUAL);
  class=class="str">"cmt">//--- Sort the list by profit considering commission and swap
  list_buy.Sort(SORT_BY_ORDER_PROFIT_FULL);
  class=class="str">"cmt">//--- Get the index of the Buy position with the maximum profit
  class="type">int index_buy=CSelect::FindOrderMax(list_buy,ORDER_PROP_PROFIT_FULL);
  class=class="str">"cmt">//--- Get the list of all open positions
  CArrayObj* list_sell=engine.GetListMarketPosition();
  class=class="str">"cmt">//--- Select only Sell positions from the list
  list_sell=CSelect::ByOrderProperty(list_sell,ORDER_PROP_TYPE,POSITION_TYPE_SELL,EQUAL);
  class=class="str">"cmt">//--- Sort the list by profit considering commission and swap
  list_sell.Sort(SORT_BY_ORDER_PROFIT_FULL);
  class=class="str">"cmt">//--- Get the index of the Sell position with the maximum profit
  class="type">int index_sell=CSelect::FindOrderMax(list_sell,ORDER_PROP_PROFIT_FULL);
  if(index_buy>WRONG_VALUE && index_sell>WRONG_VALUE)
    {
    class=class="str">"cmt">//--- Select the Buy position with the maximum profit
    COrder* position_buy=list_buy.At(index_buy);
    class=class="str">"cmt">//--- Select the Sell position with the maximum profit
    COrder* position_sell=list_sell.At(index_sell);

if(position_buy!=NULL && position_sell!=NULL)
  {
   class=class="str">"cmt">//--- Close the Buy position by the opposite Sell one
   trade.PositionCloseBy(position_buy.Ticket(),position_sell.Ticket());
  }
 }
}
class=class="str">"cmt">//--- If the BUTT_CLOSE_SELL button is pressed: Close Sell with the maximum profit
else if(button==EnumToString(BUTT_CLOSE_SELL))
  {
   class=class="str">"cmt">//--- Get the list of all open positions
   CArrayObj* list=engine.GetListMarketPosition();
   class=class="str">"cmt">//--- Select only Sell positions from the list
   list=CSelect::ByOrderProperty(list,ORDER_PROP_TYPE,POSITION_TYPE_SELL,EQUAL);
   class=class="str">"cmt">//--- Sort the list by profit considering commission and swap
   list.Sort(SORT_BY_ORDER_PROFIT_FULL);
   class=class="str">"cmt">//--- Get the index of the Sell position with the maximum profit
   class="type">int index=CSelect::FindOrderMax(list,ORDER_PROP_PROFIT_FULL);
   if(index>WRONG_VALUE)
     {
      COrder* position=list.At(index);
      if(position!=NULL)
        {
         class=class="str">"cmt">//--- Get the Sell position ticket and close the position by the ticket
         trade.PositionClose(position.Ticket());
        }
     }
   }
class=class="str">"cmt">//--- If the BUTT_CLOSE_SELL2 button is pressed: Close the half of the Sell with the maximum profit
else if(button==EnumToString(BUTT_CLOSE_SELL2))
  {
   class=class="str">"cmt">//--- Get the list of all open positions
   CArrayObj* list=engine.GetListMarketPosition();
   class=class="str">"cmt">//--- Select only Sell positions from the list
   list=CSelect::ByOrderProperty(list,ORDER_PROP_TYPE,POSITION_TYPE_SELL,EQUAL);
   class=class="str">"cmt">//--- Sort the list by profit considering commission and swap
   list.Sort(SORT_BY_ORDER_PROFIT_FULL);
   class=class="str">"cmt">//--- Get the index of the Sell position with the maximum profit
   class="type">int index=CSelect::FindOrderMax(list,ORDER_PROP_PROFIT_FULL);
   if(index>WRONG_VALUE)
     {
      COrder* position=list.At(index);
      if(position!=NULL)
        {
         class=class="str">"cmt">//--- Calculate the closed volume and close the half of the Sell position by the ticket
         if(engine.IsHedge())
            trade.PositionClosePartial(position.Ticket(),NormalizeLot(position.Symbol(),position.Volume()/class="num">2.0));
         else

else if(button==EnumToString(BUTT_CLOSE_SELL_BY_BUY))
  {
   CArrayObj* list_sell=engine.GetListMarketPosition();
   list_sell=CSelect::ByOrderProperty(list_sell,ORDER_PROP_TYPE,POSITION_TYPE_SELL,EQUAL);
   list_sell.Sort(SORT_BY_ORDER_PROFIT_FULL);
   class="type">int index_sell=CSelect::FindOrderMax(list_sell,ORDER_PROP_PROFIT_FULL);
   CArrayObj* list_buy=engine.GetListMarketPosition();
   list_buy=CSelect::ByOrderProperty(list_buy,ORDER_PROP_TYPE,POSITION_TYPE_BUY,EQUAL);
   list_buy.Sort(SORT_BY_ORDER_PROFIT_FULL);
   class="type">int index_buy=CSelect::FindOrderMax(list_buy,ORDER_PROP_PROFIT_FULL);
   if(index_sell>WRONG_VALUE && index_buy>WRONG_VALUE)
     {
      COrder* position_sell=list_sell.At(index_sell);
      COrder* position_buy=list_buy.At(index_buy);
      if(position_sell!=NULL && position_buy!=NULL)
        {
         trade.PositionCloseBy(position_sell.Ticket(),position_buy.Ticket());
        }
     }
   }

for(class="type">int i=class="num">0;i<total;i++)
  {
   COrder* position=list.At(i);
   if(position==NULL)
     class="kw">continue;
   class=class="str">"cmt">//--- close each position by its ticket
   trade.PositionClose(position.Ticket());
  }
 }
}
class=class="str">"cmt">//--- If the BUTT_DELETE_PENDING button is pressed: Remove the first pending order
else if(button==EnumToString(BUTT_DELETE_PENDING))
  {
   class=class="str">"cmt">//--- Get the list of all orders
   CArrayObj* list=engine.GetListMarketPendings();
   if(list!=NULL)
     {
      class=class="str">"cmt">//--- Sort the list by placement time
      list.Sort(SORT_BY_ORDER_TIME_OPEN_MSC);
      class="type">int total=list.Total();
      class=class="str">"cmt">//--- In the loop from the position with the most amount of time
      for(class="type">int i=total-class="num">1;i>=class="num">0;i--)
        {
         COrder* order=list.At(i);
         if(order==NULL)
           class="kw">continue;
         class=class="str">"cmt">//--- class="kw">delete the order by its ticket
         trade.OrderDelete(order.Ticket());
        }
     }
   }
class=class="str">"cmt">//--- If the BUTT_PROFIT_WITHDRAWAL button is pressed: Withdraw funds from the account
if(button==EnumToString(BUTT_PROFIT_WITHDRAWAL))
  {
   class=class="str">"cmt">//--- If the program is launched in the tester
   if(MQLInfoInteger(MQL_TESTER))
     {
      class=class="str">"cmt">//--- Emulate funds withdrawal
      TesterWithdrawal(withdrawal);
     }
   }
class=class="str">"cmt">//--- If the BUTT_SET_STOP_LOSS button is pressed: Place StopLoss to all orders and positions where it is not present
if(button==EnumToString(BUTT_SET_STOP_LOSS))
  {
   SetStopLoss();
   }
class=class="str">"cmt">//--- If the BUTT_SET_TAKE_PROFIT button is pressed: Place TakeProfit to all orders and positions where it is not present
if(button==EnumToString(BUTT_SET_TAKE_PROFIT))
  {
   SetTakeProfit();
   }
class=class="str">"cmt">//--- Wait for class="num">1/class="num">10 of a second
Sleep(class="num">100);

  class=class="str">"cmt">//--- "Unpress" the button(if this is not a trailing button)
  if(button!=EnumToString(BUTT_TRAILING_ALL))
     ButtonState(button_name,class="kw">false);
  class=class="str">"cmt">//--- If the BUTT_TRAILING_ALL button is pressed
  else
    {
    class=class="str">"cmt">//--- Set the class="type">class="kw">color of the active button
    ButtonState(button_name,true);
    trailing_on=true;
    }
  class=class="str">"cmt">//--- re-draw the chart
  ChartRedraw();
   }
  class=class="str">"cmt">//--- Return the inactive button class="type">class="kw">color (if this is a trailing button)
  else if(button==EnumToString(BUTT_TRAILING_ALL))
   {
   ButtonState(button_name,class="kw">false);
   trailing_on=class="kw">false;
   class=class="str">"cmt">//--- re-draw the chart
   ChartRedraw();
   }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Set StopLoss to all orders and positions                         |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void SetStopLoss(class="type">void)
  {
  if(stoploss_to_modify==class="num">0)
    class="kw">return;
class=class="str">"cmt">//--- Set StopLoss to all positions where it is absent
  CArrayObj* list=engine.GetListMarketPosition();
  list=CSelect::ByOrderProperty(list,ORDER_PROP_SL,class="num">0,EQUAL);
  if(list==NULL)
    class="kw">return;
  class="type">int total=list.Total();
  for(class="type">int i=total-class="num">1;i>=class="num">0;i--)
   {
   COrder* position=list.At(i);
   if(position==NULL)
     class="kw">continue;
   class="type">class="kw">double sl=CorrectStopLoss(position.Symbol(),position.TypeByDirection(),class="num">0,stoploss_to_modify);
   trade.PositionModify(position.Ticket(),sl,position.TakeProfit());
   }
class=class="str">"cmt">//--- Set StopLoss to all pending orders where it is absent
  list=engine.GetListMarketPendings();
  list=CSelect::ByOrderProperty(list,ORDER_PROP_SL,class="num">0,EQUAL);
  if(list==NULL)
    class="kw">return;
  total=list.Total();
  for(class="type">int i=total-class="num">1;i>=class="num">0;i--)
   {
   COrder* order=list.At(i);
   if(order==NULL)
     class="kw">continue;
   class="type">class="kw">double sl=CorrectStopLoss(order.Symbol(),(ENUM_ORDER_TYPE)order.TypeOrder(),order.PriceOpen(),stoploss_to_modify);
   trade.OrderModify(order.Ticket(),order.PriceOpen(),sl,order.TakeProfit(),trade.RequestTypeTime(),trade.RequestExpiration(),order.PriceStopLimit());
   }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Set TakeProfit to all orders and positions                       |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void SetTakeProfit(class="type">void)
  {
  if(takeprofit_to_modify==class="num">0)
    class="kw">return;
class=class="str">"cmt">//--- Set TakeProfit to all positions where it is absent
  CArrayObj* list=engine.GetListMarketPosition();
  list=CSelect::ByOrderProperty(list,ORDER_PROP_TP,class="num">0,EQUAL);

  if(list==NULL)
      class="kw">return;
   class="type">int total=list.Total();
   for(class="type">int i=total-class="num">1;i>=class="num">0;i--)
     {
      COrder* position=list.At(i);
      if(position==NULL)
         class="kw">continue;
      class="type">class="kw">double tp=CorrectTakeProfit(position.Symbol(),position.TypeByDirection(),class="num">0,takeprofit_to_modify);
      trade.PositionModify(position.Ticket(),position.StopLoss(),tp);
     }
class=class="str">"cmt">//--- Set TakeProfit to all pending orders where it is absent
   list=engine.GetListMarketPendings();
   list=CSelect::ByOrderProperty(list,ORDER_PROP_TP,class="num">0,EQUAL);
   if(list==NULL)
      class="kw">return;
   total=list.Total();
   for(class="type">int i=total-class="num">1;i>=class="num">0;i--)
     {
      COrder* order=list.At(i);
      if(order==NULL)
         class="kw">continue;
      class="type">class="kw">double tp=CorrectTakeProfit(order.Symbol(),(ENUM_ORDER_TYPE)order.TypeOrder(),order.PriceOpen(),takeprofit_to_modify);
      trade.OrderModify(order.Ticket(),order.PriceOpen(),order.StopLoss(),tp,trade.RequestTypeTime(),trade.RequestExpiration(),order.PriceStopLimit());
     }
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Trailing stop of a position with the maximum profit               |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void TrailingPositions(class="type">void)
  {
   class="type">MqlTick tick;
   if(!SymbolInfoTick(Symbol(),tick))
      class="kw">return;
   class="type">class="kw">double stop_level=StopLevel(Symbol(),class="num">2)*Point();
   class=class="str">"cmt">//--- Get the list of all open positions
   CArrayObj* list=engine.GetListMarketPosition();
   class=class="str">"cmt">//--- Select only Buy positions from the list
   CArrayObj* list_buy=CSelect::ByOrderProperty(list,ORDER_PROP_TYPE,POSITION_TYPE_BUY,EQUAL);
   class=class="str">"cmt">//--- Sort the list by profit considering commission and swap
   list_buy.Sort(SORT_BY_ORDER_PROFIT_FULL);
   class=class="str">"cmt">//--- Get the index of the Buy position with the maximum profit
   class="type">int index_buy=CSelect::FindOrderMax(list_buy,ORDER_PROP_PROFIT_FULL);
   if(index_buy>WRONG_VALUE)
     {
      COrder* buy=list_buy.At(index_buy);
      if(buy!=NULL)
        {
         class=class="str">"cmt">//--- Calculate the new StopLoss
         class="type">class="kw">double sl=NormalizeDouble(tick.bid-trailing_stop,Digits());
         class=class="str">"cmt">//--- If the price and the StopLevel based on it are higher than the new StopLoss(the distance by StopLevel is maintained)
         if(tick.bid-stop_level>sl)
           {
            class=class="str">"cmt">//--- If the new StopLoss level exceeds the trailing step based on the current StopLoss
            if(buy.StopLoss()+trailing_step<sl)
              {
               class=class="str">"cmt">//--- If we trail at any profit or position profit in points exceeds the trailing start, modify StopLoss
               if(trailing_start==class="num">0 || buy.ProfitInPoints()>(class="type">int)trailing_start)

      trade.PositionModify(buy.Ticket(),sl,buy.TakeProfit());
     }
   }
  }
 }
 class=class="str">"cmt">//--- Select only Sell positions from the list
 CArrayObj* list_sell=CSelect::ByOrderProperty(list,ORDER_PROP_TYPE,POSITION_TYPE_SELL,EQUAL);
 class=class="str">"cmt">//--- Sort the list by profit considering commission and swap
 list_sell.Sort(SORT_BY_ORDER_PROFIT_FULL);
 class=class="str">"cmt">//--- Get Sell position index with the maximum profit
 class="type">int index_sell=CSelect::FindOrderMax(list_sell,ORDER_PROP_PROFIT_FULL);
 if(index_sell>WRONG_VALUE)
  {
   COrder* sell=list_sell.At(index_sell);
   if(sell!=NULL)
     {
      class=class="str">"cmt">//--- Calculate the new StopLoss
      class="type">class="kw">double sl=NormalizeDouble(tick.ask+trailing_stop,Digits());
      class=class="str">"cmt">//--- If the price and StopLevel based on it are below the new (the distance by StopLevel is maintained)
      if(tick.ask+stop_level<sl)
        {
         class=class="str">"cmt">//--- If the new StopLoss level is below the trailing step based on the current StopLoss or a position has no StopLoss
         if(sell.StopLoss()-trailing_step>sl || sell.StopLoss()==class="num">0)
           {
            class=class="str">"cmt">//--- If we trail at any profit or position profit in points exceeds the trailing start value, modify StopLoss
            if(trailing_start==class="num">0 || sell.ProfitInPoints()>(class="type">int)trailing_start)
               trade.PositionModify(sell.Ticket(),sl,sell.TakeProfit());
           }
        }
     }
  }
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Trailing the farthest pending orders                             |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void TrailingOrders(class="type">void)
  {
   class="type">MqlTick tick;
   if(!SymbolInfoTick(Symbol(),tick))
      class="kw">return;
   class="type">class="kw">double stop_level=StopLevel(Symbol(),class="num">2)*Point();
class=class="str">"cmt">//--- Get the list of all placed orders
   CArrayObj* list=engine.GetListMarketPendings();
class=class="str">"cmt">//--- Select only Buy orders from the list
   CArrayObj* list_buy=CSelect::ByOrderProperty(list,ORDER_PROP_DIRECTION,ORDER_TYPE_BUY,EQUAL);
   class=class="str">"cmt">//--- Sort the list by distance from the price in points(by profit in points)
   list_buy.Sort(SORT_BY_ORDER_PROFIT_PT);
   class=class="str">"cmt">//--- Get the index of the Buy order with the greatest distance
   class="type">int index_buy=CSelect::FindOrderMax(list_buy,ORDER_PROP_PROFIT_PT);
   if(index_buy>WRONG_VALUE)
     {
      COrder* buy=list_buy.At(index_buy);
      if(buy!=NULL)
        {
         class=class="str">"cmt">//--- If the order is below the price(BuyLimit) and it should be "elevated" following the price
         if(buy.TypeOrder()==ORDER_TYPE_BUY_LIMIT)
           {
            class=class="str">"cmt">//--- Calculate the new order price and stop levels based on it

class="type">class="kw">double price=NormalizeDouble(tick.ask-trailing_stop,Digits());
class="type">class="kw">double sl=(buy.StopLoss()>class="num">0 ? NormalizeDouble(price-(buy.PriceOpen()-buy.StopLoss()),Digits()) : class="num">0);
class="type">class="kw">double tp=(buy.TakeProfit()>class="num">0 ? NormalizeDouble(price+(buy.TakeProfit()-buy.PriceOpen()),Digits()) : class="num">0);
class=class="str">"cmt">//--- If the calculated price is below the StopLevel distance based on Ask order price(the distance by StopLevel is maintained)
if(price<tick.ask-stop_level)
  {
   class=class="str">"cmt">//--- If the calculated price exceeds the trailing step based on the order placement price, modify the order price
   if(price>buy.PriceOpen()+trailing_step)
     {
      trade.OrderModify(buy.Ticket(),price,sl,tp,trade.RequestTypeTime(),trade.RequestExpiration(),buy.PriceStopLimit());
     }
  }
class=class="str">"cmt">//--- If the order exceeds the price(BuyStop and BuyStopLimit), and it should be "decreased" following the price
else
  {
   class=class="str">"cmt">//--- Calculate the new order price and stop levels based on it
   class="type">class="kw">double price=NormalizeDouble(tick.ask+trailing_stop,Digits());
   class="type">class="kw">double sl=(buy.StopLoss()>class="num">0 ? NormalizeDouble(price-(buy.PriceOpen()-buy.StopLoss()),Digits()) : class="num">0);
   class="type">class="kw">double tp=(buy.TakeProfit()>class="num">0 ? NormalizeDouble(price+(buy.TakeProfit()-buy.PriceOpen()),Digits()) : class="num">0);
   class=class="str">"cmt">//--- If the calculated price exceeds the StopLevel based on Ask order price(the distance by StopLevel is maintained)
   if(price>tick.ask+stop_level)
     {
      class=class="str">"cmt">//--- If the calculated price is lower than the trailing step based on order price, modify the order price
      if(price<buy.PriceOpen()-trailing_step)
        {
         trade.OrderModify(buy.Ticket(),price,sl,tp,trade.RequestTypeTime(),trade.RequestExpiration(),(buy.PriceStopLimit()>class="num">0 ? price-distance_stoplimit*Point() : class="num">0));
        }
     }
  }

COrder* sell=list_sell.At(index_sell);
if(sell!=NULL)
  {
   class=class="str">"cmt">//--- If the order exceeds the price(SellLimit), and it needs to be "decreased" following the price
   if(sell.TypeOrder()==ORDER_TYPE_SELL_LIMIT)
     {
      class=class="str">"cmt">//--- Calculate the new order price and stop levels based on it
      class="type">class="kw">double price=NormalizeDouble(tick.bid+trailing_stop,Digits());
      class="type">class="kw">double sl=(sell.StopLoss()>class="num">0 ? NormalizeDouble(price+(sell.StopLoss()-sell.PriceOpen()),Digits()) : class="num">0);
      class="type">class="kw">double tp=(sell.TakeProfit()>class="num">0 ? NormalizeDouble(price-(sell.PriceOpen()-sell.TakeProfit()),Digits()) : class="num">0);
      class=class="str">"cmt">//--- If the calculated price exceeds the StopLevel distance based on the Bid order price(the distance by StopLevel is maintained)
      if(price>tick.bid+stop_level)
        {
         class=class="str">"cmt">//--- If the calculated price is below the trailing step based on the order price, modify the order price
         if(price<sell.PriceOpen()-trailing_step)
           {
            trade.OrderModify(sell.Ticket(),price,sl,tp,trade.RequestTypeTime(),trade.RequestExpiration(),sell.PriceStopLimit());
           }
        }
     }
   class=class="str">"cmt">//--- If the order is below the price(SellStop and SellStopLimit), and it should be "elevated" following the price
   else
     {
      class=class="str">"cmt">//--- Calculate the new order price and stop levels based on it
      class="type">class="kw">double price=NormalizeDouble(tick.bid-trailing_stop,Digits());
      class="type">class="kw">double sl=(sell.StopLoss()>class="num">0 ? NormalizeDouble(price+(sell.StopLoss()-sell.PriceOpen()),Digits()) : class="num">0);
      class="type">class="kw">double tp=(sell.TakeProfit()>class="num">0 ? NormalizeDouble(price-(sell.PriceOpen()-sell.TakeProfit()),Digits()) : class="num">0);
      class=class="str">"cmt">//--- If the calculated price is below the StopLevel distance based on the Bid order price(the distance by StopLevel is maintained)
      if(price<tick.bid-stop_level)
        {
         class=class="str">"cmt">//--- If the calculated price exceeds the trailing step based on the order price, modify the order price
         if(price>sell.PriceOpen()+trailing_step)
           {
            trade.OrderModify(sell.Ticket(),price,sl,tp,trade.RequestTypeTime(),trade.RequestExpiration(),(sell.PriceStopLimit()>class="num">0 ? price+distance_stoplimit*Point() : class="num">0));
           }
        }
     }
  }

   }
    }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+