MQL4 オブジェクト関数リファレンス｜ObjectCreate・水平線・ラベル・ボタン・SL/TPライン描画

// 旧形式
bool ObjectCreate(
   string name,       // オブジェクト名（一意）
   int    type,       // オブジェクトタイプ（OBJ_〇〇）
   int    window,     // ウィンドウ番号（0=メインチャート）
   datetime time1,    // 第1アンカーの時刻
   double price1,     // 第1アンカーの価格
   datetime time2 = 0, double price2 = 0,  // 第2アンカー（任意）
   datetime time3 = 0, double price3 = 0   // 第3アンカー（任意）
);

// 新形式（ビルド600+）
bool ObjectCreate(
   long     chart_id, // チャートID（0=現在）
   string   name,
   ENUM_OBJECT type,
   int      sub_window,
   datetime time1, double price1,
   datetime time2 = 0, double price2 = 0,
   datetime time3 = 0, double price3 = 0
);

// 水平線
void DrawHLine(string name, double price, color clr, int width = 1)
  {
   if(ObjectFind(name) >= 0)
      ObjectDelete(name);

   ObjectCreate(name, OBJ_HLINE, 0, 0, price);
   ObjectSet(name, OBJPROP_COLOR, clr);
   ObjectSet(name, OBJPROP_WIDTH, width);
   ObjectSet(name, OBJPROP_STYLE, STYLE_SOLID);
  }

// 垂直線
void DrawVLine(string name, datetime time, color clr)
  {
   if(ObjectFind(name) >= 0)
      ObjectDelete(name);

   ObjectCreate(name, OBJ_VLINE, 0, time, 0);
   ObjectSet(name, OBJPROP_COLOR, clr);
   ObjectSet(name, OBJPROP_STYLE, STYLE_DOT);
  }

// トレンドライン
void DrawTrendLine(string name, datetime t1, double p1,
                    datetime t2, double p2, color clr)
  {
   if(ObjectFind(name) >= 0)
      ObjectDelete(name);

   ObjectCreate(name, OBJ_TREND, 0, t1, p1, t2, p2);
   ObjectSet(name, OBJPROP_COLOR, clr);
   ObjectSet(name, OBJPROP_WIDTH, 2);
   ObjectSet(name, OBJPROP_RAY, false);  // 延長しない
  }

void DrawRectangle(string name, datetime t1, double p1,
                    datetime t2, double p2, color clr)
  {
   if(ObjectFind(name) >= 0)
      ObjectDelete(name);

   ObjectCreate(name, OBJ_RECTANGLE, 0, t1, p1, t2, p2);
   ObjectSet(name, OBJPROP_COLOR, clr);
   ObjectSet(name, OBJPROP_STYLE, STYLE_SOLID);
   ObjectSet(name, OBJPROP_BACK, true);  // 背景に表示
  }

void CreateLabel(string name, int x, int y, string text,
                  color clr, int fontSize = 10)
  {
   if(ObjectFind(name) >= 0)
      ObjectDelete(name);

   ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
   ObjectSet(name, OBJPROP_XDISTANCE, x);
   ObjectSet(name, OBJPROP_YDISTANCE, y);
   ObjectSetText(name, text, fontSize, "Arial", clr);

   // アンカー位置（CORNER_LEFT_UPPER がデフォルト）
   ObjectSet(name, OBJPROP_CORNER, CORNER_LEFT_UPPER);
  }

// 情報パネルの例
void CreateInfoPanel()
  {
   string prefix = "Info_";
   int y = 20;
   int lineHeight = 18;

   CreateLabel(prefix + "Title", 10, y, "=== EA Status ===", clrWhite, 11);
   y += lineHeight + 5;

   CreateLabel(prefix + "Balance", 10, y,
               "残高: " + DoubleToStr(AccountBalance(), 0), clrLime);
   y += lineHeight;

   CreateLabel(prefix + "Equity", 10, y,
               "有効証拠金: " + DoubleToStr(AccountEquity(), 0), clrLime);
   y += lineHeight;

   CreateLabel(prefix + "Spread", 10, y,
               "スプレッド: " + IntegerToString((int)MarketInfo(Symbol(), MODE_SPREAD)), clrYellow);
  }

