GeneralTradingSarl
111 lines
8.3 KiB
Plaintext
111 lines
8.3 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//| SaveAndShowTestingChartObjects.mq5 |
|
|
//| Copyright 2018,fxMeter |
|
|
//| https://www.mql5.com/en/users/fxmeter |
|
|
//+------------------------------------------------------------------+
|
|
//https://www.mql5.com/en/code/22163
|
|
#property copyright "Copyright 2018,fxMeter"
|
|
#property link "https://www.mql5.com/en/users/fxmeter"
|
|
#property version "1.00"
|
|
#property script_show_inputs
|
|
#include <ChartObjects\ChartObject.mqh>
|
|
#include <Arrays\ArrayObj.mqh>
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
enum ENUM_SAVE_SHOW {SAVE,SHOW};
|
|
input string FileName="Testing Chart Objects";
|
|
input ENUM_SAVE_SHOW SaveOrShow=SAVE;
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
class TestingChartObject :public CChartObject
|
|
{
|
|
public:
|
|
TestingChartObject(void){};
|
|
~TestingChartObject(void){};
|
|
bool SaveObj(const int file_handle,string objName,int type);
|
|
bool LoadObj(const int file_handle);
|
|
};
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
bool TestingChartObject::SaveObj(const int file_handle,string objName,int type)
|
|
{
|
|
m_name=objName;
|
|
FileWriteString(file_handle,m_name,64);
|
|
FileWriteInteger(file_handle,type);
|
|
CChartObject::Save(file_handle);
|
|
//--selected,fill
|
|
FileWriteInteger(file_handle,Selected());
|
|
FileWriteInteger(file_handle,Fill());
|
|
|
|
return(true);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
bool TestingChartObject::LoadObj(const int file_handle)
|
|
{
|
|
m_chart_id=ChartID();
|
|
m_name=FileReadString(file_handle,64);
|
|
int type=FileReadInteger(file_handle);
|
|
ObjectCreate(m_chart_id,m_name,(ENUM_OBJECT)type,0,0,0);
|
|
CChartObject::Load(file_handle);
|
|
//--selected,fill
|
|
Selected(FileReadInteger(file_handle));
|
|
Fill(FileReadInteger(file_handle));
|
|
return(true);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| Script program start function |
|
|
//+------------------------------------------------------------------+
|
|
void OnStart()
|
|
{
|
|
//---
|
|
string fileName=FileName+".bin";
|
|
int handle=-1;
|
|
if(SaveOrShow==0)handle=FileOpen(fileName,FILE_WRITE|FILE_ANSI|FILE_BIN);
|
|
else handle=FileOpen(fileName,FILE_READ|FILE_ANSI|FILE_BIN);
|
|
if(handle==-1)return;
|
|
|
|
//-------------------------------------------------------------------------------------- SHOW
|
|
if(SaveOrShow==SHOW)
|
|
{
|
|
TestingChartObject *chart_obj=new TestingChartObject();
|
|
while(!FileIsEnding(handle))
|
|
{
|
|
chart_obj.LoadObj(handle);
|
|
}
|
|
//Do NOT delete chart_obj;
|
|
FileClose(handle);
|
|
return;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------------------- SAVE
|
|
|
|
CArrayObj *obj=new CArrayObj();
|
|
|
|
for(int i=ObjectsTotal(0)-1;i>=0;i--)
|
|
{
|
|
TestingChartObject *chart_obj=new TestingChartObject();
|
|
string name=ObjectName(0,i);
|
|
chart_obj.Attach(0,name,0,3);
|
|
obj.Add(chart_obj);
|
|
}
|
|
|
|
int total=obj.Total();
|
|
|
|
for(int i=0;i<total;i++)
|
|
{
|
|
string name=((TestingChartObject*)obj.At(i)).Name();
|
|
int type=(int)ObjectGetInteger(0,name,OBJPROP_TYPE);
|
|
((TestingChartObject*)obj.At(i)).SaveObj(handle,name,type);
|
|
}
|
|
FileClose(handle);
|
|
|
|
//Do NOT delete obj;
|
|
|
|
}
|
|
//+------------------------------------------------------------------+
|