【MQL4】パーシャルクローズ(部分決済)の進行状況をチャート上に表示する確認専用インジケーターの作り方

//+------------------------------------------------------------------+
//|                                PartialCloseProgressIndicator.mq4  |
//|                     Copyright 2026, FX-EA System Project Creator |
//|                        https://creator.fx-ea-system-project.com/ |
//+------------------------------------------------------------------+
#property copyright "Copyright 2026, FX-EA System Project Creator"
#property link      "https://creator.fx-ea-system-project.com/"
#property version   "1.00"
#property strict
#property indicator_chart_window
#property indicator_buffers 0

input int    InpStage1Pips    = 150; //第1段階の利益しきい値(pips)
input double InpStage1Percent = 50.0; //第1段階の推奨決済割合(%)
input int    InpStage2Pips    = 300; //第2段階の利益しきい値(pips)
input double InpStage2Percent = 50.0; //第2段階の推奨決済割合(残量に対する%)
input int    InpMagicFilter   = 0;    //対象のマジックナンバー(0なら全てのポジションを対象にする)
input int    InpMaxRows       = 10;   //表示する最大行数
input int    InpPanelX        = 10;   //パネルのX座標(ピクセル)
input int    InpPanelY        = 20;   //パネルのY座標(ピクセル)

double PointAdjust()
  {
   double point = _Point;
   if(_Digits == 3 || _Digits == 5)
      point *= 10;
   return(point);
  }

double NormalizeLotsToStep(double lots)
  {
   double step   = MarketInfo(_Symbol, MODE_LOTSTEP);
   double minLot = MarketInfo(_Symbol, MODE_MINLOT);
   double rounded = MathFloor(lots / step) * step;
   if(rounded < minLot)
      rounded = 0;
   return(NormalizeDouble(rounded, 2));
  }

double GetProfitPips(double point)
  {
   if(OrderType() == OP_BUY)
      return((Bid - OrderOpenPrice()) / point);
   if(OrderType() == OP_SELL)
      return((OrderOpenPrice() - Ask) / point);
   return(0);
  }

string StageText(double profitPips, double lots)
  {
   if(profitPips < InpStage1Pips)
      return(StringFormat("第1段階まで %.1f pips", InpStage1Pips - profitPips));

   if(profitPips < InpStage2Pips)
     {
      double closeLots = NormalizeLotsToStep(lots * (InpStage1Percent / 100.0));
      return(StringFormat("第1段階到達済(推奨決済 %.2f lot) / 第2段階まで %.1f pips",
                          closeLots, InpStage2Pips - profitPips));
     }

   double closeLots2 = NormalizeLotsToStep(lots * (InpStage2Percent / 100.0));
   return(StringFormat("第2段階到達済(推奨決済 %.2f lot) / 以降はトレーリング推奨", closeLots2));
  }

void ClearPanel()
  {
   for(int i = ObjectsTotal(0, -1, OBJ_LABEL) - 1; i >= 0; i--)
     {
      string name = ObjectName(0, i, -1, OBJ_LABEL);
      if(StringFind(name, "PCPI_") == 0)
         ObjectDelete(0, name);
     }
  }

void DrawPanel()
  {
   ClearPanel();
   double point = PointAdjust();

   ObjectCreate(0, "PCPI_Title", OBJ_LABEL, 0, 0, 0);
   ObjectSetInteger(0, "PCPI_Title", OBJPROP_CORNER, CORNER_LEFT_UPPER);
   ObjectSetInteger(0, "PCPI_Title", OBJPROP_XDISTANCE, InpPanelX);
   ObjectSetInteger(0, "PCPI_Title", OBJPROP_YDISTANCE, InpPanelY);
   ObjectSetString(0, "PCPI_Title", OBJPROP_TEXT, "パーシャルクローズ進行状況(確認専用)");
   ObjectSetInteger(0, "PCPI_Title", OBJPROP_COLOR, clrWhite);

   int row = 0;
   for(int i = 0; i < OrdersTotal() && row < InpMaxRows; i++)
     {
      if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
         continue;
      if(OrderSymbol() != _Symbol)
         continue;
      if(OrderType() != OP_BUY && OrderType() != OP_SELL)
         continue;
      if(InpMagicFilter != 0 && OrderMagicNumber() != InpMagicFilter)
         continue;

      double profitPips = GetProfitPips(point);
      string line = "#" + (string)OrderTicket() + " " +
                    (OrderType() == OP_BUY ? "買い " : "売り ") +
                    DoubleToString(profitPips, 1) + "pips: " +
                    StageText(profitPips, OrderLots());

      string objName = "PCPI_Row" + (string)row;
      ObjectCreate(0, objName, OBJ_LABEL, 0, 0, 0);
      ObjectSetInteger(0, objName, OBJPROP_CORNER, CORNER_LEFT_UPPER);
      ObjectSetInteger(0, objName, OBJPROP_XDISTANCE, InpPanelX);
      ObjectSetInteger(0, objName, OBJPROP_YDISTANCE, InpPanelY + 16 * (row + 1));
      ObjectSetString(0, objName, OBJPROP_TEXT, line);
      ObjectSetInteger(0, objName, OBJPROP_COLOR,
                       profitPips >= InpStage2Pips ? clrLime :
                       profitPips >= InpStage1Pips ? clrYellow : clrWhite);
      row++;
     }

   if(row == 0)
     {
      ObjectCreate(0, "PCPI_Empty", OBJ_LABEL, 0, 0, 0);
      ObjectSetInteger(0, "PCPI_Empty", OBJPROP_CORNER, CORNER_LEFT_UPPER);
      ObjectSetInteger(0, "PCPI_Empty", OBJPROP_XDISTANCE, InpPanelX);
      ObjectSetInteger(0, "PCPI_Empty", OBJPROP_YDISTANCE, InpPanelY + 16);
      ObjectSetString(0, "PCPI_Empty", OBJPROP_TEXT, "対象のポジションはありません");
      ObjectSetInteger(0, "PCPI_Empty", OBJPROP_COLOR, clrGray);
     }
  }

int OnInit()
  {
   return(INIT_SUCCEEDED);
  }

int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
   DrawPanel();
   return(rates_total);
  }

void OnDeinit(const int reason)
  {
   ClearPanel();
   ObjectDelete(0, "PCPI_Title");
   ObjectDelete(0, "PCPI_Empty");
  }
//+------------------------------------------------------------------+