【MQL4】証拠金維持率をチャート上に常時表示するインジケーターのアイデア｜危険水域を色分けして警告

//+------------------------------------------------------------------+
//|                                  MarginLevelPanel.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

#define LABEL_NAME "MarginLevelPanel"

input int WarningLevel = 200;   //黄色警告ラインになる維持率(%)
input int DangerLevel  = 100;   //赤色危険ラインになる維持率(%)

int OnInit()
  {
   ObjectCreate(0, LABEL_NAME, OBJ_LABEL, 0, 0, 0);
   ObjectSetInteger(0, LABEL_NAME, OBJPROP_CORNER, CORNER_LEFT_UPPER);
   ObjectSetInteger(0, LABEL_NAME, OBJPROP_XDISTANCE, 10);
   ObjectSetInteger(0, LABEL_NAME, OBJPROP_YDISTANCE, 20);
   EventSetTimer(1);
   UpdatePanel();
   return(INIT_SUCCEEDED);
  }

void OnDeinit(const int reason)
  {
   EventKillTimer();
   ObjectDelete(0, LABEL_NAME);
  }

void OnTimer()
  {
   UpdatePanel();
  }

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[])
  {
   UpdatePanel();
   return(rates_total);
  }

//+------------------------------------------------------------------+
//| 保有中の市場ポジション数を数える(未決済の成行注文のみ)             |
//+------------------------------------------------------------------+
int CountOpenPositions()
  {
   int count = 0;
   for(int i = 0; i < OrdersTotal(); i++)
     {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES) && OrderType() <= OP_SELL)
         count++;
     }
   return(count);
  }

void UpdatePanel()
  {
   if(CountOpenPositions() == 0)
     {
      ObjectSetText(LABEL_NAME, "証拠金維持率: ポジションなし", 12, "Arial", clrGray);
      return;
     }

   double level = AccountInfoDouble(ACCOUNT_MARGIN_LEVEL);
   color  c;

   if(level <= DangerLevel)
      c = clrRed;
   else if(level <= WarningLevel)
      c = clrOrange;
   else
      c = clrLime;

   string text = StringFormat("証拠金維持率: %.1f%%", level);
   ObjectSetText(LABEL_NAME, text, 14, "Arial", c);
  }