【MQL5】OnChartEvent関数について

void OnChartEvent(
   const int id,         // イベントID
   const long &lparam,   // long型イベントパラメータ
   const double &dparam, // double型イベントパラメータ
   const string &sparam  // string型イベントパラメータ
);

// OnChartEvent関数は、チャート上で発生するイベントを処理します
void OnChartEvent(const int id, const long &lparam, const double &dparam, const string &sparam)
{
    // キーボードのキーが押されたイベント
    if(id == CHARTEVENT_KEYDOWN)
    {
        PrintFormat("キーが押されました: %d", lparam);
    }
    // チャート上でマウスがクリックされたイベント
    else if(id == CHARTEVENT_CLICK)
    {
        PrintFormat("チャート上でマウスがクリックされました: x = %d, y = %f", lparam, dparam);
    }
    // グラフィックオブジェクトがクリックされたイベント
    else if(id == CHARTEVENT_OBJECT_CLICK)
    {
        PrintFormat("グラフィックオブジェクト '%s' がクリックされました", sparam);
    }
}

//+------------------------------------------------------------------+
//|                                          OnChartEvent_Sample.mq5 |
//|                        Copyright 2018, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2000-2024, MetaQuotes Ltd."
#property link     "https://www.mql5.com"
#property version   "1.00"
#property description "Sample chart event listener and custom events generator"
//--- サービスキーID
#define KEY_NUMPAD_5       12
#define KEY_LEFT           37
#define KEY_UP             38
#define KEY_RIGHT          39
#define KEY_DOWN           40
#define KEY_NUMLOCK_DOWN   98
#define KEY_NUMLOCK_LEFT  100
#define KEY_NUMLOCK_5     101
#define KEY_NUMLOCK_RIGHT 102
#define KEY_NUMLOCK_UP    104
//+------------------------------------------------------------------+
//| エキスパート初期化関数                                                 |
//+------------------------------------------------------------------+
int OnInit()
 {
//--- CHARTEVENT_CUSTOM定数値を表示する
  Print("CHARTEVENT_CUSTOM=",CHARTEVENT_CUSTOM);
//---
  Print("Launched the EA ",MQLInfoString(MQL_PROGRAM_NAME));
//--- チャートオブジェクト作成イベントの受信フラグを設定する
  ChartSetInteger(ChartID(),CHART_EVENT_OBJECT_CREATE,true);
//--- チャートオブジェクト削除イベントの受信フラグを設定する
  ChartSetInteger(ChartID(),CHART_EVENT_OBJECT_DELETE,true);
//--- マウスホイールスクロールメッセージの有効化
  ChartSetInteger(0,CHART_EVENT_MOUSE_WHEEL,1);
//--- チャートプロパティの強制更新により、イベント処理の準備が整う
  ChartRedraw();
//---
  return(INIT_SUCCEEDED);
 }
//+------------------------------------------------------------------+
//| エキスパートティック関数                                                 |
//+------------------------------------------------------------------+
void OnTick()
 {
//--- カスタムイベント生成のためのティックカウンタ
  static int tick_counter=0;
//--- 累積されたティックをこの値で除算する
  int simple_number=113;
//---
  tick_counter++;
//--- ティックカウンタがsimple_numberの倍数である場合、カスタムイベントを送信する
  if(tick_counter%simple_number==0)
    {
    //--- カスタムイベントIDを0〜65535で形成する
    ushort custom_event_id=ushort(tick_counter%65535);
    //---  カスタムイベントを送信し、パラメータを記入する
    EventChartCustom(ChartID(),custom_event_id,tick_counter,SymbolInfoDouble(Symbol(),SYMBOL_BID),__FUNCTION__);
    //--- 結果例を分析するためにログに追加する
    Print(__FUNCTION__,": Sent a custom event ID=",custom_event_id);
    }
//---    
 }
