MQL4 CLabel と CButton を CAppDialog に載せる

MQL4でボタンを作成していましたが、よりトレードに使えるパネルを CAppDialog と CLabel を使って作成してみたいと思います

CAppDialog

トレードパネルを作成する上で、ベタでオブジェクトを組み合わせて作成するよりも、
MQL5でのクラスを利用したほうが後々便利だと思います

CLabel	「Text label」グラフィックオブジェクトに基づいたコントロール
CBmpButton	「Bitmap Label（ビットマップラベル）」グラフィックオブジェクトに基づいたコントロール
CButton	「Button」グラフィックオブジェクトに基づいたコントロール
CEdit	「Edit field」グラフィックオブジェクトに基づいたコントロール
CPanel	「Rectangle label」グラフィックオブジェクトに基づいたコントロール
CPicture	「Bitmap Label（ビットマップラベル）」グラフィックオブジェクトに基づいたコントロール

Ref: コントロールパネル及びダイアログ作成のクラス

　
以下のMQL5の記事を参考にやってみます

手動取引のサポーターを作成する

近年、為替市場の為のトレードロボットの数は、雪だるま式に増えています。これらのトレードロボットの中には、様々な概念や戦略がありますが、負けない人工知能の作成は誰も成し遂げていません。その為、多くのトレーダーは手動取引を支持しています。しかし、このようなスペシャリストの為に、トレードパネルと呼ばれるロボットアシスタントが...

www.mql5.com

ただＭQL4ではうまく機能しない部分もあります
　

目次
1. パネルを CAppDialog で作成
2. CLabl を載せる
3. CAppDialogに CButton を配置

パネルをCAppDialogで作成

最初に基本的なダイアログを作ります
大まかな流れとして

Dialog.mqhのインクルード
- ..\MQL4\Include\Controls\Dialog.mqh ヘッダーファイルのインクルードします
  　
カスタムクラスを定義
- CAppDialogを継承したユーザーが決めたクラス、 CTestPanel クラスを定義してCreate
  　
オブジェクトの作成
- CTestPanel からオブジェクト（インスタンス）であるTPanelを作成
  OnInit() でCreateして実行、Run()

TestPanel-1.mq4

#include <Controls\Dialog.mqh>

class CTestPanel : public CAppDialog{
    private:

    public:
        CTestPanel(void){};
        ~CTestPanel(void){};

    protected:
};
    
CTestPanel TPanel;

int OnInit(){
    if(!TPanel.Create(
        ChartID(),     // chart ID
        "TestPanel",   // name
        0,             // subwindow
        160,           // x1
        40,            // y1
        360,           // x2
        210            // y2
    )){
    return (INIT_FAILED);
}
    TPanel.Run();

    return(INIT_SUCCEEDED);
}

void OnDeinit(const int reason){
    TPanel.Destroy(reason);
}

#include <Controls\Dialog.mqh>

class CTestPanel : public CAppDialog{

private:

public:

CTestPanel(void){};

~CTestPanel(void){};

protected:

};

CTestPanel TPanel;

int OnInit(){

if(!TPanel.Create(

ChartID(), // chart ID

"TestPanel", // name

0, // subwindow

160, // x1

40, // y1

360, // x2

210 // y2

)){

return (INIT_FAILED);

}

TPanel.Run();

return(INIT_SUCCEEDED);

}

void OnDeinit(const int reason){

TPanel.Destroy(reason);

}

シンプルなパネルをチャートに表示できました

CLabl を載せる

次はこのPanelにLabelを載せてみます

Label.mqhのインクルード
- ..\MQL4\Include\Controls\Label.mqh ヘッダーファイルのインクルードします
  　
カスタムクラスを定義
- CAppDialogを継承したユーザーが決めたクラス、 CTestPanel クラスにCLabelを追加
- CreateLabel() を定義
  　
オブジェクトの作成
- CTestPanel からオブジェクト（インスタンス）であるTPanelを作成
- CreateLabelで位置、テキストなどを作成
  OnInit() でオブジェクトをCreateして実行、Run()

TestPanel-Label.mq4

#include <Controls\Dialog.mqh>
#include <Controls\Label.mqh>

class CTestPanel : public CAppDialog{
    private:
        CLabel testLabel;

    public:
        CTestPanel(void){};
        ~CTestPanel(void){};

        virtual bool Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2);

    protected:
        bool CreateLabel(void);


};


bool CTestPanel::Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2){
    if(!CAppDialog::Create(chart, name, subwin, x1, y1, x2, y2)){
        return(false);
    }
    
    if(!CreateLabel()) return(false);

    return(true);
}

bool CTestPanel::CreateLabel(void){
    if(!testLabel.Create(m_chart_id, "Label", m_subwin, 45, 26, 145, 46)) return(false);

    if(!testLabel.Text("Label")) return(false);

    if(!Add(testLabel)) return(false);

    return(true);
}

    
CTestPanel TestPanel;

int OnInit(){
    if(!TestPanel.Create(
            ChartID(),     // chart ID
            "TestPanel",   // name
            0,             // subwindow
            160,           // x1
            40,            // y1
            360,           // x2
            210            // y2
    )){

        return (INIT_FAILED);
    }

    TestPanel.Run();

    return(INIT_SUCCEEDED);
}

void OnDeinit(const int reason){

    TestPanel.Destroy(reason);
}

