如何不通过翻找历史交易记录直接在图表上查看交易情况·综合运用

  this.m_symbol     =  ::HistoryDealGetString(ticket, DEAL_SYMBOL);            class=class="str">"cmt">// Symbol name
  this.m_comment     =  ::HistoryDealGetString(ticket, DEAL_COMMENT);            class=class="str">"cmt">// Comment
  this.m_external_id =  ::HistoryDealGetString(ticket, DEAL_EXTERNAL_ID);        class=class="str">"cmt">// Deal ID in an external trading system
class=class="str">"cmt">//--- Graphics display parameters
  this.m_chart_id  =  ::ChartID();
  this.m_digits    =  (class="type">int)::SymbolInfoInteger(this.m_symbol, SYMBOL_DIGITS);
  this.m_point     =  ::SymbolInfoDouble(this.m_symbol, SYMBOL_POINT);
  this.m_width     =  class="num">19;
  this.m_height    =  class="num">19;
  this.m_name      =  "Deal#"+(class="type">class="kw">string)this.m_ticket;
  this.m_color_arrow=  (this.TypeDeal()==DEAL_TYPE_BUY ? C&class="macro">#x27;class="num">3,class="num">95,class="num">172&class="macro">#x27; : this.TypeDeal()==DEAL_TYPE_SELL ? C&class="macro">#x27;class="num">225,class="num">68,class="num">29&class="macro">#x27; : C&class="macro">#x27;class="num">180,class="num">180,class="num">180&class="macro">#x27;);

class=class="str">"cmt">//--- Parameters for calculating spread
  this.m_spread   =  class="num">0;
  this.m_bid      =  class="num">0;
  this.m_ask      =  class="num">0;

class=class="str">"cmt">//--- Create a graphic label
  this.CreateLabelObj();

class=class="str">"cmt">//--- If the historical tick and the Point value of the symbol were obtained
  if(this.GetDealTick() && this.m_point!=class="num">0)
     {
     class=class="str">"cmt">//--- set the Bid and Ask price values, calculate and save the spread value
     this.m_bid=this.m_tick.bid;
     this.m_ask=this.m_tick.ask;
     this.m_spread=class="type">int((this.m_ask-this.m_bid)/this.m_point);
     }
class=class="str">"cmt">//--- If failed to obtain a historical tick, take the spread value of the minute bar the deal took place on
  else
     this.m_spread=this.GetSpreadM1();
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Destructor                                                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
CDeal::~CDeal()
  {
  if(::UninitializeReason()!=REASON_CHARTCHANGE)
     this.m_canvas.Destroy();
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Compare two objects by the specified class="kw">property                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int CDeal::Compare(const CObject *node,const class="type">int mode=class="num">0) const
  {

const CDeal * obj = node;
class="kw">switch(mode)
  {
  case SORT_MODE_DEAL_TICKET       :  class="kw">return(this.Ticket() > obj.Ticket()        ?  class="num">1  :  this.Ticket() < obj.Ticket()         ? -class="num">1  :  class="num">0);
  case SORT_MODE_DEAL_ORDER        :  class="kw">return(this.Order() > obj.Order()          ?  class="num">1  :  this.Order() < obj.Order()           ? -class="num">1  :  class="num">0);
  case SORT_MODE_DEAL_TIME         :  class="kw">return(this.Time() > obj.Time()            ?  class="num">1  :  this.Time() < obj.Time()             ? -class="num">1  :  class="num">0);
  case SORT_MODE_DEAL_TIME_MSC     :  class="kw">return(this.TimeMsc() > obj.TimeMsc()      ?  class="num">1  :  this.TimeMsc() < obj.TimeMsc()       ? -class="num">1  :  class="num">0);
  case SORT_MODE_DEAL_TYPE         :  class="kw">return(this.TypeDeal() > obj.TypeDeal()    ?  class="num">1  :  this.TypeDeal() < obj.TypeDeal()     ? -class="num">1  :  class="num">0);
  case SORT_MODE_DEAL_ENTRY        :  class="kw">return(this.Entry() > obj.Entry()          ?  class="num">1  :  this.Entry() < obj.Entry()           ? -class="num">1  :  class="num">0);
  case SORT_MODE_DEAL_MAGIC        :  class="kw">return(this.Magic() > obj.Magic()          ?  class="num">1  :  this.Magic() < obj.Magic()           ? -class="num">1  :  class="num">0);
  case SORT_MODE_DEAL_REASON       :  class="kw">return(this.Reason() > obj.Reason()        ?  class="num">1  :  this.Reason() < obj.Reason()         ? -class="num">1  :  class="num">0);
  case SORT_MODE_DEAL_POSITION_ID  :  class="kw">return(this.PositionID() > obj.PositionID()?  class="num">1  :  this.PositionID() < obj.PositionID() ? -class="num">1  :  class="num">0);
  case SORT_MODE_DEAL_VOLUME       :  class="kw">return(this.Volume() > obj.Volume()        ?  class="num">1  :  this.Volume() < obj.Volume()         ? -class="num">1  :  class="num">0);

case SORT_MODE_DEAL_PRICE         : class="kw">return(this.Price() > obj.Price()          ?  class="num">1 : this.Price() < obj.Price()           ? -class="num">1 :  class="num">0);
case SORT_MODE_DEAL_COMMISSION   : class="kw">return(this.Commission() > obj.Commission()  ?  class="num">1 : this.Commission() < obj.Commission()  ? -class="num">1 :  class="num">0);
case SORT_MODE_DEAL_SWAP         : class="kw">return(this.Swap() > obj.Swap()              ?  class="num">1 : this.Swap() < obj.Swap()              ? -class="num">1 :  class="num">0);
case SORT_MODE_DEAL_PROFIT       : class="kw">return(this.Profit() > obj.Profit()          ?  class="num">1 : this.Profit() < obj.Profit()          ? -class="num">1 :  class="num">0);
case SORT_MODE_DEAL_FEE          : class="kw">return(this.Fee() > obj.Fee()                ?  class="num">1 : this.Fee() < obj.Fee()                ? -class="num">1 :  class="num">0);
case SORT_MODE_DEAL_SL           : class="kw">return(this.SL() > obj.SL()                  ?  class="num">1 : this.SL() < obj.SL()                  ? -class="num">1 :  class="num">0);
case SORT_MODE_DEAL_TP           : class="kw">return(this.TP() > obj.TP()                  ?  class="num">1 : this.TP() < obj.TP()                  ? -class="num">1 :  class="num">0);
case SORT_MODE_DEAL_SYMBOL       : class="kw">return(this.Symbol() > obj.Symbol()          ?  class="num">1 : this.Symbol() < obj.Symbol()          ? -class="num">1 :  class="num">0);
case SORT_MODE_DEAL_COMMENT      : class="kw">return(this.Comment() > obj.Comment()         ?  class="num">1 : this.Comment() < obj.Comment()         ? -class="num">1 :  class="num">0);

   case SORT_MODE_DEAL_EXTERNAL_ID   :  class="kw">return(this.ExternalID() > obj.ExternalID()   ?  class="num">1   :  this.ExternalID() < obj.ExternalID()   ? -class="num">1   :  class="num">0);
       class="kw">default                         :  class="kw">return(-class="num">1);
   }
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the deal type description                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CDeal::TypeDescription(class="type">void) const
  {
   class="kw">switch(this.m_type)
     {
      case DEAL_TYPE_BUY                 :  class="kw">return "Buy";
      case DEAL_TYPE_SELL                :  class="kw">return "Sell";
      case DEAL_TYPE_BALANCE             :  class="kw">return "Balance";
      case DEAL_TYPE_CREDIT              :  class="kw">return "Credit";
      case DEAL_TYPE_CHARGE              :  class="kw">return "Additional charge";
      case DEAL_TYPE_CORRECTION          :  class="kw">return "Correction";
      case DEAL_TYPE_BONUS               :  class="kw">return "Bonus";
      case DEAL_TYPE_COMMISSION          :  class="kw">return "Additional commission";
      case DEAL_TYPE_COMMISSION_DAILY    :  class="kw">return "Daily commission";
      case DEAL_TYPE_COMMISSION_MONTHLY  :  class="kw">return "Monthly commission";
      case DEAL_TYPE_COMMISSION_AGENT_DAILY  :  class="kw">return "Daily agent commission";
      case DEAL_TYPE_COMMISSION_AGENT_MONTHLY:  class="kw">return "Monthly agent commission";
      case DEAL_TYPE_INTEREST            :  class="kw">return "Interest rate";
      case DEAL_TYPE_BUY_CANCELED        :  class="kw">return "Canceled buy deal";
      case DEAL_TYPE_SELL_CANCELED       :  class="kw">return "Canceled sell deal";

case DEAL_DIVIDEND                     :  class="kw">return "Dividend operations";
      case DEAL_DIVIDEND_FRANKED                 :  class="kw">return "Franked(non-taxable) dividend operations";
      case DEAL_TAX                              :  class="kw">return "Tax charges";
      class="kw">default                                    :  class="kw">return "Unknown: "+(class="type">class="kw">string)this.m_type;
   }
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return position change method                                    |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CDeal::EntryDescription(class="type">void) const
  {
   class="kw">switch(this.m_entry)
     {
      case DEAL_ENTRY_IN     :  class="kw">return "Entry In";
      case DEAL_ENTRY_OUT    :  class="kw">return "Entry Out";
      case DEAL_ENTRY_INOUT  :  class="kw">return "Reverse";
      case DEAL_ENTRY_OUT_BY :  class="kw">return "Close a position by an opposite one";
      class="kw">default                :  class="kw">return "Unknown: "+(class="type">class="kw">string)this.m_entry;
   }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return a deal reason description                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CDeal::ReasonDescription(class="type">void) const
  {
   class="kw">switch(this.m_reason)
     {
      case DEAL_REASON_CLIENT       :  class="kw">return "Terminal";
      case DEAL_REASON_MOBILE       :  class="kw">return "Mobile";
      case DEAL_REASON_WEB          :  class="kw">return "Web";
      case DEAL_REASON_EXPERT       :  class="kw">return "EA";
      case DEAL_REASON_SL           :  class="kw">return "SL";
      case DEAL_REASON_TP           :  class="kw">return "TP";
      case DEAL_REASON_SO           :  class="kw">return "SO";

   case DEAL_REASON_ROLLOVER         :  class="kw">return "Rollover";
   case DEAL_REASON_VMARGIN           :  class="kw">return "Var. Margin";
   case DEAL_REASON_SPLIT             :  class="kw">return "Split";
   case DEAL_REASON_CORPORATE_ACTION:  class="kw">return "Corp. Action";
   class="kw">default                            :  class="kw">return "Unknown reason "+(class="type">class="kw">string)this.m_reason;
   }
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return deal description                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CDeal::Description(class="type">void)
  {
   class="kw">return(::StringFormat("Deal: %-9s %.2f %-4s #%I64d at %s", this.EntryDescription(), this.Volume(), this.TypeDescription(), this.Ticket(), this.TimeMscToString(this.TimeMsc())));
  }
Deal: Entry In  class="num">0.10 Buy  #class="num">1728374638 at class="num">2023.06.class="num">12 class="num">16:class="num">51:class="num">36.838
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Returns a text of a deal pop-up message                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CDeal::Tooltip(class="type">void)
  {
   class="kw">return(::StringFormat("Position ID #%I64d %s:\nDeal #%I64d %.2f %s %s\n%s [%.*f]\nProfit: %.2f, SL: %.*f, TP: %.*f",
                         this.PositionID(), this.Symbol(), this.Ticket(), this.Volume(), this.TypeDescription(),
                         this.EntryDescription(), this.TimeMscToString(this.TimeMsc()), this.m_digits, this.Price(),
                         this.Profit(), this.m_digits, this.SL(), this.m_digits, this.TP()));
  }
Position ID #class="num">1752955040 EURUSD:
Deal #class="num">1728430603 class="num">0.10 Sell Entry Out
class="num">2023.06.class="num">12 class="num">17:class="num">04:class="num">20.362 [class="num">1.07590]
Profit: class="num">15.00, SL: class="num">1.07290, TP: class="num">1.07590
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Print deal properties in the journal                             |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CDeal::Print(class="type">void)
  {
   ::PrintFormat("  %s", this.Description());
  }

class="type">class="kw">string CDeal::TimeMscToString(const class="type">long time_msc, class="type">int flags=TIME_DATE|TIME_MINUTES|TIME_SECONDS) const
  {
   class="kw">return(::TimeToString(time_msc/class="num">1000, flags) + "." + ::IntegerToString(time_msc %class="num">1000, class="num">3, &class="macro">#x27;class="num">0&class="macro">#x27;));
  }
class="num">2023.06.class="num">12 class="num">17:class="num">04:class="num">20.362
class="type">bool CDeal::GetDealTick(const class="type">int amount=class="num">20)
  {
   class="type">MqlTick ticks[];       class=class="str">"cmt">// We will receive ticks here
   class="type">int attempts = amount; class=class="str">"cmt">// Number of attempts to get ticks
   class="type">int offset = class="num">500;      class=class="str">"cmt">// Initial time offset for an attempt
   class="type">int copied = class="num">0;        class=class="str">"cmt">// Number of ticks copied

class=class="str">"cmt">//--- Until the tick is copied and the number of copy attempts is over
class=class="str">"cmt">//--- we try to get a tick, doubling the initial time offset at each iteration(expand the "from_msc" time range)
   while(!::IsStopped() && (copied<=class="num">0) && (attempts--)!=class="num">0)
      copied = ::CopyTicksRange(this.m_symbol, ticks, COPY_TICKS_INFO, this.m_time_msc-(offset <<=class="num">1), this.m_time_msc);

class=class="str">"cmt">//--- If the tick was successfully copied(it is the last one in the tick array), set it to the m_tick variable
   if(copied>class="num">0)
      this.m_tick=ticks[copied-class="num">1];
class=class="str">"cmt">//--- Return the flag that the tick was copied
   class="kw">return(copied>class="num">0);
  }
class="type">int CDeal::GetSpreadM1(class="type">void)
  {
   class="type">int array[class="num">1]={};

class="type">int bar=::iBarShift(this.m_symbol, PERIOD_M1, this.Time());
if(bar==WRONG_VALUE)
   class="kw">return class="num">0;
class="kw">return(::CopySpread(this.m_symbol, PERIOD_M1, bar, class="num">1, array)==class="num">1 ?array[class="num">0] : class="num">0);
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Create a label object on the chart                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CDeal::CreateLabelObj(class="type">void)
  {
class=class="str">"cmt">//--- Create a graphical resource with a Bitmap object attached to it
  ::ResetLastError();
  if(!this.m_canvas.CreateBitmap(this.m_name, this.m_time, this.m_price, this.m_width, this.m_height, COLOR_FORMAT_ARGB_NORMALIZE))
     {
      ::PrintFormat("%s: When creating a graphic object, error %d occurred in the CreateBitmap method of the CCanvas class",__FUNCTION__, ::GetLastError());
      class="kw">return false;
     }
class=class="str">"cmt">//--- If the graphical resource is successfully created, set the Bitmap object, anchor point, price, time and tooltip text
  ::ObjectSetInteger(this.m_chart_id, this.m_name, OBJPROP_ANCHOR, ANCHOR_CENTER);
  ::ObjectSetInteger(this.m_chart_id, this.m_name, OBJPROP_TIME, this.Time());
  ::ObjectSetDouble(this.m_chart_id, this.m_name, OBJPROP_PRICE, this.Price());
  ::ObjectSetString(this.m_chart_id, this.m_name, OBJPROP_TOOLTIP, this.Tooltip());

class=class="str">"cmt">//--- Hide the created object from the chart and draw its appearance on it
  this.HideArrow();
  this.DrawLabelView();
  class="kw">return true;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Draw the appearance of the label object                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CDeal::DrawLabelView(class="type">void)
  {
  this.m_canvas.Erase(0x00FFFFFF);
  this.DrawArrow();
  this.m_canvas.Update(true);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Draw an arrow corresponding to the deal type                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CDeal::DrawArrow(class="type">void)
  {
  class="kw">switch(this.TypeDeal())
     {
      case DEAL_TYPE_BUY  :  this.DrawArrowBuy(class="num">5, class="num">10);  break;
      case DEAL_TYPE_SELL :  this.DrawArrowSell(class="num">5, class="num">0);  break;
      class="kw">default             :  break;
     }
  }

class="type">void CDeal::DrawArrowMaskBuy(const class="type">int shift_x, const class="type">int shift_y)
  {
   class="type">int x[]={class="num">4+shift_x, class="num">8+shift_x, class="num">8+shift_x, class="num">6+shift_x, class="num">6+shift_x, class="num">2+shift_x, class="num">2+shift_x, class="num">0+shift_x, class="num">0+shift_x, class="num">4+shift_x};
   class="type">int y[]={class="num">0+shift_y, class="num">4+shift_y, class="num">5+shift_y, class="num">5+shift_y, class="num">7+shift_y, class="num">7+shift_y, class="num">5+shift_y, class="num">5+shift_y, class="num">4+shift_y, class="num">0+shift_y};
   this.m_canvas.Polygon(x, y, ::ColorToARGB(clrWhite, class="num">220));
  }
class="type">void CDeal::DrawArrowBuy(const class="type">int shift_x, const class="type">int shift_y)
  {
   this.DrawArrowMaskBuy(shift_x, shift_y);
   class="type">int x[]={class="num">4+shift_x, class="num">7+shift_x, class="num">5+shift_x, class="num">5+shift_x, class="num">3+shift_x, class="num">3+shift_x, class="num">1+shift_x, class="num">4+shift_x};
   class="type">int y[]={class="num">1+shift_y, class="num">4+shift_y, class="num">4+shift_y, class="num">6+shift_y, class="num">6+shift_y, class="num">4+shift_y, class="num">4+shift_y, class="num">1+shift_y};
   this.m_canvas.Polygon(x, y, ::ColorToARGB(this.m_color_arrow));
   this.m_canvas.Fill(class="num">4+shift_x, class="num">4+shift_y, ::ColorToARGB(this.m_color_arrow));
  }
class="type">void CDeal::DrawArrowMaskSell(const class="type">int shift_x, const class="type">int shift_y)
  {
   class="type">int x[]={class="num">4+shift_x, class="num">0+shift_x, class="num">0+shift_x, class="num">2+shift_x, class="num">2+shift_x, class="num">6+shift_x, class="num">6+shift_x, class="num">8+shift_x, class="num">8+shift_x, class="num">4+shift_x};
   class="type">int y[]={class="num">8+shift_y, class="num">4+shift_y, class="num">3+shift_y, class="num">3+shift_y, class="num">1+shift_y, class="num">1+shift_y, class="num">3+shift_y, class="num">3+shift_y, class="num">4+shift_y, class="num">8+shift_y};
   this.m_canvas.Polygon(x, y, ::ColorToARGB(clrWhite, class="num">220));
  }

class="type">void CDeal::DrawArrowSell(const class="type">int shift_x, const class="type">int shift_y)
  {
   this.DrawArrowMaskSell(shift_x, shift_y);
   class="type">int x[]={class="num">4+shift_x, class="num">1+shift_x, class="num">3+shift_x, class="num">3+shift_x, class="num">5+shift_x, class="num">5+shift_x, class="num">7+shift_x, class="num">4+shift_x};
   class="type">int y[]={class="num">7+shift_y, class="num">4+shift_y, class="num">4+shift_y, class="num">2+shift_y, class="num">2+shift_y, class="num">4+shift_y, class="num">4+shift_y, class="num">7+shift_y};
   this.m_canvas.Polygon(x, y, ::ColorToARGB(this.m_color_arrow));
   this.m_canvas.Fill(class="num">4+shift_x, class="num">4+shift_y, ::ColorToARGB(this.m_color_arrow));
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Hide the deal label on the chart                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CDeal::HideArrow(const class="type">bool chart_redraw=false)
  {
   ::ObjectSetInteger(this.m_chart_id, this.m_name, OBJPROP_TIMEFRAMES, OBJ_NO_PERIODS);
   if(chart_redraw)
      ::ChartRedraw(this.m_chart_id);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Display the deal label on the chart                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CDeal::ShowArrow(const class="type">bool chart_redraw=false)
  {
   ::ObjectSetInteger(this.m_chart_id, this.m_name, OBJPROP_TIMEFRAMES, OBJ_ALL_PERIODS);
   if(chart_redraw)
      ::ChartRedraw(this.m_chart_id);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Set the deal label class="type">class="kw">color                                         |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CDeal::SetColorArrow(const class="type">class="kw">color clr)
  {
   this.m_color_arrow=clr;
   this.DrawLabelView();
  }

class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|                                                                  Position.mqh |
class=class="str">"cmt">//|                                         Copyright class="num">2024, MetaQuotes Ltd. |
class=class="str">"cmt">//|                                         [MQL5官方文档] |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="macro">#class="kw">property copyright "Copyright class="num">2024, MetaQuotes Ltd."
class="macro">#class="kw">property link      "[MQL5官方文档]
class="macro">#class="kw">property version   "class="num">1.00"
class="macro">#include "Deal.mqh"
class="macro">#include <Arrays\ArrayObj.mqh>
enum ENUM_POSITION_SORT_MODE
  {
   SORT_MODE_POSITION_TICKET = class="num">0,      class=class="str">"cmt">// Mode of comparing/sorting by a position ticket
   SORT_MODE_POSITION_TIME,            class=class="str">"cmt">// Mode of comparing/sorting by position open time
   SORT_MODE_POSITION_TIME_MSC,        class=class="str">"cmt">// Mode of comparing/sorting by position open time im milliseconds
   SORT_MODE_POSITION_TIME_UPDATE,     class=class="str">"cmt">// Mode of comparing/sorting by position update time
   SORT_MODE_POSITION_TIME_UPDATE_MSC, class=class="str">"cmt">// Mode of comparing/sorting by position update time im milliseconds
   SORT_MODE_POSITION_TYPE,            class=class="str">"cmt">// Mode of comparing/sorting by position type

SORT_MODE_POSITION_MAGIC,              class=class="str">"cmt">// Mode of comparing/sorting by a position magic number
 SORT_MODE_POSITION_IDENTIFIER,        class=class="str">"cmt">// Mode of comparing/sorting by a position ID
 SORT_MODE_POSITION_REASON,            class=class="str">"cmt">// Mode of comparing/sorting by position open reason
 SORT_MODE_POSITION_VOLUME,            class=class="str">"cmt">// Mode of comparing/sorting by a position volume
 SORT_MODE_POSITION_PRICE_OPEN,        class=class="str">"cmt">// Mode of comparing/sorting by a position price
 SORT_MODE_POSITION_SL,                class=class="str">"cmt">// Mode of comparing/sorting by Stop Loss level for an open position
 SORT_MODE_POSITION_TP,                class=class="str">"cmt">// Mode of comparing/sorting by Take Profit level for an open position
 SORT_MODE_POSITION_PRICE_CURRENT,     class=class="str">"cmt">// Mode of comparing/sorting by the current symbol price
 SORT_MODE_POSITION_SWAP,              class=class="str">"cmt">// Mode of comparing/sorting by accumulated swap
 SORT_MODE_POSITION_PROFIT,            class=class="str">"cmt">// Mode of comparing/sorting by the current profit
 SORT_MODE_POSITION_SYMBOL,            class=class="str">"cmt">// Mode of comparing/sorting by a symbol a position is opened on
 SORT_MODE_POSITION_COMMENT,           class=class="str">"cmt">// Mode of comparing/sorting by a position comment
 SORT_MODE_POSITION_EXTERNAL_ID,       class=class="str">"cmt">// Mode of comparing/sorting by a position ID in an external system
 SORT_MODE_POSITION_TIME_CLOSE,        class=class="str">"cmt">// Mode of comparing/sorting by a position open time
 SORT_MODE_POSITION_TIME_CLOSE_MSC,    class=class="str">"cmt">// Mode of comparing/sorting by a position open time in milliseconds
 SORT_MODE_POSITION_PRICE_CLOSE,       class=class="str">"cmt">// Mode of comparing/sorting by a position price
};
class CPosition : class="kw">public CObject
  {
  }
class CPosition : class="kw">public CObject
  {
class="kw">private:
class="kw">protected:
   CArrayObj         m_list_deals;       class=class="str">"cmt">// List of position deals
   CDeal             m_temp_deal;        class=class="str">"cmt">// Temporary deal object for searching by class="kw">property in the list
class=class="str">"cmt">//--- Return time with milliseconds
   class="type">class="kw">string            TimeMscToString(const class="type">long time_msc,class="type">int flags=TIME_DATE|TIME_MINUTES|TIME_SECONDS) const;
class=class="str">"cmt">//--- Integer properties
   class="type">long              m_ticket;           class=class="str">"cmt">// Position ticket
   class="type">class="kw">datetime          m_time;             class=class="str">"cmt">// Position opening time
   class="type">long              m_time_msc;         class=class="str">"cmt">// Position opening time in milliseconds since class="num">01.01.class="num">1970

  class="type">class="kw">datetime            m_time_update;       class=class="str">"cmt">// Position update time
  class="type">long                m_time_update_msc;   class=class="str">"cmt">// Position update time in milliseconds since class="num">01.01.class="num">1970
  class="type">ENUM_POSITION_TYPE  m_type;              class=class="str">"cmt">// Position type
  class="type">long                m_magic;             class=class="str">"cmt">// Magic number for a position(see ORDER_MAGIC)
  class="type">long                m_identifier;        class=class="str">"cmt">// Position ID
  ENUM_POSITION_REASON m_reason;           class=class="str">"cmt">// Position opening reason
class=class="str">"cmt">//--- Real properties
  class="type">class="kw">double              m_volume;            class=class="str">"cmt">// Position volume
  class="type">class="kw">double              m_price_open;        class=class="str">"cmt">// Position price
  class="type">class="kw">double              m_sl;                class=class="str">"cmt">// Stop Loss level for an open position
  class="type">class="kw">double              m_tp;                class=class="str">"cmt">// Take Profit level for an open position
  class="type">class="kw">double              m_price_current;     class=class="str">"cmt">// Current price by symbol
  class="type">class="kw">double              m_swap;              class=class="str">"cmt">// Accumulated swap
  class="type">class="kw">double              m_profit;            class=class="str">"cmt">// Current profit
class=class="str">"cmt">//--- String properties
  class="type">class="kw">string              m_symbol;            class=class="str">"cmt">// A symbol the position is open for
  class="type">class="kw">string              m_comment;           class=class="str">"cmt">// Position comment
  class="type">class="kw">string              m_external_id;       class=class="str">"cmt">// Position ID in an external system(on the exchange) 
class=class="str">"cmt">//--- Additional properties
  class="type">long                m_chart_id;          class=class="str">"cmt">// Chart ID
  class="type">int                 m_profit_pt;         class=class="str">"cmt">// Profit in points
  class="type">int                 m_digits;            class=class="str">"cmt">// Symbol digits
  class="type">class="kw">double              m_point;             class=class="str">"cmt">// One symbol point value
  class="type">class="kw">double              m_contract_size;     class=class="str">"cmt">// Symbol trade contract size
  class="type">class="kw">string              m_currency_profit;   class=class="str">"cmt">// Symbol profit currency
  class="type">class="kw">string              m_account_currency;  class=class="str">"cmt">// Deposit currency
  
  class="type">class="kw">string              m_line_name;         class=class="str">"cmt">// Line graphical object name

  class="type">class="kw">color                m_line_color;             class=class="str">"cmt">// Connecting line class="type">class="kw">color
class=class="str">"cmt">//--- Create a line connecting open-close deals
  class="kw">virtual class="type">bool        CreateLine(class="type">void);
class=class="str">"cmt">//--- Return the pointer to(class="num">1) open and(class="num">2) close deal
  CDeal               *GetDealIn(class="type">void)  const;
  CDeal               *GetDealOut(class="type">void) const;

class=class="str">"cmt">//--- (class="num">1) Hide and(class="num">2) display deal labels on the chart
  class="type">void                HideDeals(const class="type">bool chart_redraw=false);
  class="type">void                ShowDeals(const class="type">bool chart_redraw=false);

class=class="str">"cmt">//--- (class="num">1) Hide and(class="num">2) display the connecting line between the deal labels
  class="type">void                HideLine(const class="type">bool chart_redraw=false);
  class="type">void                ShowLine(const class="type">bool chart_redraw=false);
class="kw">public:
class=class="str">"cmt">//--- Set the properties
class=class="str">"cmt">//--- Integer properties
  class="type">void                SetTicket(const class="type">long ticket)                  { this.m_ticket=ticket;       }   class=class="str">"cmt">// Position ticket
  class="type">void                SetTime(const class="type">class="kw">datetime time)                  { this.m_time=time;           }   class=class="str">"cmt">// Position open time
  class="type">void                SetTimeMsc(const class="type">long value)                  { this.m_time_msc=value;      }   class=class="str">"cmt">// Position open time in milliseconds class="num">01.01.class="num">1970 
  class="type">void                SetTimeUpdate(const class="type">class="kw">datetime time)            { this.m_time_update=time;    }   class=class="str">"cmt">// Position update time
  class="type">void                SetTimeUpdateMsc(const class="type">long value)            { this.m_time_update_msc=value;}  class=class="str">"cmt">// Position update time in milliseconds class="num">01.01.class="num">1970
  class="type">void                SetTypePosition(const class="type">ENUM_POSITION_TYPE type){ this.m_type=type;           }   class=class="str">"cmt">// Position type
  class="type">void                SetMagic(const class="type">long magic)                    { this.m_magic=magic;         }   class=class="str">"cmt">// Magic number for a position(see ORDER_MAGIC)

  class="type">void               SetID(const class="type">long id)                          { this.m_identifier=id;          }   class=class="str">"cmt">// Position ID
  class="type">void               SetReason(const ENUM_POSITION_REASON reason)    { this.m_reason=reason;          }   class=class="str">"cmt">// Position opening reason
class=class="str">"cmt">//--- Real properties
  class="type">void               SetVolume(const class="type">class="kw">double volume)                 { this.m_volume=volume;          }   class=class="str">"cmt">// Position volume
  class="type">void               SetPriceOpen(const class="type">class="kw">double price)               { this.m_price_open=price;       }   class=class="str">"cmt">// Position price
  class="type">void               SetSL(const class="type">class="kw">double value)                      { this.m_sl=value;               }   class=class="str">"cmt">// Stop Loss level for an open position
  class="type">void               SetTP(const class="type">class="kw">double value)                      { this.m_tp=value;               }   class=class="str">"cmt">// Take Profit level for an open position
  class="type">void               SetPriceCurrent(const class="type">class="kw">double price)            { this.m_price_current=price;    }   class=class="str">"cmt">// Current price by symbol
  class="type">void               SetSwap(const class="type">class="kw">double value)                    { this.m_swap=value;             }   class=class="str">"cmt">// Accumulated swap
  class="type">void               SetProfit(const class="type">class="kw">double value)                  { this.m_profit=value;           }   class=class="str">"cmt">// Current profit
class=class="str">"cmt">//--- String properties
  class="type">void               SetSymbol(const class="type">class="kw">string symbol)                 { this.m_symbol=symbol;          }   class=class="str">"cmt">// Symbol a position is opened for
  class="type">void               SetComment(const class="type">class="kw">string comment)               { this.m_comment=comment;        }   class=class="str">"cmt">// Position comment

class="type">void SetExternalID(const class="type">class="kw">string ext_id) { this.m_external_id=ext_id; } class=class="str">"cmt">// Position ID in an external system(on the exchange)
class=class="str">"cmt">//--- Get the properties
class=class="str">"cmt">//--- Integer properties
class="type">long Ticket(class="type">void) const { class="kw">return(this.m_ticket); } class=class="str">"cmt">// Position ticket
class="type">class="kw">datetime Time(class="type">void) const { class="kw">return(this.m_time); } class=class="str">"cmt">// Position open time
class="type">long TimeMsc(class="type">void) const { class="kw">return(this.m_time_msc); } class=class="str">"cmt">// Position open time in milliseconds since class="num">01.01.class="num">1970 
class="type">class="kw">datetime TimeUpdate(class="type">void) const { class="kw">return(this.m_time_update); } class=class="str">"cmt">// Position update time
class="type">long TimeUpdateMsc(class="type">void) const { class="kw">return(this.m_time_update_msc);} class=class="str">"cmt">// Position update time in milliseconds since class="num">01.01.class="num">1970
class="type">ENUM_POSITION_TYPE TypePosition(class="type">void) const { class="kw">return(this.m_type); } class=class="str">"cmt">// Position type
class="type">long Magic(class="type">void) const { class="kw">return(this.m_magic); } class=class="str">"cmt">// Magic number for a position(see ORDER_MAGIC)
class="type">long ID(class="type">void) const { class="kw">return(this.m_identifier); } class=class="str">"cmt">// Position ID
ENUM_POSITION_REASON Reason(class="type">void) const { class="kw">return(this.m_reason); } class=class="str">"cmt">// Position opening reason

class=class="str">"cmt">//--- Real properties

class="type">class="kw">double Volume(class="type">void) const { class="kw">return(this.m_volume); } class=class="str">"cmt">// Position volume
class="type">class="kw">double PriceOpen(class="type">void) const { class="kw">return(this.m_price_open); } class=class="str">"cmt">// Position price
class="type">class="kw">double SL(class="type">void) const { class="kw">return(this.m_sl); } class=class="str">"cmt">// Stop Loss level for an open position
class="type">class="kw">double TP(class="type">void) const { class="kw">return(this.m_tp); } class=class="str">"cmt">// Take Profit for an open position
class="type">class="kw">double PriceCurrent(class="type">void) const { class="kw">return(this.m_price_current); } class=class="str">"cmt">// Current price by symbol
class="type">class="kw">double Swap(class="type">void) const { class="kw">return(this.m_swap); } class=class="str">"cmt">// Accumulated swap
class="type">class="kw">double Profit(class="type">void) const { class="kw">return(this.m_profit); } class=class="str">"cmt">// Current profit
class=class="str">"cmt">//--- String properties
class="type">class="kw">string Symbol(class="type">void) const { class="kw">return(this.m_symbol); } class=class="str">"cmt">// A symbol position is opened on
class="type">class="kw">string Comment(class="type">void) const { class="kw">return(this.m_comment); } class=class="str">"cmt">// Position comment
class="type">class="kw">string ExternalID(class="type">void) const { class="kw">return(this.m_external_id); } class=class="str">"cmt">// Position ID in an external system(on the exchange)
class=class="str">"cmt">//--- Additional properties

class="type">ulong DealIn(class="type">void) const; class=class="str">"cmt">// Open deal ticket
class="type">ulong DealOut(class="type">void) const; class=class="str">"cmt">// Close deal ticket
class="type">class="kw">datetime TimeClose(class="type">void) const; class=class="str">"cmt">// Close time
class="type">long TimeCloseMsc(class="type">void) const; class=class="str">"cmt">// Close time in milliseconds
class="type">int ProfitInPoints(class="type">void) const; class=class="str">"cmt">// Profit in points
class="type">class="kw">double PriceClose(class="type">void) const; class=class="str">"cmt">// Close price
CDeal *DealAdd(const class="type">long ticket);
class="type">void SetLineColor(const class="type">class="kw">color clr=C&class="macro">#x27;class="num">225,class="num">68,class="num">29&class="macro">#x27;);
class="type">void SetDealsColor(const class="type">class="kw">color clr_deal_buy=C&class="macro">#x27;class="num">3,class="num">95,class="num">172&class="macro">#x27;, const class="type">class="kw">color clr_deal_sell=C&class="macro">#x27;class="num">225,class="num">68,class="num">29&class="macro">#x27;);
class="type">class="kw">string TypeDescription(class="type">void) const;
class="type">class="kw">string TimePriceCloseDescription(class="type">void);
class="type">class="kw">string TimePriceOpenDescription(class="type">void);
class="type">class="kw">string Description(class="type">void);

class="type">ulong DealIn(class="type">void) const; class=class="str">"cmt">// Open deal ticket
class="type">ulong DealOut(class="type">void) const; class=class="str">"cmt">// Close deal ticket
class="type">class="kw">datetime TimeClose(class="type">void) const; class=class="str">"cmt">// Close time
class="type">long TimeCloseMsc(class="type">void) const; class=class="str">"cmt">// Close time in milliseconds
class="type">int ProfitInPoints(class="type">void) const; class=class="str">"cmt">// Profit in points
class="type">class="kw">double PriceClose(class="type">void) const; class=class="str">"cmt">// Close price
class=class="str">"cmt">//--- Add a deal to the list of deals, class="kw">return the pointer
CDeal *DealAdd(const class="type">long ticket);
class=class="str">"cmt">//--- Set the class="type">class="kw">color of the(class="num">1) connecting line, (class="num">2) Buy and Sell deals
class="type">void SetLineColor(const class="type">class="kw">color clr=C&class="macro">#x27;class="num">225,class="num">68,class="num">29&class="macro">#x27;);
class="type">void SetDealsColor(const class="type">class="kw">color clr_deal_buy=C&class="macro">#x27;class="num">3,class="num">95,class="num">172&class="macro">#x27;, const class="type">class="kw">color clr_deal_sell=C&class="macro">#x27;class="num">225,class="num">68,class="num">29&class="macro">#x27;);
class=class="str">"cmt">//--- Return a position type description
class="type">class="kw">string TypeDescription(class="type">void) const;
class=class="str">"cmt">//--- Return position open time and price description
class="type">class="kw">string TimePriceCloseDescription(class="type">void);
class=class="str">"cmt">//--- Return position close time and price description
class="type">class="kw">string TimePriceOpenDescription(class="type">void);
class=class="str">"cmt">//--- Return a brief position description
class="type">class="kw">string Description(class="type">void);

class="kw">virtual class="type">class="kw">string Tooltip(class="type">void);
class=class="str">"cmt">//--- Print the properties of the position and its deals in the journal
class="type">void Print(class="type">void);

class=class="str">"cmt">//--- (class="num">1) Hide and(class="num">2) display a graphical representation of a position on a chart
class="type">void Hide(const class="type">bool chart_redraw=false);
class="type">void Show(const class="type">bool chart_redraw=false);

class=class="str">"cmt">//--- Compare two objects by the class="kw">property specified in &class="macro">#x27;mode&class="macro">#x27;
class="kw">virtual class="type">int Compare(const CObject *node, const class="type">int mode=class="num">0) const;

class=class="str">"cmt">//--- Constructor/destructor
CPosition(const class="type">long position_id, const class="type">class="kw">string symbol);
CPosition(class="type">void) { this.m_symbol=::Symbol();  }
~CPosition();
};
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Constructor                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
CPosition::CPosition(const class="type">long position_id, const class="type">class="kw">string symbol)
  {
   this.m_list_deals.Sort(SORT_MODE_DEAL_TIME_MSC);
   this.m_identifier       =  position_id;
   this.m_account_currency =  ::AccountInfoString(ACCOUNT_CURRENCY);
   this.m_symbol           =  (symbol==NULL ? ::Symbol() : symbol);
   this.m_digits           =  (class="type">int)::SymbolInfoInteger(this.m_symbol,SYMBOL_DIGITS);
   this.m_point            =  ::SymbolInfoDouble(this.m_symbol,SYMBOL_POINT);
   this.m_contract_size    =  ::SymbolInfoDouble(this.m_symbol,SYMBOL_TRADE_CONTRACT_SIZE);
   this.m_currency_profit  =  ::SymbolInfoString(this.m_symbol,SYMBOL_CURRENCY_PROFIT);
   this.m_chart_id         =  ::ChartID();
   this.m_line_name        =  "line#"+(class="type">class="kw">string)this.m_identifier;
   this.m_line_color       =  C&class="macro">#x27;class="num">225,class="num">68,class="num">29&class="macro">#x27;;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Destructor                                                            |
class=class="str">"cmt">//+------------------------------------------------------------------+
CPosition::~CPosition()
  {
   ::ObjectDelete(this.m_chart_id, this.m_line_name);

class="type">int CPosition::Compare(const CObject *node,const class="type">int mode=class="num">0) const
  {
  const CPosition *obj=node;
  class="kw">switch(mode)
    {
    case SORT_MODE_POSITION_TICKET         :  class="kw">return(this.Ticket() > obj.Ticket()           ?  class="num">1  :  this.Ticket() < obj.Ticket()            ? -class="num">1  :  class="num">0);
    case SORT_MODE_POSITION_TIME           :  class="kw">return(this.Time() > obj.Time()               ?  class="num">1  :  this.Time() < obj.Time()                ? -class="num">1  :  class="num">0);
    case SORT_MODE_POSITION_TIME_MSC       :  class="kw">return(this.TimeMsc() > obj.TimeMsc()         ?  class="num">1  :  this.TimeMsc() < obj.TimeMsc()          ? -class="num">1  :  class="num">0);
    case SORT_MODE_POSITION_TIME_UPDATE    :  class="kw">return(this.TimeUpdate() > obj.TimeUpdate()   ?  class="num">1  :  this.TimeUpdate() < obj.TimeUpdate()    ? -class="num">1  :  class="num">0);
    case SORT_MODE_POSITION_TIME_UPDATE_MSC:  class="kw">return(this.TimeUpdateMsc() > obj.TimeUpdateMsc() ?  class="num">1  :  this.TimeUpdateMsc() < obj.TimeUpdateMsc() ? -class="num">1  :  class="num">0);
    case SORT_MODE_POSITION_TYPE           :  class="kw">return(this.TypePosition() > obj.TypePosition() ?  class="num">1  :  this.TypePosition() < obj.TypePosition() ? -class="num">1  :  class="num">0);
    case SORT_MODE_POSITION_MAGIC          :  class="kw">return(this.Magic() > obj.Magic()             ?  class="num">1  :  this.Magic() < obj.Magic()              ? -class="num">1  :  class="num">0);
    case SORT_MODE_POSITION_IDENTIFIER     :  class="kw">return(this.ID() > obj.ID()                   ?  class="num">1  :  this.ID() < obj.ID()                    ? -class="num">1  :  class="num">0);

case SORT_MODE_POSITION_REASON           :  class="kw">return(this.Reason() > obj.Reason()           ?  class="num">1  :  this.Reason() < obj.Reason()           ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_VOLUME           :  class="kw">return(this.Volume() > obj.Volume()           ?  class="num">1  :  this.Volume() < obj.Volume()           ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_PRICE_OPEN       :  class="kw">return(this.PriceOpen() > obj.PriceOpen()     ?  class="num">1  :  this.PriceOpen() < obj.PriceOpen()     ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_SL               :  class="kw">return(this.SL() > obj.SL()                   ?  class="num">1  :  this.SL() < obj.SL()                   ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_TP               :  class="kw">return(this.TP() > obj.TP()                   ?  class="num">1  :  this.TP() < obj.TP()                   ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_PRICE_CURRENT    :  class="kw">return(this.PriceCurrent() > obj.PriceCurrent()?  class="num">1  :  this.PriceCurrent() < obj.PriceCurrent()? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_SWAP             :  class="kw">return(this.Swap() > obj.Swap()              ?  class="num">1  :  this.Swap() < obj.Swap()              ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_PROFIT           :  class="kw">return(this.Profit() > obj.Profit()           ?  class="num">1  :  this.Profit() < obj.Profit()           ? -class="num">1  :  class="num">0);

case SORT_MODE_POSITION_REASON           :  class="kw">return(this.Reason() > obj.Reason()           ?  class="num">1  :  this.Reason() < obj.Reason()           ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_VOLUME           :  class="kw">return(this.Volume() > obj.Volume()           ?  class="num">1  :  this.Volume() < obj.Volume()           ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_PRICE_OPEN       :  class="kw">return(this.PriceOpen() > obj.PriceOpen()     ?  class="num">1  :  this.PriceOpen() < obj.PriceOpen()     ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_SL               :  class="kw">return(this.SL() > obj.SL()                   ?  class="num">1  :  this.SL() < obj.SL()                   ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_TP               :  class="kw">return(this.TP() > obj.TP()                   ?  class="num">1  :  this.TP() < obj.TP()                   ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_PRICE_CURRENT    :  class="kw">return(this.PriceCurrent() > obj.PriceCurrent()?  class="num">1  :  this.PriceCurrent() < obj.PriceCurrent()? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_SWAP             :  class="kw">return(this.Swap() > obj.Swap()              ?  class="num">1  :  this.Swap() < obj.Swap()              ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_PROFIT           :  class="kw">return(this.Profit() > obj.Profit()           ?  class="num">1  :  this.Profit() < obj.Profit()           ? -class="num">1  :  class="num">0);

case SORT_MODE_POSITION_SYMBOL           :  class="kw">return(this.Symbol() > obj.Symbol()           ?  class="num">1  :  this.Symbol() < obj.Symbol()           ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_COMMENT           :  class="kw">return(this.Comment() > obj.Comment()           ?  class="num">1  :  this.Comment() < obj.Comment()           ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_EXTERNAL_ID       :  class="kw">return(this.ExternalID() > obj.ExternalID()     ?  class="num">1  :  this.ExternalID() < obj.ExternalID()     ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_TIME_CLOSE         :  class="kw">return(this.TimeClose() > obj.TimeClose()        ?  class="num">1  :  this.TimeClose() < obj.TimeClose()        ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_TIME_CLOSE_MSC :  class="kw">return(this.TimeCloseMsc() > obj.TimeCloseMsc()  ?  class="num">1  :  this.TimeCloseMsc() < obj.TimeCloseMsc()  ? -class="num">1  :  class="num">0);
case SORT_MODE_POSITION_PRICE_CLOSE       :  class="kw">return(this.PriceClose() > obj.PriceClose()      ?  class="num">1  :  this.PriceClose() < obj.PriceClose()      ? -class="num">1  :  class="num">0);
class="kw">default                                :  class="kw">return -class="num">1;
}
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return time with milliseconds                                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CPosition::TimeMscToString(const class="type">long time_msc, class="type">int flags=TIME_DATE|TIME_MINUTES|TIME_SECONDS) const
  {
   class="kw">return(::TimeToString(time_msc/class="num">1000, flags) + "." + ::IntegerToString(time_msc %class="num">1000, class="num">3, &class="macro">#x27;class="num">0&class="macro">#x27;));
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the pointer to the opening deal                               |
class=class="str">"cmt">//+------------------------------------------------------------------+
CDeal *CPosition::GetDealIn(class="type">void) const
  {
   class="type">int total=this.m_list_deals.Total();

for(class="type">int i=class="num">0; i<total; i++)
  {
   CDeal *deal=this.m_list_deals.At(i);
   if(deal==NULL)
     class="kw">continue;
   if(deal.Entry()==DEAL_ENTRY_IN)
     class="kw">return deal;
  }
 class="kw">return NULL;
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the pointer to the close deal                              |
class=class="str">"cmt">//+------------------------------------------------------------------+
CDeal *CPosition::GetDealOut(class="type">void) const
  {
  for(class="type">int i=this.m_list_deals.Total()-class="num">1; i>=class="num">0; i--)
   {
    CDeal *deal=this.m_list_deals.At(i);
    if(deal==NULL)
      class="kw">continue;
    if(deal.Entry()==DEAL_ENTRY_OUT || deal.Entry()==DEAL_ENTRY_OUT_BY)
      class="kw">return deal;
   }
  class="kw">return NULL;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the open deal ticket                                       |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">ulong CPosition::DealIn(class="type">void) const
  {
   CDeal *deal=this.GetDealIn();
   class="kw">return(deal!=NULL ? deal.Ticket() : class="num">0);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the close deal ticket                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">ulong CPosition::DealOut(class="type">void) const
  {
   CDeal *deal=this.GetDealOut();
   class="kw">return(deal!=NULL ? deal.Ticket() : class="num">0);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the close time                                             |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">datetime CPosition::TimeClose(class="type">void) const
  {
   CDeal *deal=this.GetDealOut();
   class="kw">return(deal!=NULL ? deal.Time() : class="num">0);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the close time in milliseconds                             |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">long CPosition::TimeCloseMsc(class="type">void) const
  {
   CDeal *deal=this.GetDealOut();
   class="kw">return(deal!=NULL ? deal.TimeMsc() : class="num">0);
  }

class="type">class="kw">double CPosition::PriceClose(class="type">void) const
  {
   CDeal *deal=this.GetDealOut();
   class="kw">return(deal!=NULL ? deal.Price() : class="num">0);
  }

class="type">int CPosition::ProfitInPoints(class="type">void) const
  {
   if(this.m_point==class="num">0)
     {
      ::Print("The Point() value could not be retrieved.");
      class="kw">return class="num">0;
     }
   class="type">class="kw">double open =this.PriceOpen();
   class="type">class="kw">double close=this.PriceClose();
   if(open==class="num">0 || close==class="num">0)
      class="kw">return class="num">0;
   class="kw">return class="type">int(this.TypePosition()==POSITION_TYPE_BUY ? (close-open)/this.m_point : (open-close)/this.m_point);
  }

CDeal *CPosition::DealAdd(const class="type">long ticket)
  {
   this.m_temp_deal.SetTicket(ticket);
   this.m_list_deals.Sort(SORT_MODE_DEAL_TICKET);
   class="type">bool added=(this.m_list_deals.Search(&this.m_temp_deal)!=WRONG_VALUE);
   this.m_list_deals.Sort(SORT_MODE_DEAL_TIME_MSC);
   if(added)
      class="kw">return NULL;
   CDeal *deal=new CDeal(ticket);
   if(deal==NULL)
      class="kw">return NULL;
   if(!this.m_list_deals.InsertSort(deal))
     {
      class="kw">delete deal;
      class="kw">return NULL;
     }
   if(deal.Entry()==DEAL_ENTRY_OUT || deal.Entry()==DEAL_ENTRY_OUT_BY)
     {
      this.SetProfit(deal.Profit());
      this.CreateLine();
     }
   class="kw">return deal;
  }

class="type">class="kw">string CPosition::TypeDescription(class="type">void) const
  {
   class="kw">return(this.m_type==POSITION_TYPE_BUY ? "Buy" : this.m_type==POSITION_TYPE_SELL ? "Sell" : "Unknown::"+(class="type">class="kw">string)this.m_type);
  }
class="type">class="kw">string CPosition::TimePriceCloseDescription(class="type">void)
  {
   if(this.TimeCloseMsc()==class="num">0)
      class="kw">return "Not closed yet";
   class="kw">return(::StringFormat("Closed %s [%.*f]", this.TimeMscToString(this.TimeCloseMsc()),this.m_digits, this.PriceClose()));
  }
class="type">class="kw">string CPosition::TimePriceOpenDescription(class="type">void)
  {
   class="kw">return(::StringFormat("Opened %s [%.*f]", this.TimeMscToString(this.TimeMsc()),this.m_digits, this.PriceOpen()));
  }
class="type">class="kw">string CPosition::Description(class="type">void)
  {
   class="kw">return(::StringFormat("Position %s %.2f %s #%I64d, Magic %I64d",
                         this.Symbol(), this.Volume(), this.TypeDescription(), this.ID(), this.Magic()));
  }
class="type">class="kw">string CPosition::Tooltip(class="type">void)
  {
   CDeal *deal_in =this.GetDealIn();
   CDeal *deal_out=this.GetDealOut();
   if(deal_in==NULL || deal_out==NULL)
      class="kw">return NULL;
  }

  class="type">class="kw">double commission=deal_in.Commission()+deal_out.Commission();
  class="type">class="kw">double swap=deal_in.Swap()+deal_out.Swap();
  class="type">class="kw">double fee=deal_in.Fee()+deal_out.Fee();

class=class="str">"cmt">//--- Get the final profit of the position and the spread values when opening and closing
  class="type">class="kw">double profit=deal_out.Profit();
  class="type">int    spread_in=deal_in.Spread();
  class="type">int    spread_out=deal_out.Spread();

class=class="str">"cmt">//--- If the reason for closing the position is StopLoss, TakeProfit or StopOut, set the reason description in the variable
  class="type">class="kw">string reason=(deal_out.Reason()==DEAL_REASON_SL || deal_out.Reason()==DEAL_REASON_TP || deal_out.Reason()==DEAL_REASON_SO ? deal_out.ReasonDescription() : "");

class=class="str">"cmt">//--- Create and class="kw">return the tooltip class="type">class="kw">string
  class="kw">return(::StringFormat("%s\nCommission %.2f, Swap %.2f, Fee %.2f\nSpread In/Out %d/%d, Profit %+.2f %s(%d points)\nResult: %s %+.2f %s",
                     this.Description(), commission, swap, fee, spread_in, spread_out, profit,this.m_currency_profit,
                     this.ProfitInPoints(), reason, profit+commission+fee+swap, this.m_currency_profit));
  }
Position EURUSD class="num">0.10 Buy #class="num">1752955040, Magic class="num">0
Commission class="num">0.00, Swap class="num">0.00, Fee class="num">0.00
Spread In/Out class="num">0/class="num">0, Profit +class="num">15.00 USD(class="num">150 points)
Result: TP +class="num">15.00 USD
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Display deal labels on the chart                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPosition::ShowDeals(const class="type">bool chart_redraw=false)
  {
  for(class="type">int i=this.m_list_deals.Total()-class="num">1; i>=class="num">0; i--)
    {
    CDeal *deal=this.m_list_deals.At(i);
    if(deal==NULL)
      class="kw">continue;
    deal.ShowArrow();
    }
  if(chart_redraw)
    ::ChartRedraw(this.m_chart_id);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Hide deal labels on the chart                                   |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPosition::HideDeals(const class="type">bool chart_redraw=false)
  {
  for(class="type">int i=this.m_list_deals.Total()-class="num">1; i>=class="num">0; i--)
    {
    CDeal *deal=this.m_list_deals.At(i);
    if(deal==NULL)
      class="kw">continue;
    deal.HideArrow();
    }
  if(chart_redraw)
    ::ChartRedraw(this.m_chart_id);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Create a line connecting open-close deals                       |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CPosition::CreateLine(class="type">void)
  {

class=class="str">"cmt">//--- If the graphical line object could not be created, report this in the journal and class="kw">return &class="macro">#x27;false&class="macro">#x27;
  ::ResetLastError();
  if(!::ObjectCreate(this.m_chart_id, this.m_line_name, OBJ_TREND, class="num">0, class="num">0, class="num">0, class="num">0, class="num">0))
    {
      ::Print("ObjectCreate() failed. Error ", ::GetLastError());
      class="kw">return false;
    }
class=class="str">"cmt">//--- Hide the line
  this.HideLine();
class=class="str">"cmt">//--- Set the line to be drawn with dots, define the class="type">class="kw">color and class="kw">return &class="macro">#x27;true&class="macro">#x27;
  ::ObjectSetInteger(this.m_chart_id, this.m_line_name, OBJPROP_STYLE, STYLE_DOT);
  ::ObjectSetInteger(this.m_chart_id, this.m_line_name, OBJPROP_COLOR, this.m_line_color);
  class="kw">return true;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Display the connecting line between deal labels                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPosition::ShowLine(const class="type">bool chart_redraw=false)
  {
class=class="str">"cmt">//--- Get the pointers to the open and close deals
  CDeal *deal_in= this.GetDealIn();
  CDeal *deal_out=this.GetDealOut();
class=class="str">"cmt">//--- If no deals are received, leave
  if(deal_in==NULL || deal_out==NULL)
      class="kw">return;
class=class="str">"cmt">//--- Set a start and end time, a price from the deal properties and a tooltip text for the line
  ::ObjectSetInteger(this.m_chart_id, this.m_line_name, OBJPROP_TIME, class="num">0, deal_in.Time());
  ::ObjectSetInteger(this.m_chart_id, this.m_line_name, OBJPROP_TIME, class="num">1, deal_out.Time());
  ::ObjectSetDouble(this.m_chart_id, this.m_line_name, OBJPROP_PRICE, class="num">0, deal_in.Price());
  ::ObjectSetDouble(this.m_chart_id, this.m_line_name, OBJPROP_PRICE, class="num">1, deal_out.Price());
  ::ObjectSetString(this.m_chart_id, this.m_line_name, OBJPROP_TOOLTIP, this.Tooltip());
class=class="str">"cmt">//--- Show the line on the chart and update it if the flag is set
  ::ObjectSetInteger(this.m_chart_id, this.m_line_name, OBJPROP_TIMEFRAMES, OBJ_ALL_PERIODS);
  if(chart_redraw)
      ::ChartRedraw(this.m_chart_id);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Hide the connecting line between the deal labels                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPosition::HideLine(const class="type">bool chart_redraw=false)
  {
  ::ObjectSetInteger(this.m_chart_id, this.m_line_name, OBJPROP_TIMEFRAMES, OBJ_NO_PERIODS);
  if(chart_redraw)
      ::ChartRedraw(this.m_chart_id);
  }

class="type">void CPosition::SetLineColor(const class="type">class="kw">color clr=C&class="macro">#x27;class="num">225,class="num">68,class="num">29&class="macro">#x27;)
  {
   if(::ObjectSetInteger(this.m_chart_id, this.m_line_name, OBJPROP_COLOR, clr))
       this.m_line_color=clr;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Set Buy and Sell deal class="type">class="kw">color                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPosition::SetDealsColor(const class="type">class="kw">color clr_deal_buy=C&class="macro">#x27;class="num">3,class="num">95,class="num">172&class="macro">#x27;, const class="type">class="kw">color clr_deal_sell=C&class="macro">#x27;class="num">225,class="num">68,class="num">29&class="macro">#x27;)
  {
class=class="str">"cmt">//--- In the loop by the list of deals
   class="type">int total=this.m_list_deals.Total();
   for(class="type">int i=class="num">0; i<total; i++)
     {
      class=class="str">"cmt">//--- get the next deal object
      CDeal *deal=this.m_list_deals.At(i);
      if(deal==NULL)
         class="kw">continue;
      class=class="str">"cmt">//--- In case of Buy deal type, set a class="type">class="kw">color for a Buy deal for the object
      if(deal.TypeDeal()==DEAL_TYPE_BUY)
         deal.SetColorArrow(clr_deal_buy);
      class=class="str">"cmt">//--- In case of Sell deal type, set a class="type">class="kw">color for a Sell deal for the object
      if(deal.TypeDeal()==DEAL_TYPE_SELL)
         deal.SetColorArrow(clr_deal_sell);
     }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Display a graphical representation of a position on a chart       |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPosition::Show(const class="type">bool chart_redraw=false)
  {
   this.ShowDeals(false);
   this.ShowLine(chart_redraw);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Hide a graphical representation of a position on a chart          |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPosition::Hide(const class="type">bool chart_redraw=false)
  {
   this.HideLine(false);
   this.HideDeals(chart_redraw);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Print the position properties and deals in the journal            |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPosition::Print(class="type">void)
  {
   ::PrintFormat("%s\n-%s\n-%s", this.Description(), this.TimePriceOpenDescription(), this.TimePriceCloseDescription());
   for(class="type">int i=class="num">0; i<this.m_list_deals.Total(); i++)
     {
      CDeal *deal=this.m_list_deals.At(i);
      if(deal==NULL)
         class="kw">continue;
      deal.Print();
     }
  }

-Closed class="num">2024.05.class="num">31 class="num">17:class="num">33:class="num">17.772 [class="num">1.08639]
  Deal: Entry In  class="num">0.10 Sell #class="num">2497852906 at class="num">2024.05.class="num">31 class="num">17:class="num">06:class="num">15.134
  Deal: Entry Out class="num">0.10 Buy  #class="num">2497993663 at class="num">2024.05.class="num">31 class="num">17:class="num">33:class="num">17.772

class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|                                                     PositionsControl.mqh |
class=class="str">"cmt">//|                                  Copyright class="num">2024, MetaQuotes Ltd. |
class=class="str">"cmt">//|                                     [MQL5官方文档] |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="macro">#class="kw">property copyright "Copyright class="num">2024, MetaQuotes Ltd."
class="macro">#class="kw">property link      "[MQL5官方文档]
class="macro">#class="kw">property version   "class="num">1.00"
class="macro">#include "Position.mqh"
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Class of historical positions                                      |
class=class="str">"cmt">//+------------------------------------------------------------------+
class CPositionsControl : class="kw">public CObject
  {
  };

class CPositionsControl : class="kw">public CObject
{
class="kw">private:
  class="type">class="kw">string            m_symbol;          class=class="str">"cmt">// The symbol the position is open for
  class="type">long              m_current_id;      class=class="str">"cmt">// ID of the current position displayed on the chart
  class="type">bool              m_key_ctrl;        class=class="str">"cmt">// Flag for allowing to control the chart using the keyboard

class=class="str">"cmt">//--- Return the position type by deal type
  class="type">ENUM_POSITION_TYPE PositionTypeByDeal(const CDeal *deal);
class="kw">protected:
  CPosition         m_temp_pos;        class=class="str">"cmt">// Temporary position object for searching
  CArrayObj         m_list_pos;        class=class="str">"cmt">// List of positions
  class="type">long              m_chart_id;        class=class="str">"cmt">// Chart ID

class=class="str">"cmt">//--- Return the position object from the list by ID
  CPosition        *GetPositionObjByID(const class="type">long id);
class=class="str">"cmt">//--- Return the flag of the market position
  class="type">bool              IsMarketPosition(const class="type">long id);

class=class="str">"cmt">//--- Return the pointer to the(class="num">1) first and the(class="num">2) last open position in the list
  CPosition        *GetFirstClosedPosition(class="type">void);
  CPosition        *GetLastClosedPosition(class="type">void);
class=class="str">"cmt">//--- Return the pointer to the(class="num">1) previous and(class="num">2) next closed position in the list
  CPosition        *GetPrevClosedPosition(CPosition *current);
  CPosition        *GetNextClosedPosition(CPosition *current);
class=class="str">"cmt">//--- Displays a graphical representation of the specified position on a chart
  class="type">void              Show(CPosition *pos, const class="type">bool chart_redraw=false);

class=class="str">"cmt">//--- Center the chart on the currently selected position
  class="type">void              CentersChartByCurrentSelected(class="type">void);
class=class="str">"cmt">//--- Return the ID of the current selected position
  class="type">long              CurrentSelectedID(class="type">void) const { class="kw">return this.m_current_id; }
class=class="str">"cmt">//--- Return the selected position(class="num">1) open and(class="num">2) close time
  class="type">class="kw">datetime          TimeOpenCurrentSelected(class="type">void);
  class="type">class="kw">datetime          TimeCloseCurrentSelected(class="type">void);

class=class="str">"cmt">//--- Hide the graphical representation of all positions on the chart except the specified one
  class="type">void              HideAllExceptOne(const class="type">long pos_id, const class="type">bool chart_redraw=false);

class="kw">public:
class=class="str">"cmt">//--- Return the chart(class="num">1) symbol and(class="num">2) ID

class="type">class="kw">string Symbol(class="type">void) const { class="kw">return this.m_symbol; }
class="type">long ChartID(class="type">void) const { class="kw">return this.m_chart_id; }
class=class="str">"cmt">//--- Create and update the list of positions. It can be redefined in the inherited classes
class="kw">virtual class="type">bool Refresh(class="type">void);
class=class="str">"cmt">//--- Return the number of positions in the list
class="type">int Total(class="type">void) const { class="kw">return this.m_list_pos.Total(); }
class=class="str">"cmt">//--- (class="num">1) Hide and(class="num">2) display the graphical representation of the first position on the chart
class="type">void HideFirst(const class="type">bool chart_redraw=false);
class="type">void ShowFirst(const class="type">bool chart_redraw=false);
class=class="str">"cmt">//--- (class="num">1) Hide and(class="num">2) display the graphical representation of the last position on the chart
class="type">void HideLast(const class="type">bool chart_redraw=false);
class="type">void ShowLast(const class="type">bool chart_redraw=false);
class=class="str">"cmt">//--- Display a graphical representation of the(class="num">1) current, (class="num">2) previous and(class="num">3) next position
class="type">void ShowCurrent(const class="type">bool chart_redraw=false);
class="type">void ShowPrev(const class="type">bool chart_redraw=false);
class="type">void ShowNext(const class="type">bool chart_redraw=false);
class=class="str">"cmt">//--- Return the description of the currently selected position
class="type">class="kw">string CurrentSelectedDescription(class="type">void);
class=class="str">"cmt">//--- Print the properties of all positions and their deals in the journal
class="type">void Print(class="type">void);
class=class="str">"cmt">//--- Constructor/destructor
CPositionsControl(const class="type">class="kw">string symbol=NULL);
~CPositionsControl();
};
CPositionsControl::CPositionsControl(const class="type">class="kw">string symbol=NULL)
{
 this.m_list_pos.Sort(SORT_MODE_POSITION_TIME_CLOSE_MSC);
 this.m_symbol = (symbol==NULL ? ::Symbol() : symbol);

  this.m_chart_id   = ::ChartID();
  this.m_current_id = class="num">0;
  this.m_key_ctrl   = ::ChartGetInteger(this.m_chart_id, CHART_KEYBOARD_CONTROL);
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Destructor                                                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
CPositionsControl::~CPositionsControl()
  {
  this.m_list_pos.Shutdown();
  ::ChartSetInteger(this.m_chart_id, CHART_KEYBOARD_CONTROL, this.m_key_ctrl);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the position object from the list by ID                          |
class=class="str">"cmt">//+------------------------------------------------------------------+
CPosition *CPositionsControl::GetPositionObjByID(const class="type">long id)
  {
class=class="str">"cmt">//--- Set the position ID for the temporary object and set the flag of sorting by position ID for the list
  this.m_temp_pos.SetID(id);
  this.m_list_pos.Sort(SORT_MODE_POSITION_IDENTIFIER);
class=class="str">"cmt">//--- Get the index of the position object with such an ID(or -class="num">1 if it is absent) from the list
class=class="str">"cmt">//--- Use the obtained index to get the pointer to the position object from the list(or NULL if the index value is -class="num">1)
  class="type">int index=this.m_list_pos.Search(&this.m_temp_pos);
  CPosition *pos=this.m_list_pos.At(index);
class=class="str">"cmt">//--- Set the flag of sorting by position close time in milliseconds for the list and
class=class="str">"cmt">//--- class="kw">return the pointer to the position object(or NULL if it is absent)
  this.m_list_pos.Sort(SORT_MODE_POSITION_TIME_CLOSE_MSC);
  class="kw">return pos;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the market position flag                                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CPositionsControl::IsMarketPosition(const class="type">long id)
  {
class=class="str">"cmt">//--- In a loop by the list of current positions in the terminal
  for(class="type">int i=::PositionsTotal()-class="num">1; i>=class="num">0; i--)
    {
    class=class="str">"cmt">//--- get the position ticket by the loop index
      class="type">ulong ticket=::PositionGetTicket(i);
    class=class="str">"cmt">//--- If the ticket is received, the position can be selected and its ID is equal to the one passed to the method,
    class=class="str">"cmt">//--- this is the desired market position, class="kw">return &class="macro">#x27;true&class="macro">#x27;
      if(ticket!=class="num">0 && ::PositionSelectByTicket(ticket) && ::PositionGetInteger(POSITION_IDENTIFIER)==id)
        class="kw">return true;
    }
class=class="str">"cmt">//--- No such market position, class="kw">return &class="macro">#x27;false&class="macro">#x27;
  class="kw">return false;
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the pointer to the first closed position in the list                   |
class=class="str">"cmt">//+------------------------------------------------------------------+
CPosition *CPositionsControl::GetFirstClosedPosition(class="type">void)
  {
  this.m_list_pos.Sort(SORT_MODE_POSITION_TIME_CLOSE_MSC);
  class="kw">return this.m_list_pos.At(class="num">0);
  }

CPosition *CPositionsControl::GetLastClosedPosition(class="type">void)
  {
   this.m_list_pos.Sort(SORT_MODE_POSITION_TIME_CLOSE_MSC);
   class="kw">return this.m_list_pos.At(this.m_list_pos.Total()-class="num">1);
  }
CPosition *CPositionsControl::GetPrevClosedPosition(CPosition *current)
  {
   this.m_list_pos.Sort(SORT_MODE_POSITION_TIME_CLOSE_MSC);
   class="type">int prev=this.m_list_pos.SearchLess(current);
   class="kw">return this.m_list_pos.At(prev);
  }
CPosition *CPositionsControl::GetNextClosedPosition(CPosition *current)
  {
   this.m_list_pos.Sort(SORT_MODE_POSITION_TIME_CLOSE_MSC);
   class="type">int next=this.m_list_pos.SearchGreat(current);
   class="kw">return this.m_list_pos.At(next);
  }
class="type">void CPositionsControl::Show(CPosition *pos,const class="type">bool chart_redraw=false)
  {
   if(pos!=NULL)
     {
      pos.Show(chart_redraw);
      this.m_current_id=pos.ID();
     }
  }
class="type">void CPositionsControl::HideFirst(const class="type">bool chart_redraw=false)
  {
   CPosition *pos=this.GetFirstClosedPosition();
   if(pos!=NULL)
      pos.Hide(chart_redraw);
  }
class="type">void CPositionsControl::ShowFirst(const class="type">bool chart_redraw=false)
  {
   CPosition *pos=this.GetFirstClosedPosition();
   if(pos==NULL)
      class="kw">return;
   this.HideAllExceptOne(pos.ID());
   this.Show(pos,chart_redraw);
   this.CentersChartByCurrentSelected();
  }
class="type">void CPositionsControl::HideLast(const class="type">bool chart_redraw=false)
  {
   CPosition *pos=this.GetLastClosedPosition();
   if(pos!=NULL)
      pos.Hide(chart_redraw);
  }

class="type">void CPositionsControl::ShowLast(const class="type">bool chart_redraw=false)
  {
class=class="str">"cmt">//--- Get the pointer to the last closed position
   CPosition *pos=this.GetLastClosedPosition();
   if(pos==NULL)
       class="kw">return;
class=class="str">"cmt">//--- Hide labels of all positions except the last one by its ID
   this.HideAllExceptOne(pos.ID(), false);

class=class="str">"cmt">//--- Display the labels of the last position on the chart and
class=class="str">"cmt">//--- center the chart by the labels of the currently selected position
   this.Show(pos,chart_redraw);
   this.CentersChartByCurrentSelected();
  }
class=class="str">"cmt">//+--------------------------------------------------------------------------+
class=class="str">"cmt">//| Display a graphical representation of the current position on the chart   |
class=class="str">"cmt">//+--------------------------------------------------------------------------+
class="type">void CPositionsControl::ShowCurrent(const class="type">bool chart_redraw=false)
  {
class=class="str">"cmt">//--- Get a pointer to the currently selected closed position
   CPosition *curr=this.GetPositionObjByID(this.CurrentSelectedID());
   if(curr==NULL)
       class="kw">return;
class=class="str">"cmt">//--- Display the labels of the current position on the chart and
class=class="str">"cmt">//--- center the chart by the labels of the currently selected position
   this.Show(curr,chart_redraw);
   this.CentersChartByCurrentSelected();
  }
class=class="str">"cmt">//+------------------------------------------------------------------------+
class=class="str">"cmt">//|Display a graphical representation of the previous position on the chart|
class=class="str">"cmt">//+------------------------------------------------------------------------+
class="type">void CPositionsControl::ShowPrev(const class="type">bool chart_redraw=false)
  {
class=class="str">"cmt">//--- Get the pointer to the current and previous positions
   CPosition *curr=this.GetPositionObjByID(this.CurrentSelectedID());
   CPosition *prev=this.GetPrevClosedPosition(curr);
   if(curr==NULL || prev==NULL)
       class="kw">return;
class=class="str">"cmt">//--- Hide the current position, display the previous one and
class=class="str">"cmt">//--- center the chart by the labels of the currently selected position
   curr.Hide();
   this.Show(prev,chart_redraw);
   this.CentersChartByCurrentSelected();
  }
class=class="str">"cmt">//+---------------------------------------------------------------------+
class=class="str">"cmt">//| Display a graphical representation of the next position on the chart|
class=class="str">"cmt">//+---------------------------------------------------------------------+
class="type">void CPositionsControl::ShowNext(const class="type">bool chart_redraw=false)
  {
class=class="str">"cmt">//--- Get the pointer to the current and next positions
   CPosition *curr=this.GetPositionObjByID(this.CurrentSelectedID());
   CPosition *next=this.GetNextClosedPosition(curr);
   if(curr==NULL || next==NULL)
       class="kw">return;
class=class="str">"cmt">//--- Hide the current position, display the next one and
class=class="str">"cmt">//--- center the chart by the labels of the currently selected position
   curr.Hide();
   this.Show(next,chart_redraw);
   this.CentersChartByCurrentSelected();
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Hide the graphical representation                                |
class=class="str">"cmt">//| of all positions except the specified one                         |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPositionsControl::HideAllExceptOne(const class="type">long pos_id,const class="type">bool chart_redraw=false)
  {

class=class="str">"cmt">//--- In a loop by the list of positions
   class="type">int total=this.m_list_pos.Total();
   for(class="type">int i=class="num">0; i<total; i++)
     {
       class=class="str">"cmt">//--- get the pointer to the next position and
       CPosition *pos=this.m_list_pos.At(i);
       if(pos==NULL || pos.ID()==pos_id)
         class="kw">continue;
       class=class="str">"cmt">//--- hide the graphical representation of the position
       pos.Hide();
     }
class=class="str">"cmt">//--- After the loop, update the chart if the flag is set
   if(chart_redraw)
     ::ChartRedraw(this.m_chart_id);
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Center the chart at the currently selected position              |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPositionsControl::CentersChartByCurrentSelected(class="type">void)
  {
class=class="str">"cmt">//--- Get the index of the first visible bar on the chart and the number of visible bars
   class="type">int bar_open=class="num">0, bar_close=class="num">0;
   class="type">int first_visible=(class="type">int)::ChartGetInteger(this.m_chart_id, CHART_FIRST_VISIBLE_BAR);
   class="type">int visible_bars =(class="type">int)::ChartGetInteger(this.m_chart_id, CHART_VISIBLE_BARS);

class=class="str">"cmt">//--- Get the position opening time and use it to get the opening bar
   class="type">class="kw">datetime time_open=this.TimeOpenCurrentSelected();
   if(time_open!=class="num">0)
     bar_open=::iBarShift(this.m_symbol, PERIOD_CURRENT, time_open);

class=class="str">"cmt">//--- Get the position opening time and use it to get the closing bar
   class="type">class="kw">datetime time_close=this.TimeCloseCurrentSelected();
   if(time_close!=class="num">0)
     bar_close=::iBarShift(this.m_symbol, PERIOD_CURRENT, time_close);

class=class="str">"cmt">//--- Calculate the width of the window the deal labels are located in
   class="type">int width=bar_open-bar_close;

class=class="str">"cmt">//--- Calculate the chart offset so that the window with deals is in the center of the chart
   class="type">int shift=(bar_open + visible_bars/class="num">2 - width/class="num">2);

class=class="str">"cmt">//--- If the window width is greater than the chart width, the opening deal is located on the second visible bar
   if(shift-bar_open<class="num">0)
     shift=bar_open+class="num">1;

class=class="str">"cmt">//--- If the deal opening bar is to the left of the first visible bar of the chart
class=class="str">"cmt">//--- or the deal opening bar is to the right of the chart last visible bar,
class=class="str">"cmt">//--- scroll the chart by the calculated offset
   if(bar_open>first_visible || bar_open<first_visible+visible_bars)
     ::ChartNavigate(this.m_chart_id, CHART_CURRENT_POS, first_visible-shift);
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the opening time of the currently selected position       |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">datetime CPositionsControl::TimeOpenCurrentSelected(class="type">void)
  {
   CPosition *pos=this.GetPositionObjByID(this.CurrentSelectedID());
   class="kw">return(pos!=NULL ? pos.Time() : class="num">0);
   }

class="type">class="kw">datetime CPositionsControl::TimeCloseCurrentSelected(class="type">void)
  {
  CPosition *pos=this.GetPositionObjByID(this.CurrentSelectedID());
  class="kw">return(pos!=NULL ? pos.TimeClose() : class="num">0);
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return position type by deal type                                |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">ENUM_POSITION_TYPE CPositionsControl::PositionTypeByDeal(const CDeal *deal)
  {
  if(deal==NULL)
     class="kw">return WRONG_VALUE;
  class="kw">switch(deal.TypeDeal())
    {
     case DEAL_TYPE_BUY  :  class="kw">return POSITION_TYPE_BUY;
     case DEAL_TYPE_SELL :  class="kw">return POSITION_TYPE_SELL;
     class="kw">default             :  class="kw">return WRONG_VALUE;
    }
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Create historical position list                                  |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">bool CPositionsControl::Refresh(class="type">void)
  {
class=class="str">"cmt">//--- If failed to request the history of deals and orders, class="kw">return &class="macro">#x27;false&class="macro">#x27;
  if(!::HistorySelect(class="num">0,::TimeCurrent()))
     class="kw">return false;
   
class=class="str">"cmt">//--- Set the flag of sorting by time in milliseconds for the position list
  this.m_list_pos.Sort(SORT_MODE_POSITION_TIME_MSC);

class=class="str">"cmt">//--- Declare a result variable and a pointer to the position object
  class="type">bool res=true;
  CPosition *pos=NULL;
class=class="str">"cmt">//--- In a loop based on the number of history deals
  class="type">int total=::HistoryDealsTotal();
  for(class="type">int i=total-class="num">1; i>=class="num">0; i--)
    {
     class=class="str">"cmt">//--- get the ticket of the next deal in the list
     class="type">ulong ticket=::HistoryDealGetTicket(i);
     
     class=class="str">"cmt">//--- If the deal ticket is not received, or it is not a buy/sell deal, or if the deal is not for the symbol set for the class, move on
     ENUM_DEAL_TYPE deal_type=(ENUM_DEAL_TYPE)::HistoryDealGetInteger(ticket, DEAL_TYPE);
     if(ticket==class="num">0 || (deal_type!=DEAL_TYPE_BUY && deal_type!=DEAL_TYPE_SELL) || ::HistoryDealGetString(ticket, DEAL_SYMBOL)!=this.m_symbol)
       class="kw">continue;
     
     class=class="str">"cmt">//--- Get the value of the position ID from the deal 
     class="type">long pos_id=::HistoryDealGetInteger(ticket, DEAL_POSITION_ID);
     
     class=class="str">"cmt">//--- If this is a market position, move on 
     if(this.IsMarketPosition(pos_id))
       class="kw">continue;
       
     class=class="str">"cmt">//--- Get the pointer to a position object from the list
     pos=this.GetPositionObjByID(pos_id);

   class=class="str">"cmt">//--- If there is no position with this ID in the list yet 
   if(pos==NULL)
      {
       class=class="str">"cmt">//--- Create a new position object and, if the object could not be created, add &class="macro">#x27;false&class="macro">#x27; to the &class="macro">#x27;res&class="macro">#x27; variable and move on
       pos=new CPosition(pos_id, this.m_symbol);
       if(pos==NULL)
         {
          res &=false;
          class="kw">continue;
         }
       
       class=class="str">"cmt">//--- If failed to add the position object to the list, add &class="macro">#x27;false&class="macro">#x27; to the &class="macro">#x27;res&class="macro">#x27; variable, remove the position object and move on
       if(!this.m_list_pos.InsertSort(pos))
         {
          res &=false;
          class="kw">delete pos;
          class="kw">continue;
         }
      }
      
   class=class="str">"cmt">//--- If the deal object could not be added to the list of deals of the position object, add &class="macro">#x27;false&class="macro">#x27; to the &class="macro">#x27;res&class="macro">#x27; variable and move on
   CDeal *deal=pos.DealAdd(ticket);
   if(deal==NULL)
      {
       res &=false;
       class="kw">continue;
      }
      
   class=class="str">"cmt">//--- All is successful.
   class=class="str">"cmt">//--- Set position properties depending on the deal type
   if(deal.Entry()==DEAL_ENTRY_IN)
      {
       pos.SetTime(deal.Time());
       pos.SetTimeMsc(deal.TimeMsc());
       class="type">ENUM_POSITION_TYPE type=this.PositionTypeByDeal(deal);
       pos.SetTypePosition(type);
       pos.SetPriceOpen(deal.Price());
       pos.SetVolume(deal.Volume());
      }
   if(deal.Entry()==DEAL_ENTRY_OUT || deal.Entry()==DEAL_ENTRY_OUT_BY)
      {
       pos.SetPriceCurrent(deal.Price());
      }
   if(deal.Entry()==DEAL_ENTRY_INOUT)
      {
       class="type">ENUM_POSITION_TYPE type=this.PositionTypeByDeal(deal);
       pos.SetTypePosition(type);
       pos.SetVolume(deal.Volume()-pos.Volume());
      }
   }
class=class="str">"cmt">//--- Set the flag of sorting by close time in milliseconds for the position list
   this.m_list_pos.Sort(SORT_MODE_POSITION_TIME_CLOSE_MSC);
   
class=class="str">"cmt">//--- Return the result of creating and adding a position to the list
   class="kw">return res;
   }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Print the properties of positions and their deals in the journal |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void CPositionsControl::Print(class="type">void)
  {
   class="type">int total=this.m_list_pos.Total();
   for(class="type">int i=class="num">0; i<total; i++)
     {
      CPosition *pos=this.m_list_pos.At(i);
      if(pos==NULL)

      class="kw">continue;
      pos.Print();
   }
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Return the description of the currently selected position         |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">class="kw">string CPositionsControl::CurrentSelectedDescription(class="type">void)
  {
   CPosition *pos=this.GetPositionObjByID(this.CurrentSelectedID());
   class="kw">return(pos!=NULL ? pos.Tooltip() : NULL);
  }

class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//|                                                 PositionViewer.mq5 |
class=class="str">"cmt">//|                    Copyright class="num">2024, MetaQuotes Ltd. |
class=class="str">"cmt">//|                                     [MQL5官方文档] |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="macro">#class="kw">property copyright "Copyright class="num">2024, MetaQuotes Ltd."
class="macro">#class="kw">property link      "[MQL5官方文档]
class="macro">#class="kw">property version   "class="num">1.00"
class="macro">#include <PositionsViewer\PositionsControl.mqh>
class="macro">#define   KEY_LEFT   class="num">37
class="macro">#define   KEY_RIGHT  class="num">39
class="macro">#define   KEY_UP     class="num">38
class="macro">#define   KEY_DOWN   class="num">40
class=class="str">"cmt">//--- global variables
CPositionsControl ExtPositions;      class=class="str">"cmt">// Historical position class instance 
class="type">bool               ExtChartScroll;   class=class="str">"cmt">// Chart scrolling flag
class="type">bool               ExtChartHistory; class=class="str">"cmt">// Trading history display flag
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Expert initialization function                                     |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">int OnInit()
  {
class=class="str">"cmt">//--- Save the chart auto scroll flag and disable auto scroll
   ExtChartScroll=ChartGetInteger(ChartID(), CHART_AUTOSCROLL);
   ChartSetInteger(ChartID(), CHART_AUTOSCROLL, false);

class=class="str">"cmt">//--- Save the trading history display flag and disable history display
   ExtChartHistory=ChartGetInteger(ChartID(), CHART_SHOW_TRADE_HISTORY);

ChartSetInteger(ChartID(), CHART_SHOW_TRADE_HISTORY, false);

class=class="str">"cmt">//--- Create a list of closed positions and display the list creation time in the journal
class="type">ulong start=GetTickCount64();
Print("Reading trade history and creating a list of historical positions");
ExtPositions.Refresh();
class="type">ulong msec=GetTickCount64()-start;
PrintFormat("List of historical positions created in %I64u msec", msec);
class=class="str">"cmt">//ExtPositions.Print();

class=class="str">"cmt">//--- If this is a launch after changing the chart period, display the currently selected position
if(UninitializeReason()==REASON_CHARTCHANGE)
   ExtPositions.ShowCurrent(true);
class=class="str">"cmt">//--- otherwise, display the last closed position
else
   ExtPositions.ShowLast(true);
class=class="str">"cmt">//--- Successful
class="kw">return(INIT_SUCCEEDED);
}
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| Expert deinitialization function                                 |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void OnDeinit(const class="type">int reason)
  {
class=class="str">"cmt">//--- Restore the auto scroll and trading history class="kw">property initial value and remove chart comments
   ChartSetInteger(ChartID(), CHART_AUTOSCROLL, ExtChartScroll);
   ChartSetInteger(ChartID(), CHART_SHOW_TRADE_HISTORY, ExtChartHistory);
   Comment("");
  }
class=class="str">"cmt">//+------------------------------------------------------------------+
class=class="str">"cmt">//| TradeTransaction function                                        |
class=class="str">"cmt">//+------------------------------------------------------------------+
class="type">void OnTradeTransaction(const MqlTradeTransaction& trans,
                        const class="type">MqlTradeRequest& request,
                        const class="type">MqlTradeResult& result)
  {
class=class="str">"cmt">//--- In case of a transaction type, add a new deal
   if(trans.type==TRADE_TRANSACTION_DEAL_ADD)
     {
      class=class="str">"cmt">//--- update the list of positions and their deals
      ExtPositions.Refresh();
      
      class=class="str">"cmt">//--- Get the new deal ticket
      class="type">ulong deal_ticket=trans.deal;
      
      class=class="str">"cmt">//--- If the ticket is not received or failed to get the method for updating the position from the deal properties, leave
      class="type">long entry;
      if(deal_ticket==class="num">0 || !HistoryDealGetInteger(deal_ticket, DEAL_ENTRY, entry))
         class="kw">return;
      class=class="str">"cmt">//--- If this is an exit deal, display the last closed position on the chart
      if(entry==DEAL_ENTRY_OUT || entry==DEAL_ENTRY_OUT_BY)
         ExtPositions.ShowLast(true);
     }
  }

class="type">void OnChartEvent(const class="type">int id,
                   const class="type">long &lparam,
                   const class="type">class="kw">double &dparam,
                   const class="type">class="kw">string &sparam)
  {
class=class="str">"cmt">//--- If the event ID is pressing a key
   if(id==CHARTEVENT_KEYDOWN)
     {
      class=class="str">"cmt">//--- If the Ctrl key is held down
      if(TerminalInfoInteger(TERMINAL_KEYSTATE_CONTROL)<class="num">0)
        {
         class=class="str">"cmt">//--- If the chart scrolling with keys is active, disable it
         if((class="type">bool)ChartGetInteger(class="num">0, CHART_KEYBOARD_CONTROL))
            ChartSetInteger(class="num">0, CHART_KEYBOARD_CONTROL, false);
         
         class=class="str">"cmt">//--- If the left key is pressed, display the previous closed position
         if(lparam==KEY_LEFT)
            ExtPositions.ShowPrev(true);
         
         class=class="str">"cmt">//--- If the right key is pressed, display the next closed position
         if(lparam==KEY_RIGHT)
            ExtPositions.ShowNext(true);
         
         class=class="str">"cmt">//--- If the up key is pressed, display the first closed position
         if(lparam==KEY_UP)
            ExtPositions.ShowFirst(true);
         
         class=class="str">"cmt">//--- If the down key is pressed, display the last closed position
         if(lparam==KEY_DOWN)
            ExtPositions.ShowLast(true);
        }
      class=class="str">"cmt">//--- If Ctrl is not pressed,
      else
        {
         class=class="str">"cmt">//--- If the chart scrolling with keys is inactive, enable it
         if(!(class="type">bool)ChartGetInteger(class="num">0, CHART_KEYBOARD_CONTROL))
            ChartSetInteger(class="num">0, CHART_KEYBOARD_CONTROL, true);
        }
     }
class=class="str">"cmt">//--- If the Shift key is held down, display a description of the current position in the chart comment
   if(TerminalInfoInteger(TERMINAL_KEYSTATE_SHIFT)<class="num">0)
      Comment(ExtPositions.CurrentSelectedDescription());
class=class="str">"cmt">//--- If the Shift key is not pressed, check the comment on the chart and class="kw">delete it if it is not empty
   else
     {

if(ChartGetString(ChartID(),CHART_COMMENT)!=NULL)
   Comment("");
   }
class=class="str">"cmt">//--- If the horizontal scale of the chart has changed, display the currently selected position
  class="kw">static class="type">int scale=-class="num">1;
  if(id==CHARTEVENT_CHART_CHANGE)
   {
    class="type">int scale_curr=(class="type">int)ChartGetInteger(ChartID(), CHART_SCALE);
    if(scale!=scale_curr)
      {
       ExtPositions.ShowCurrent(true);
       scale=scale_curr;
      }
   }
}