void CreateButton(string name, int x, int y, int width, int height,
                   string text, color textClr, color bgClr)
  {
   if(ObjectFind(0, name) >= 0)
      ObjectDelete(0, name);

   ObjectCreate(0, name, OBJ_BUTTON, 0, 0, 0);
   ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x);
   ObjectSetInteger(0, name, OBJPROP_YDISTANCE, y);
   ObjectSetInteger(0, name, OBJPROP_XSIZE, width);
   ObjectSetInteger(0, name, OBJPROP_YSIZE, height);
   ObjectSetString(0, name, OBJPROP_TEXT, text);
   ObjectSetInteger(0, name, OBJPROP_COLOR, textClr);
   ObjectSetInteger(0, name, OBJPROP_BGCOLOR, bgClr);
   ObjectSetInteger(0, name, OBJPROP_FONTSIZE, 10);
  }

// 個別削除
void DeleteObject(string name)
  {
   if(ObjectFind(name) >= 0)
     {
      ObjectDelete(name);
      Print("オブジェクト削除: ", name);
     }
  }

// プレフィックスで一括削除
void DeleteAllByPrefix(string prefix)
  {
   int total = ObjectsTotal();
   for(int i = total - 1; i >= 0; i--)
     {
      string name = ObjectName(i);
      if(StringFind(name, prefix) == 0)
         ObjectDelete(name);
     }
  }

// ObjectsDeleteAll（ビルド600+の新形式）
void CleanupAll()
  {
   // 全オブジェクト削除
   ObjectsDeleteAll(0);  // chart_id=0（現在のチャート）

   // 特定のプレフィックスだけ削除
   ObjectsDeleteAll(0, "MyEA_");

   // 特定ウィンドウの特定タイプだけ削除
   ObjectsDeleteAll(0, "MyEA_", 0, OBJ_HLINE);
  }

// トレンドラインの特定時刻での価格を取得
void GetTrendLinePrice()
  {
   string lineName = "TrendLine1";

   // トレンドライン上の現在時刻の価格を計算
   double price = ObjectGetValueByTime(0, lineName, TimeCurrent());
   Print("トレンドライン価格（現在）: ", price);

   // 特定価格に到達する時刻を取得
   datetime time = ObjectGetTimeByValue(0, lineName, Ask);
   if(time > 0)
      Print("Ask到達予想時刻: ", TimeToStr(time));
  }

void DrawSLTPLines(int ticket)
  {
   if(!OrderSelect(ticket, SELECT_BY_TICKET))
      return;

   string prefix = "SLTP_" + IntegerToString(ticket) + "_";
   double sl = OrderStopLoss();
   double tp = OrderTakeProfit();
   double entry = OrderOpenPrice();

   // エントリーライン
   DrawHLine(prefix + "Entry", entry, clrWhite, 1);
   ObjectSetText(prefix + "Entry",
                  "Entry: " + DoubleToStr(entry, Digits), 8);

   // SLライン
   if(sl > 0)
     {
      DrawHLine(prefix + "SL", sl, clrRed, 2);

      double slPips = MathAbs(entry - sl) / Point;
      ObjectSetText(prefix + "SL",
                     "SL: " + DoubleToStr(sl, Digits)
                     + " (" + DoubleToStr(slPips, 0) + "pts)", 8);
     }

   // TPライン
   if(tp > 0)
     {
      DrawHLine(prefix + "TP", tp, clrLime, 2);

      double tpPips = MathAbs(tp - entry) / Point;
      ObjectSetText(prefix + "TP",
                     "TP: " + DoubleToStr(tp, Digits)
                     + " (" + DoubleToStr(tpPips, 0) + "pts)", 8);
     }
  }

// SL/TPラインの削除
void RemoveSLTPLines(int ticket)
  {
   string prefix = "SLTP_" + IntegerToString(ticket) + "_";
   DeleteAllByPrefix(prefix);
  }