//+------------------------------------------------------------------+
//| ChartEvent 関数                                                   |
//+------------------------------------------------------------------+
void OnChartEvent(const int id,
                const long &lparam,
                const double &dparam,
                const string &sparam)
 {
//--- キーの押下
  if(id==CHARTEVENT_KEYDOWN)
    {
    switch((int)lparam)
       {
        case KEY_NUMLOCK_LEFT: Print("Pressed KEY_NUMLOCK_LEFT");   break;
        case KEY_LEFT:         Print("Pressed KEY_LEFT");           break;
        case KEY_NUMLOCK_UP:   Print("Pressed KEY_NUMLOCK_UP");     break;
        case KEY_UP:           Print("Pressed KEY_UP");             break;
        case KEY_NUMLOCK_RIGHT: Print("Pressed KEY_NUMLOCK_RIGHT"); break;
        case KEY_RIGHT:         Print("Pressed KEY_RIGHT");         break;
        case KEY_NUMLOCK_DOWN: Print("Pressed KEY_NUMLOCK_DOWN");   break;
        case KEY_DOWN:         Print("Pressed KEY_DOWN");           break;
        case KEY_NUMPAD_5:     Print("Pressed KEY_NUMPAD_5");       break;
        case KEY_NUMLOCK_5:     Print("Pressed KEY_NUMLOCK_5");     break;
        default:               Print("Pressed unlisted key");
       }
    }
//--- チャートの左クリック
  if(id==CHARTEVENT_CLICK)
    Print("Mouse click coordinates on a chart: x = ",lparam,"  y = ",dparam);
//--- グラフィックオブジェクトのクリック
  if(id==CHARTEVENT_OBJECT_CLICK)
    Print("Clicking a mouse button on an object named '"+sparam+"'");
//--- オブジェクト削除
  if(id==CHARTEVENT_OBJECT_DELETE)
    Print("Removed object named ",sparam);
//--- オブジェクト作成
  if(id==CHARTEVENT_OBJECT_CREATE)
    Print("Created object named ",sparam);
//--- オブジェクト変更
  if(id==CHARTEVENT_OBJECT_CHANGE)
    Print("Changed object named ",sparam);
//--- オブジェクト移動またはアンカーポイント座標変更
  if(id==CHARTEVENT_OBJECT_DRAG)
    Print("Changing anchor points of object named ",sparam);
//--- Editグラフィックオブジェクトのテキスト編集
  if(id==CHARTEVENT_OBJECT_ENDEDIT)
    Print("Changed text in Edit object ",sparam,"  id=",id);
//--- マウス移動イベント
  if(id==CHARTEVENT_MOUSE_MOVE)
    Comment("POINT: ",(int)lparam,",",(int)dparam,"\n",MouseState((uint)sparam));
  if(id==CHARTEVENT_MOUSE_WHEEL)
    {
    //--- このイベントのマウスボタンとホイールの状態を考察する
    int flg_keys = (int)(lparam>>32);         // Ctrlキー、Shiftキー、マウスボタンの状態のフラグ
    int x_cursor = (int)(short)lparam;         // マウスホイールイベントが発生したX座標
    int y_cursor = (int)(short)(lparam>>16);   // マウスホイールイベントが発生したY座標
    int delta    = (int)dparam;               // マウススクロールの合計値（+120または -120 が越されるとトリガされる）
    //--- フラグの処理
    string str_keys="";
    if((flg_keys&0x0001)!=0)
        str_keys+="LMOUSE ";
    if((flg_keys&0x0002)!=0)
        str_keys+="RMOUSE ";
    if((flg_keys&0x0004)!=0)
        str_keys+="SHIFT ";
    if((flg_keys&0x0008)!=0)
        str_keys+="CTRL ";
    if((flg_keys&0x0010)!=0)
        str_keys+="MMOUSE ";
    if((flg_keys&0x0020)!=0)
        str_keys+="X1MOUSE ";
    if((flg_keys&0x0040)!=0)
        str_keys+="X2MOUSE ";
 
    if(str_keys!="")
        str_keys=", keys='"+StringSubstr(str_keys,0,StringLen(str_keys)-1)+"'";
    PrintFormat("%s: X=%d, Y=%d, delta=%d%s",EnumToString(CHARTEVENT_MOUSE_WHEEL),x_cursor,y_cursor,delta,str_keys);
    }
//--- プロパティダイアログウィンドウでのチャートのサイズおよびプロパティ変更イベント
  if(id==CHARTEVENT_CHART_CHANGE)
    Print("Changing the chart size or properties");
//--- カスタムイベント
  if(id>CHARTEVENT_CUSTOM)
    PrintFormat("Custom event ID=%d, lparam=%d, dparam=%G, sparam=%s",id,lparam,dparam,sparam);
 }
//+------------------------------------------------------------------+
//| マウスの状態                                                        |
//+------------------------------------------------------------------+
string MouseState(uint state)
 {
  string res;
  res+="\nML: "   +(((state& 1)== 1)?"DN":"UP");   // 左ボタン
  res+="\nMR: "   +(((state& 2)== 2)?"DN":"UP");   // 右ボタン
  res+="\nMM: "   +(((state&16)==16)?"DN":"UP");   // 中央ボタン
  res+="\nMX: "   +(((state&32)==32)?"DN":"UP");   // 追加ボタン１
  res+="\nMY: "   +(((state&64)==64)?"DN":"UP");   // 追加ボタン 2
  res+="\nSHIFT: "+(((state& 4)== 4)?"DN":"UP");   // シフト キー
  res+="\nCTRL: " +(((state& 8)== 8)?"DN":"UP");   // control キー
  return(res);
 }

