Pierre8rTeam
298 lines
11 KiB
Plaintext
298 lines
11 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//| CChart.mqh |
|
|
//| Copyright © 2009, MetaQuotes Software Corp. |
|
|
//| http://www.metaquotes.net |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "Copyright © 2009, MetaQuotes Software Corp."
|
|
#property link "http://www.metaquotes.net"
|
|
|
|
#include "ClassControlButton.mqh"
|
|
#define UP "\x0431"
|
|
#define DOWN "\x0432"
|
|
|
|
ENUM_TIMEFRAMES periods[21];
|
|
//+------------------------------------------------------------------+
|
|
//| class for implemeting a chart with controls |
|
|
//+------------------------------------------------------------------+
|
|
class CChart
|
|
{
|
|
private:
|
|
int m_top; // Y coordinate of the upper-left corner
|
|
int m_left; // X coordinate of the upper-left corner
|
|
int m_width; // width
|
|
int m_height; // height
|
|
ENUM_TIMEFRAMES m_time_frame; // timeframe
|
|
int m_scaling; // current scale
|
|
string m_symbol; // Chart symbol
|
|
string m_chart_name; // Chart object name
|
|
int m_control_width; // button width
|
|
int m_control_height; // button height
|
|
CControlButton m_controls[6]; // array of chart managing controls
|
|
bool m_first_launch; // first launch attribute
|
|
int m_period_counter;
|
|
public:
|
|
void CChart();
|
|
void CreateChart(int l,int t,int w,int h,string s,string name);
|
|
void MoveChart(int x,int y);
|
|
void SetSymbolForChart(string symbol);
|
|
void UpScaleChart();
|
|
void DownScaleChart();
|
|
void DeleteChart();
|
|
bool IsChartControlEvent(string control_name);
|
|
void DoChartOperations(string name);
|
|
ENUM_TIMEFRAMES GetChartTimeframe(){return(periods[m_period_counter]);};
|
|
};
|
|
//+------------------------------------------------------------------+
|
|
//| default constructor |
|
|
//+------------------------------------------------------------------+
|
|
void CChart::CChart()
|
|
{
|
|
m_top=0;
|
|
m_left=0;
|
|
m_time_frame=ChartPeriod(0);
|
|
m_symbol=ChartSymbol(0);
|
|
m_scaling=2;
|
|
m_control_width=30;
|
|
m_control_height=42;
|
|
m_first_launch=true;
|
|
periods[0]=PERIOD_M1;
|
|
periods[1]=PERIOD_M2;
|
|
periods[2]=PERIOD_M3;
|
|
periods[3]=PERIOD_M4;
|
|
periods[4]=PERIOD_M5;
|
|
periods[5]=PERIOD_M6;
|
|
periods[6]=PERIOD_M10;
|
|
periods[7]=PERIOD_M12;
|
|
periods[8]=PERIOD_M15;
|
|
periods[9]=PERIOD_M20;
|
|
periods[10]=PERIOD_M30;
|
|
periods[11]=PERIOD_H1;
|
|
periods[12]=PERIOD_H2;
|
|
periods[13]=PERIOD_H3;
|
|
periods[14]=PERIOD_H4;
|
|
periods[15]=PERIOD_H6;
|
|
periods[16]=PERIOD_H8;
|
|
periods[17]=PERIOD_H12;
|
|
periods[18]=PERIOD_D1;
|
|
periods[19]=PERIOD_W1;
|
|
periods[20]=PERIOD_MN1;
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| returns true if the managing control is pressed |
|
|
//+------------------------------------------------------------------+
|
|
bool CChart::IsChartControlEvent(string control_name)
|
|
{
|
|
bool res=false;
|
|
for(int i=0;i<6;i++)
|
|
{
|
|
if(m_controls[i].GetControlName()==control_name)return(true);
|
|
}
|
|
return(res);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| delete class graphical objects |
|
|
//+------------------------------------------------------------------+
|
|
void CChart::DeleteChart()
|
|
{
|
|
if(ObjectFind(0,m_chart_name)>=0) ObjectDelete(0,m_chart_name);
|
|
for(int i=0;i<6;i++)
|
|
{
|
|
m_controls[i].DeleteControl();
|
|
}
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| create an object with specified parameters |
|
|
//+------------------------------------------------------------------+
|
|
void CChart::CreateChart(int l,int t,int w,int h,string s,string name)
|
|
{
|
|
for(int p=0;p<21;p++)
|
|
{
|
|
int tempPer=(int)ChartPeriod(0);
|
|
if((int)periods[p]==(int)ChartPeriod(0))
|
|
{
|
|
m_period_counter=p;
|
|
break;
|
|
}
|
|
}
|
|
//Print("m_period_counter=",m_period_counter, " periods=",periods[m_period_counter]);
|
|
//Print("PERIOD_H4=",PERIOD_H4);
|
|
//Print("ChartPeriod(0)=",ChartPeriod(0));
|
|
m_width=w;
|
|
m_height=h;
|
|
m_chart_name=name;
|
|
Print("Trying to create Chart object named ",m_chart_name);
|
|
if(ObjectFind(0,m_chart_name)<0)ObjectCreate(0,m_chart_name,OBJ_CHART,0,0,0,0,0);
|
|
SetSymbolForChart(s);
|
|
MoveChart(l,t);
|
|
m_first_launch=false;
|
|
//Print("Get chart width=",w," set chart width=",m_width-m_control_width);
|
|
//Print("Get chart height=",h," set chart height=",m_height);
|
|
ObjectSetInteger(0,m_chart_name,OBJPROP_XSIZE,m_width-m_control_width);
|
|
//Print("Width is set");
|
|
ObjectSetInteger(0,m_chart_name,OBJPROP_YSIZE,m_height);
|
|
//Print("Height is set");
|
|
ObjectSetInteger(0,m_chart_name,OBJPROP_SELECTABLE,0);
|
|
//Print("OBJPROP_SELECTABL is set");
|
|
int left_controls=l+w-m_control_width;
|
|
int top_contols=t;
|
|
//Print("Starting placing buttons with X:Y=>",left_controls,":",top_contols);
|
|
m_controls[0].CreateButton(left_controls,top_contols,
|
|
m_control_width,m_control_height,"Scale +",UP);
|
|
m_controls[0].SetTextDetails(8,"Wingdings",White);
|
|
m_controls[0].SetTextForControl(UP);
|
|
|
|
m_controls[1].CreateButton(left_controls,top_contols+m_control_height,
|
|
m_control_width,m_control_height,"Show Price","P");
|
|
m_controls[1].SetTextForControl("P");
|
|
m_controls[1].SetTextDetails(10,"Arial",White);
|
|
|
|
m_controls[2].CreateButton(left_controls,top_contols+2*m_control_height,
|
|
m_control_width,m_control_height,"Scale -",DOWN);
|
|
m_controls[2].SetTextDetails(8,"Wingdings",White);
|
|
m_controls[2].SetTextForControl(DOWN);
|
|
|
|
m_controls[3].CreateButton(left_controls,top_contols+3*m_control_height,
|
|
m_control_width,m_control_height,"Time Frame Up",UP);
|
|
m_controls[3].SetTextDetails(8,"Wingdings",White);
|
|
m_controls[3].SetTextForControl(UP);
|
|
|
|
m_controls[4].CreateButton(left_controls,top_contols+4*m_control_height,
|
|
m_control_width,m_control_height,"Show Time","T");
|
|
m_controls[4].SetTextForControl("T");
|
|
m_controls[4].SetTextDetails(10,"Arial",White);
|
|
|
|
m_controls[5].CreateButton(left_controls,top_contols+5*m_control_height,
|
|
m_control_width,m_control_height,"Time Frame Down",DOWN);
|
|
m_controls[5].SetTextDetails(8,"Wingdings",White);
|
|
m_controls[5].SetTextForControl(DOWN);
|
|
|
|
for(int i=0;i<6;i++)
|
|
{
|
|
if(i<3) m_controls[i].SetBGColor(CadetBlue);
|
|
else m_controls[i].SetBGColor(SeaGreen);
|
|
}
|
|
ObjectSetInteger(0,"Show Price",OBJPROP_STATE,ObjectGetInteger(0,m_chart_name,OBJPROP_PRICE_SCALE));
|
|
ObjectSetInteger(0,"Show Time",OBJPROP_STATE,ObjectGetInteger(0,m_chart_name,OBJPROP_DATE_SCALE));
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| chart buttons pressing event |
|
|
//+------------------------------------------------------------------+
|
|
void CChart::DoChartOperations(string name)
|
|
{
|
|
//Print("Test DoChartOperations(), name=",name);
|
|
if(name=="Show Time")
|
|
{
|
|
bool showdates=ObjectGetInteger(0,name,OBJPROP_STATE);
|
|
ObjectSetInteger(0,m_chart_name,OBJPROP_DATE_SCALE,showdates);
|
|
}
|
|
|
|
if(name=="Show Price")
|
|
{
|
|
bool showdates=ObjectGetInteger(0,name,OBJPROP_STATE);
|
|
ObjectSetInteger(0,m_chart_name,OBJPROP_PRICE_SCALE,showdates);
|
|
}
|
|
|
|
if(name=="Scale +")
|
|
{
|
|
UpScaleChart();
|
|
Sleep(100);
|
|
ObjectSetInteger(0,name,OBJPROP_STATE,false);
|
|
}
|
|
|
|
if(name=="Scale -")
|
|
{
|
|
DownScaleChart();
|
|
Sleep(100);
|
|
ObjectSetInteger(0,name,OBJPROP_STATE,false);
|
|
}
|
|
|
|
if(name=="Time Frame Up")
|
|
{
|
|
if(m_period_counter<20)
|
|
{
|
|
m_period_counter++;
|
|
ObjectSetInteger(0,m_chart_name,OBJPROP_PERIOD,periods[m_period_counter]);
|
|
}
|
|
Sleep(100);
|
|
ObjectSetInteger(0,name,OBJPROP_STATE,false);
|
|
}
|
|
|
|
if(name=="Time Frame Down")
|
|
{
|
|
if(m_period_counter>0)
|
|
{
|
|
m_period_counter--;
|
|
ObjectSetInteger(0,m_chart_name,OBJPROP_PERIOD,periods[m_period_counter]);
|
|
}
|
|
Sleep(100);
|
|
ObjectSetInteger(0,name,OBJPROP_STATE,false);
|
|
}
|
|
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| set the symbol |
|
|
//+------------------------------------------------------------------+
|
|
void CChart::SetSymbolForChart(string symbol)
|
|
{
|
|
m_symbol=symbol;
|
|
ObjectSetString(0,m_chart_name,OBJPROP_SYMBOL,symbol);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| move to the specified coordinates |
|
|
//+------------------------------------------------------------------+
|
|
void CChart::MoveChart(int x,int y)
|
|
{
|
|
m_left+=x;
|
|
m_top+=y;
|
|
ObjectSetInteger(0,m_chart_name,OBJPROP_XDISTANCE,m_left);
|
|
ObjectSetInteger(0,m_chart_name,OBJPROP_YDISTANCE,m_top);
|
|
if(m_first_launch) return;
|
|
for(int i=0;i<6;i++)
|
|
{
|
|
m_controls[i].MoveControlButton(x,y);
|
|
}
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| zoom in the chart |
|
|
//+------------------------------------------------------------------+
|
|
void CChart::UpScaleChart()
|
|
{
|
|
//Print(__FUNCTION__,"m_scaling =",m_scaling);
|
|
if(m_scaling<5)
|
|
{
|
|
m_scaling++;
|
|
Print(__FUNCTION__,"Set the chart scale =",m_scaling);
|
|
bool changed=ObjectSetInteger(0,m_chart_name,OBJPROP_CHART_SCALE,m_scaling);
|
|
if(!changed)
|
|
{
|
|
Print(__FUNCTION__,"Failed to zoom in the chart. Error="+string(GetLastError()));
|
|
}
|
|
else
|
|
{
|
|
Print("Chart scale =",ObjectGetInteger(0,m_chart_name,OBJPROP_CHART_SCALE));
|
|
}
|
|
}
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| zoom out the chart |
|
|
//+------------------------------------------------------------------+
|
|
void CChart::DownScaleChart()
|
|
{
|
|
//Print(__FUNCTION__,"m_scaling =",m_scaling);
|
|
if(m_scaling>0)
|
|
{
|
|
m_scaling--;
|
|
Print(__FUNCTION__,"Set the chart scale =",m_scaling);
|
|
bool changed=ObjectSetInteger(0,m_chart_name,OBJPROP_CHART_SCALE,m_scaling);
|
|
if(!changed)
|
|
{
|
|
Print(__FUNCTION__,"Failed to zoom out the chart. Error="+string(GetLastError()));
|
|
}
|
|
else
|
|
{
|
|
Print("Chart scale =",ObjectGetInteger(0,m_chart_name,OBJPROP_CHART_SCALE));
|
|
}
|
|
}
|
|
}
|
|
//+------------------------------------------------------------------+
|