Pierre8rTeam
121 lines
3.9 KiB
Plaintext
121 lines
3.9 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//| TradePad_Sample |
|
|
//| Copyright 2009, MetaQuotes Software Corp. |
|
|
//| http://www.mql5.com |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "2009, MetaQuotes Software Corp."
|
|
#property link "http://www.mql5.com"
|
|
#property version "1.00"
|
|
|
|
#include "ClassTradePad.mqh"
|
|
|
|
input int TableRows=5;
|
|
int TableCols=5;
|
|
input int TableTop=40;
|
|
input int TableLeft=20;
|
|
input int CellWidth=70;
|
|
input int CellHeight=40;
|
|
input int TimerPeriodSeconds=5;
|
|
|
|
input color UpTrendColor=OliveDrab;
|
|
input color DownTrendColor=HotPink;
|
|
input color FlatColor=DarkGray;
|
|
input color UnknownTrend=Cornsilk;
|
|
|
|
bool launched=false;
|
|
|
|
CTradePad SymbolTable;
|
|
//+------------------------------------------------------------------+
|
|
//| create the symbols table via CTradePad object |
|
|
//+------------------------------------------------------------------+
|
|
bool CreatePad(int cols,int rows)
|
|
{
|
|
bool res=false;
|
|
//---
|
|
SymbolTable.CreateTradePad(TableCols,TableRows,TableLeft,TableTop,CellWidth,CellHeight,UpTrendColor,DownTrendColor,FlatColor,UnknownTrend);
|
|
//---
|
|
return(res);
|
|
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| delete CTradePad object |
|
|
//+------------------------------------------------------------------+
|
|
bool DeletePad()
|
|
{
|
|
bool res=false;
|
|
//---
|
|
|
|
int del=SymbolTable.DeleteTradePad();
|
|
if(ObjectFind(0,SymbolTable.GetChartName())>=0)ObjectDelete(0,SymbolTable.GetChartName());
|
|
ChartRedraw(0);
|
|
//Print(del," Symbols deleted");
|
|
//---
|
|
return(res);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| initialization during the launch or re-initialization |
|
|
//+------------------------------------------------------------------+
|
|
void OnInit()
|
|
{
|
|
EventSetTimer(TimerPeriodSeconds);
|
|
Print("Init");
|
|
if(!launched)
|
|
{
|
|
CreatePad(TableCols,TableRows);
|
|
launched=true;
|
|
}
|
|
}
|
|
//+-----------------------------------------------------------------------------------+
|
|
//| when the Expert Advisor's operation is complete or input parameters are changed |
|
|
//+-----------------------------------------------------------------------------------+
|
|
void OnDeinit(const int reason)
|
|
{
|
|
//---
|
|
Print("Deinit");
|
|
launched=false;
|
|
//--- disable the timer
|
|
EventKillTimer();
|
|
//--- delete the object
|
|
DeletePad();
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| Process chart events |
|
|
//+------------------------------------------------------------------+
|
|
|
|
void OnChartEvent(const int id,const long &lparam,const double &dparam,const string &sparam)
|
|
{
|
|
//Print("OnChartEvent event: lparam =",lparam," dparam=",dparam);
|
|
|
|
if(id==CHARTEVENT_OBJECT_CLICK)
|
|
{
|
|
string clickedButton=sparam;
|
|
SymbolTable.SetButtons(clickedButton);
|
|
ChartRedraw();
|
|
}
|
|
if(id==CHARTEVENT_OBJECT_DRAG)
|
|
{
|
|
string dragged=sparam;
|
|
//Print("Shifted the object ",dragged," lparam =",lparam," dparam=",dparam);
|
|
if(dragged==SymbolTable.GetHeaderName())
|
|
{
|
|
int x=ObjectGetInteger(0,dragged,OBJPROP_XDISTANCE);
|
|
int y=ObjectGetInteger(0,dragged,OBJPROP_YDISTANCE);
|
|
SymbolTable.GetShiftTradePad(x,y);
|
|
//Print("X shift = ",x," Y shift = ",y);
|
|
SymbolTable.MoveTradePad(x,y);
|
|
ChartRedraw();
|
|
}
|
|
}
|
|
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| processing timer events |
|
|
//+------------------------------------------------------------------+
|
|
void OnTimer()
|
|
{
|
|
//Print("Timer event");
|
|
if(launched)SymbolTable.SetButtonColors();
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|