//--- サービスキーIDの定義
#define KEY_NUMPAD_5       12   // キーボードのテンキー5キー
#define KEY_LEFT           37   // キーボードの左矢印キー
#define KEY_UP             38   // キーボードの上矢印キー
#define KEY_RIGHT          39   // キーボードの右矢印キー
#define KEY_DOWN           40   // キーボードの下矢印キー
#define KEY_NUMLOCK_DOWN   98   // キーボードのNumLockと下矢印キー
#define KEY_NUMLOCK_LEFT  100   // キーボードのNumLockと左矢印キー
#define KEY_NUMLOCK_5     101   // キーボードのNumLockとテンキー5キー
#define KEY_NUMLOCK_RIGHT 102   // キーボードのNumLockと右矢印キー
#define KEY_NUMLOCK_UP    104   // キーボードのNumLockと上矢印キー

//+------------------------------------------------------------------+
//| エキスパート初期化関数                                                 |
//+------------------------------------------------------------------+
int OnInit()
 {
    //--- CHARTEVENT_CUSTOM定数値を表示する
    Print("CHARTEVENT_CUSTOM=",CHARTEVENT_CUSTOM);

    //--- エキスパートアドバイザーの起動メッセージを表示する
    Print("Launched the EA ", MQLInfoString(MQL_PROGRAM_NAME));

    //--- チャートオブジェクト作成イベントの受信フラグを設定する
    ChartSetInteger(ChartID(), CHART_EVENT_OBJECT_CREATE, true);

    //--- チャートオブジェクト削除イベントの受信フラグを設定する
    ChartSetInteger(ChartID(), CHART_EVENT_OBJECT_DELETE, true);

    //--- マウスホイールスクロールメッセージの有効化
    ChartSetInteger(0, CHART_EVENT_MOUSE_WHEEL, 1);

    //--- チャートプロパティの強制更新により、イベント処理の準備が整う
    ChartRedraw();

    //--- 初期化成功のステータスを返す
    return(INIT_SUCCEEDED);
 }

void OnTick()
{
    //--- カスタムイベント生成のためのティックカウンタ
    static int tick_counter = 0;

    //--- 累積されたティックをこの値で除算する
    int simple_number = 113;

    //--- ティックカウンタを増加
    tick_counter++;

    //--- ティックカウンタがsimple_numberの倍数である場合、カスタムイベントを送信する
    if(tick_counter % simple_number == 0)
    {
        //--- カスタムイベントIDを0〜65535で形成する
        ushort custom_event_id = ushort(tick_counter % 65535);

        //--- カスタムイベントを送信し、パラメータを記入する
        EventChartCustom(ChartID(), custom_event_id, tick_counter, SymbolInfoDouble(Symbol(), SYMBOL_BID), __FUNCTION__);

        //--- 結果例を分析するためにログに追加する
        Print(__FUNCTION__, ": Sent a custom event ID=", custom_event_id);
    }
}

//+------------------------------------------------------------------+
//| ChartEvent 関数                                                   |
//+------------------------------------------------------------------+
void OnChartEvent(const int id,
                const long &lparam,
                const double &dparam,
                const string &sparam)

{
    //--- キーの押下
    if(id == CHARTEVENT_KEYDOWN)
    {
        switch((int)lparam)
        {
            case KEY_NUMLOCK_LEFT:  Print("Pressed KEY_NUMLOCK_LEFT");   break;
            case KEY_LEFT:          Print("Pressed KEY_LEFT");           break;
            case KEY_NUMLOCK_UP:    Print("Pressed KEY_NUMLOCK_UP");     break;
            case KEY_UP:            Print("Pressed KEY_UP");             break;
            case KEY_NUMLOCK_RIGHT: Print("Pressed KEY_NUMLOCK_RIGHT");  break;
            case KEY_RIGHT:         Print("Pressed KEY_RIGHT");          break;
            case KEY_NUMLOCK_DOWN:  Print("Pressed KEY_NUMLOCK_DOWN");   break;
            case KEY_DOWN:          Print("Pressed KEY_DOWN");           break;
            case KEY_NUMPAD_5:      Print("Pressed KEY_NUMPAD_5");       break;
            case KEY_NUMLOCK_5:     Print("Pressed KEY_NUMLOCK_5");      break;
            default:                Print("Pressed unlisted key");
        }
    }
}

//--- チャートの左クリック
if(id == CHARTEVENT_CLICK)
    Print("Mouse click coordinates on a chart: x = ", lparam, "  y = ", dparam);

