Princeec13/mql5
Watch
0
0
Fork
You've already forked mql5
 1
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions
mql5/Indicators/Examples/Panels/ChartPanel/PanelDialog.mqh

375 lines
14 KiB
MQL5
RawPermalinkNormal ViewHistory

new files added
2025-08-05 01:57:33 -04:00
//+------------------------------------------------------------------+
//| PanelDialog.mqh |
//| Copyright 2000-2025, MetaQuotes Ltd. |
//| https://www.mql5.com |
//+------------------------------------------------------------------+
#include <Controls\Dialog.mqh>
#include <Controls\ComboBox.mqh>
#include <Controls\CheckBox.mqh>
#include <Controls\Label.mqh>
#include <Controls\SpinEdit.mqh>
#include <ChartObjects\ChartObjectSubChart.mqh>
//+------------------------------------------------------------------+
//| defines |
//+------------------------------------------------------------------+
//--- indents and gaps
#define INDENT_LEFT (11) // indent from left (with allowance for border width)
#define INDENT_TOP (11) // indent from top (with allowance for border width)
#define INDENT_RIGHT (11) // indent from right (with allowance for border width)
#define INDENT_BOTTOM (11) // indent from bottom (with allowance for border width)
#define CONTROLS_GAP_X (10) // gap by X coordinate
#define CONTROLS_GAP_Y (10) // gap by Y coordinate
//--- for combo boxes
#define COMBOBOX_WIDTH (100) // size by X coordinate
#define COMBOBOX_HEIGHT (20) // size by Y coordinate
//--- for spin edit
#define SPINEDIT_WIDTH (50) // size by X coordinate
//+------------------------------------------------------------------+
//| Class CPanelDialog |
//| Usage: main dialog of the Controls application |
//+------------------------------------------------------------------+
class CPanelDialog : public CAppDialog
{
private:
CChartObjectSubChart m_subchart; // the sub-chart object
CComboBox m_symbols; // the symbols combo box object
CComboBox m_periods; // the timeframes combo box object
CCheckBox m_time; // the time scale management object
CCheckBox m_price; // the price scale management object
CLabel m_label; // the label object
CSpinEdit m_scale; // the scale management object
public:
CPanelDialog(void);
~CPanelDialog(void);
//--- create
virtual bool Create(const long chart,const string name,const int subwin,const int x1,const int y1,const int x2,const int y2);
//--- chart event handler
virtual bool OnEvent(const int id,const long &lparam,const double &dparam,const string &sparam);
protected:
//--- create dependent controls
bool CreateSubchart(void);
bool CreateSymbols(void);
bool CreatePeriods(void);
bool CreateTime(void);
bool CreatePrice(void);
bool CreateLabel(void);
bool CreateScale(void);
//--- fill dependent controls
bool FillSymbols(void);
bool FillPeriods(void);
//--- internal event handlers
virtual bool OnResize(void);
//--- handlers of the dependent controls events
void OnChangeSymbols(void);
void OnChangePeriods(void);
void OnChangeTime(void);
void OnChangePrice(void);
void OnChangeScale(void);
//--- change dialog title
void SetCaption(void);
};
//+------------------------------------------------------------------+
//| Event Handling |
//+------------------------------------------------------------------+
EVENT_MAP_BEGIN(CPanelDialog)
ON_EVENT(ON_CHANGE,m_symbols,OnChangeSymbols)
ON_EVENT(ON_CHANGE,m_periods,OnChangePeriods)
ON_EVENT(ON_CHANGE,m_time,OnChangeTime)
ON_EVENT(ON_CHANGE,m_price,OnChangePrice)
ON_EVENT(ON_CHANGE,m_scale,OnChangeScale)
EVENT_MAP_END(CAppDialog)
//+------------------------------------------------------------------+
//| Constructor |
//+------------------------------------------------------------------+
CPanelDialog::CPanelDialog(void)
{
}
//+------------------------------------------------------------------+
//| Destructor |
//+------------------------------------------------------------------+
CPanelDialog::~CPanelDialog(void)
{
}
//+------------------------------------------------------------------+
//| Create |
//+------------------------------------------------------------------+
bool CPanelDialog::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);
//--- create dependent controls
if(!CreateSubchart())
return(false);
if(!CreateTime())
return(false);
if(!CreatePrice())
return(false);
if(!CreateLabel())
return(false);
if(!CreateScale())
return(false);
if(!CreatePeriods())
return(false);
if(!CreateSymbols())
return(false);
//--- change dialog title
SetCaption();
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Create the "Chart of Chart" object |
//+------------------------------------------------------------------+
bool CPanelDialog::CreateSubchart(void)
{
//--- coordinates
int x=ClientAreaLeft()+INDENT_LEFT;
int y=ClientAreaTop()+INDENT_TOP;
int w=ClientAreaWidth()-(INDENT_RIGHT+COMBOBOX_WIDTH+CONTROLS_GAP_X+INDENT_LEFT);
int h=ClientAreaHeight()-(INDENT_BOTTOM+INDENT_TOP);
//--- create
if(!m_subchart.Create(m_chart_id,m_name,m_subwin,x,y,w,h))
return(false);
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Create the "Symbols" combo box |
//+------------------------------------------------------------------+
bool CPanelDialog::CreateSymbols(void)
{
//--- coordinates
int x1=ClientAreaWidth()-(INDENT_RIGHT+COMBOBOX_WIDTH);
int y1=INDENT_TOP;
int x2=x1+COMBOBOX_WIDTH;
int y2=y1+COMBOBOX_HEIGHT;
//--- create
if(!m_symbols.Create(m_chart_id,m_name+"Symbols",m_subwin,x1,y1,x2,y2))
return(false);
if(!Add(m_symbols))
return(false);
m_symbols.Alignment(WND_ALIGN_RIGHT,0,0,INDENT_RIGHT,0);
//--- fill
if(!FillSymbols())
return(false);
//--- select
m_symbols.SelectByText(Symbol());
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Create the "Timeframes" combo box |
//+------------------------------------------------------------------+
bool CPanelDialog::CreatePeriods(void)
{
//--- coordinates
int x1=ClientAreaWidth()-(INDENT_RIGHT+COMBOBOX_WIDTH);
int y1=INDENT_TOP+COMBOBOX_HEIGHT+CONTROLS_GAP_Y;
int x2=x1+COMBOBOX_WIDTH;
int y2=y1+COMBOBOX_HEIGHT;
//--- create
if(!m_periods.Create(m_chart_id,m_name+"Periods",m_subwin,x1,y1,x2,y2))
return(false);
if(!Add(m_periods))
return(false);
m_periods.Alignment(WND_ALIGN_RIGHT,0,0,INDENT_RIGHT,0);
//--- fill
if(!FillPeriods())
return(false);
//--- select
m_periods.SelectByValue(Period());
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Create the "Time scale" check box |
//+------------------------------------------------------------------+
bool CPanelDialog::CreateTime(void)
{
//--- coordinates
int x1=ClientAreaWidth()-(INDENT_RIGHT+COMBOBOX_WIDTH);
int y1=INDENT_TOP+2*(COMBOBOX_HEIGHT+CONTROLS_GAP_Y);
int x2=x1+COMBOBOX_WIDTH;
int y2=y1+COMBOBOX_HEIGHT;
//--- create
if(!m_time.Create(m_chart_id,m_name+"Time",m_subwin,x1,y1,x2,y2))
return(false);
if(!m_time.Text(" dates scale"))
return(false);
if(!Add(m_time))
return(false);
m_time.Alignment(WND_ALIGN_RIGHT,0,0,INDENT_RIGHT,0);
//--- state
m_time.Checked(m_subchart.DateScale());
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Create the "Price scale" check box |
//+------------------------------------------------------------------+
bool CPanelDialog::CreatePrice(void)
{
//--- coordinates
int x1=ClientAreaWidth()-(INDENT_RIGHT+COMBOBOX_WIDTH);
int y1=INDENT_TOP+3*(COMBOBOX_HEIGHT+CONTROLS_GAP_Y);
int x2=x1+COMBOBOX_WIDTH;
int y2=y1+COMBOBOX_HEIGHT;
//--- create
if(!m_price.Create(m_chart_id,m_name+"Price",m_subwin,x1,y1,x2,y2))
return(false);
if(!m_price.Text(" prices scale"))
return(false);
if(!Add(m_price))
return(false);
m_price.Alignment(WND_ALIGN_RIGHT,0,0,INDENT_RIGHT,0);
//--- state
m_price.Checked(m_subchart.PriceScale());
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Create label for the "Scale" spin edit |
//+------------------------------------------------------------------+
bool CPanelDialog::CreateLabel(void)
{
//--- coordinates
int x1=ClientAreaWidth()-(INDENT_RIGHT+COMBOBOX_WIDTH);
int y1=INDENT_TOP+4*(COMBOBOX_HEIGHT+CONTROLS_GAP_Y);
int x2=x1+COMBOBOX_WIDTH-SPINEDIT_WIDTH;
int y2=y1+COMBOBOX_HEIGHT;
//--- create
if(!m_label.Create(m_chart_id,m_name+"Label",m_subwin,x1,y1,x2,y2))
return(false);
if(!m_label.Text("Scale"))
return(false);
if(!Add(m_label))
return(false);
m_label.Alignment(WND_ALIGN_RIGHT,0,0,INDENT_RIGHT+SPINEDIT_WIDTH,0);
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Create the "Scale" spin edit |
//+------------------------------------------------------------------+
bool CPanelDialog::CreateScale(void)
{
//--- coordinates
int x1=ClientAreaWidth()-(INDENT_RIGHT+SPINEDIT_WIDTH);
int y1=INDENT_TOP+4*(COMBOBOX_HEIGHT+CONTROLS_GAP_Y);
int x2=x1+SPINEDIT_WIDTH;
int y2=y1+COMBOBOX_HEIGHT;
//--- create
if(!m_scale.Create(m_chart_id,m_name+"Scale",m_subwin,x1,y1,x2,y2))
return(false);
if(!Add(m_scale))
return(false);
m_scale.Alignment(WND_ALIGN_RIGHT,0,0,INDENT_RIGHT,0);
//--- set up
m_scale.MinValue(0);
m_scale.MaxValue(5);
m_scale.Value(m_subchart.Scale());
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Fill the "Symbols" combo box |
//+------------------------------------------------------------------+
bool CPanelDialog::FillSymbols(void)
{
int total=SymbolsTotal(true);
for(int i=0;i<total;i++)
if(!m_symbols.ItemAdd(SymbolName(i,true)))
return(false);
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Fill the "Timeframes" combo box |
//+------------------------------------------------------------------+
bool CPanelDialog::FillPeriods(void)
{
static string name[]=
{
"M1","M2","M3","M4","M5","M6","M10","M12","M15","M20","M30",
"H1","H2","H3","H4","H6","H8","H12","Day","Week","Month"
};
static long value[]=
{
PERIOD_M1,PERIOD_M2,PERIOD_M3,PERIOD_M4,PERIOD_M5,PERIOD_M6,
PERIOD_M10,PERIOD_M12,PERIOD_M15,PERIOD_M20,PERIOD_M30,
PERIOD_H1,PERIOD_H2,PERIOD_H3,PERIOD_H4,PERIOD_H6,PERIOD_H8,PERIOD_H12,
PERIOD_D1,PERIOD_W1,PERIOD_MN1
};
//---
int total=ArraySize(name);
if(total>ArraySize(value))
total=ArraySize(value);
//---
for(int i=0;i<total;i++)
if(!m_periods.ItemAdd(name[i],value[i]))
return(false);
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Handler of resizing |
//+------------------------------------------------------------------+
bool CPanelDialog::OnResize(void)
{
//--- call method of parent class
if(!CAppDialog::OnResize())
return(false);
//--- change width of sub-chart
m_subchart.X_Size(ClientAreaWidth()-(INDENT_RIGHT+COMBOBOX_WIDTH+CONTROLS_GAP_X+INDENT_LEFT));
//--- succeed
return(true);
}
//+------------------------------------------------------------------+
//| Change dialog title |
//+------------------------------------------------------------------+
void CPanelDialog::SetCaption(void)
{
Caption(ProgramName()+"("+m_symbols.Select()+","+m_periods.Select()+")");
}
//+------------------------------------------------------------------+
//| Event handler |
//+------------------------------------------------------------------+
void CPanelDialog::OnChangeSymbols(void)
{
m_subchart.Symbol(m_symbols.Select());
//--- change dialog title
SetCaption();
}
//+------------------------------------------------------------------+
//| Event handler |
//+------------------------------------------------------------------+
void CPanelDialog::OnChangePeriods(void)
{
m_subchart.Period((int)m_periods.Value());
//--- change dialog title
SetCaption();
}
//+------------------------------------------------------------------+
//| Event handler |
//+------------------------------------------------------------------+
void CPanelDialog::OnChangeTime(void)
{
m_subchart.DateScale(m_time.Checked());
}
//+------------------------------------------------------------------+
//| Event handler |
//+------------------------------------------------------------------+
void CPanelDialog::OnChangePrice(void)
{
m_subchart.PriceScale(m_price.Checked());
}
//+------------------------------------------------------------------+
//| Event handler |
//+------------------------------------------------------------------+
void CPanelDialog::OnChangeScale(void)
{
m_subchart.Scale(m_scale.Value());
}
//+------------------------------------------------------------------+
Reference in a new issueCopy permalink