void OnChartEvent(const int id,
    const long &lparam,
    const double &dparam,
    const string &sparam){
 
    TestPanel.ChartEvent(id, lparam, dparam, sparam);
}

#include <Controls\Dialog.mqh>

#include <Controls\Label.mqh>

class CTestPanel : public CAppDialog{

private:

CLabel testLabel;

public:

CTestPanel(void){};

~CTestPanel(void){};

virtual bool Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2);

protected:

bool CreateLabel(void);

};

bool CTestPanel::Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2){

if(!CAppDialog::Create(chart, name, subwin, x1, y1, x2, y2)){

return(false);

}

if(!CreateLabel()) return(false);

return(true);

}

bool CTestPanel::CreateLabel(void){

if(!testLabel.Create(m_chart_id, "Label", m_subwin, 45, 26, 145, 46)) return(false);

if(!testLabel.Text("Label")) return(false);

if(!Add(testLabel)) return(false);

return(true);

}

CTestPanel TestPanel;

int OnInit(){

if(!TestPanel.Create(

ChartID(), // chart ID

"TestPanel", // name

0, // subwindow

160, // x1

40, // y1

360, // x2

210 // y2

)){

return (INIT_FAILED);

}

TestPanel.Run();

return(INIT_SUCCEEDED);

}

void OnDeinit(const int reason){

TestPanel.Destroy(reason);

}

void OnChartEvent(const int id,

const long &lparam,

const double &dparam,

const string &sparam){

TestPanel.ChartEvent(id, lparam, dparam, sparam);

}

CAppDialogに CButton を配置

CButtonをCAppDialogに乗せてみたいと思います
容量としてはCLabelと同様です

クリック動作はMQL5ではEVENT_MAPを使うと細かく操作できますが
MQL4ではうまくいかないところもあり OnChartEvent() を使います

TestPanel-Button.mq4

#include <Controls\Dialog.mqh>
#include <Controls\Button.mqh>

class CTestPanel : public CAppDialog{
    private:
    CButton testButton;

    public:
        CTestPanel(void){};
        ~CTestPanel(void){};

        virtual bool Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2);

    protected:
        bool CreateButton(void);
        void OnClickButton(void);
 };

bool CTestPanel::Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2){
    if(!CAppDialog::Create(chart, name, subwin, x1, y1, x2, y2)) return(false);
    if(!CreateButton()) return(false);

    return(true);
}

bool CTestPanel::CreateButton(void){
    if(!testButton.Create(m_chart_id, "Button01", m_subwin, 45, 26, 145, 46)) return(false);
    if(!testButton.Text("Button")) return(false);
    if(!Add(testButton)) return(false);

    return(true);
}

CTestPanel TPanel;

int OnInit(){
    if(!TPanel.Create( 
        ChartID(),       // chart ID
        "TestPanel",     // name
        0,               // subwindow
        160,           　// x1
        40,            　// y1
        360,       　　　　// x2
        210        　　 　// y2
    )){
        return(INIT_FAILED);
    } 

    TPanel.Run();

    return(INIT_SUCCEEDED);
}

void OnDeinit(const int reason){
    TPanel.Destroy(reason);
}

void OnChartEvent(const int id,
                const long& lparam,
                const double& dparam,
                const string& sparam
    ){
    TPanel.ChartEvent(id, lparam, dparam, sparam);
    if(id == CHARTEVENT_OBJECT_CLICK){
        if(sparam == "Button01"){
            Print("Clicked");
        }
    }
}

#include <Controls\Dialog.mqh>

#include <Controls\Button.mqh>

class CTestPanel : public CAppDialog{

private:

CButton testButton;

public:

CTestPanel(void){};

~CTestPanel(void){};

virtual bool Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2);

protected:

bool CreateButton(void);

void OnClickButton(void);

};

bool CTestPanel::Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2){

if(!CAppDialog::Create(chart, name, subwin, x1, y1, x2, y2)) return(false);

if(!CreateButton()) return(false);

return(true);

}

bool CTestPanel::CreateButton(void){

if(!testButton.Create(m_chart_id, "Button01", m_subwin, 45, 26, 145, 46)) return(false);

if(!testButton.Text("Button")) return(false);

if(!Add(testButton)) return(false);

return(true);

}

CTestPanel TPanel;

int OnInit(){

if(!TPanel.Create(

ChartID(), // chart ID

"TestPanel", // name

0, // subwindow

160, 　// x1

40, 　// y1

360, 　　　　// x2

210 　　　// y2

)){

return(INIT_FAILED);

}

TPanel.Run();

return(INIT_SUCCEEDED);

}

void OnDeinit(const int reason){

TPanel.Destroy(reason);

}

void OnChartEvent(const int id,

const long& lparam,

const double& dparam,

const string& sparam

){

TPanel.ChartEvent(id, lparam, dparam, sparam);

if(id == CHARTEVENT_OBJECT_CLICK){

if(sparam == "Button01"){

Print("Clicked");

}

ボタンを載せたパネルができました

MQL4はC言語ベースで、MQL5はC++のオブジェクト指向でのプログラミングになります
MQL4のbuild 600 あたりから改変され、MQL5の一部を取り込んだ仕様になり
それまでのMQL4がコードが使えなくなったことがありました
MetaとしてはMQL5に移行したいのでしょうけれど、MQL4で作られたインジケータやEAを
求めるユーザーが多く、MQL4はMQL5の一部機能も使える中途半端な状態となっています