//--- グラフィックオブジェクトのクリック
if(id == CHARTEVENT_OBJECT_CLICK)
    Print("Clicking a mouse button on an object named '", sparam, "'");

//--- オブジェクト削除
if(id == CHARTEVENT_OBJECT_DELETE)
    Print("Removed object named ", sparam);

//--- オブジェクト作成
if(id == CHARTEVENT_OBJECT_CREATE)
    Print("Created object named ", sparam);

//--- オブジェクト変更
if(id == CHARTEVENT_OBJECT_CHANGE)
    Print("Changed object named ", sparam);

//--- オブジェクト移動またはアンカーポイント座標変更
if(id == CHARTEVENT_OBJECT_DRAG)
    Print("Changing anchor points of object named ", sparam);

//--- Editグラフィックオブジェクトのテキスト編集
if(id == CHARTEVENT_OBJECT_ENDEDIT)
    Print("Changed text in Edit object ", sparam, "  id=", id);

//--- マウス移動イベント
if(id == CHARTEVENT_MOUSE_MOVE)
    Comment("POINT: ", (int)lparam, ",", (int)dparam, "\n", MouseState((uint)sparam));

if(id == CHARTEVENT_MOUSE_WHEEL)
{
    //--- このイベントのマウスボタンとホイールの状態を考察する
    int flg_keys = (int)(lparam >> 32);        // Ctrlキー、Shiftキー、マウスボタンの状態のフラグ
    int x_cursor = (int)(short)lparam;         // マウスホイールイベントが発生したX座標
    int y_cursor = (int)(short)(lparam >> 16); // マウスホイールイベントが発生したY座標
    int delta    = (int)dparam;                // マウススクロールの合計値（+120または-120が越されるとトリガーされる）
    
    //--- フラグの処理
    string str_keys = ""; // マウスボタンおよび修飾キーの状態を示す文字列を初期化
    if((flg_keys & 0x0001) != 0)
        str_keys += "LMOUSE "; // 左マウスボタンが押されている場合に文字列を追加
    if((flg_keys & 0x0002) != 0)
        str_keys += "RMOUSE "; // 右マウスボタンが押されている場合に文字列を追加
    if((flg_keys & 0x0004) != 0)
        str_keys += "SHIFT ";  // Shiftキーが押されている場合に文字列を追加
    if((flg_keys & 0x0008) != 0)
        str_keys += "CTRL ";   // Ctrlキーが押されている場合に文字列を追加
    if((flg_keys & 0x0010) != 0)
        str_keys += "MMOUSE "; // 中央マウスボタンが押されている場合に文字列を追加
    if((flg_keys & 0x0020) != 0)
        str_keys += "X1MOUSE "; // 第1追加マウスボタンが押されている場合に文字列を追加
    if((flg_keys & 0x0040) != 0)
        str_keys += "X2MOUSE "; // 第2追加マウスボタンが押されている場合に文字列を追加
    
    if(str_keys != "")
        str_keys = ", keys='" + StringSubstr(str_keys, 0, StringLen(str_keys) - 1) + "'"; // 末尾のスペースを削除して文字列を整形
    
    //--- マウスホイールイベントの詳細をログに出力
    PrintFormat("%s: X=%d, Y=%d, delta=%d%s", EnumToString(CHARTEVENT_MOUSE_WHEEL), x_cursor, y_cursor, delta, str_keys);
}

//--- プロパティダイアログウィンドウでのチャートのサイズおよびプロパティ変更イベント
if(id == CHARTEVENT_CHART_CHANGE)
    Print("Changing the chart size or properties");

//--- カスタムイベント
if(id > CHARTEVENT_CUSTOM)
    PrintFormat("Custom event ID=%d, lparam=%d, dparam=%G, sparam=%s", id, lparam, dparam, sparam);

//+------------------------------------------------------------------+
//| マウスの状態                                                        |
//+------------------------------------------------------------------+
string MouseState(uint state)
{
  string res;
  res += "\nML: "   + (((state & 1) == 1) ? "DN" : "UP");   // 左ボタン
  res += "\nMR: "   + (((state & 2) == 2) ? "DN" : "UP");   // 右ボタン
  res += "\nMM: "   + (((state & 16) == 16) ? "DN" : "UP"); // 中央ボタン
  res += "\nMX: "   + (((state & 32) == 32) ? "DN" : "UP"); // 追加ボタン１
  res += "\nMY: "   + (((state & 64) == 64) ? "DN" : "UP"); // 追加ボタン2
  res += "\nSHIFT: " + (((state & 4) == 4) ? "DN" : "UP");  // シフトキー
  res += "\nCTRL: "  + (((state & 8) == 8) ? "DN" : "UP");  // コントロールキー
  return(res);
}