//+------------------------------------------------------------------+
//| Check_DEBUG_MODE.mq5 |
//| Copyright © 2009, MetaQuotes Software Corp. |
//| http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net"
//+------------------------------------------------------------------+
//| Script program start function |
//+------------------------------------------------------------------+
void OnStart()
{
//---
string label_name="invisible_label";
if(ObjectFind(0,label_name)<0)
{
Print("Object ",label_name," not found. Error code = ",GetLastError());
//--- создадим объект Label
ObjectCreate(0,label_name,OBJ_LABEL,0,0,0);
//--- установим координату X
ObjectSetInteger(0,label_name,OBJPROP_XDISTANCE,200);
//--- установим координату Y
ObjectSetInteger(0,label_name,OBJPROP_YDISTANCE,300);
ResetLastError();
if(IS_DEBUG_MODE) // режим отладки
{
//--- выведем сообщение о режиме выполнения скрипта
ObjectSetString(0,label_name,OBJPROP_TEXT,"DEBUG MODE");
//--- зададим красный цвет текста
if(!ObjectSetInteger(0,label_name,OBJPROP_COLOR,clrRed))
Print("Не удалось установить цвет. Ошибка ",GetLastError());
}
else // рабочий режим
{
ObjectSetString(0,label_name,OBJPROP_TEXT,"RELEASE MODE");
//--- зададим невидимый цвет текста
if(!ObjectSetInteger(0,label_name,OBJPROP_COLOR,CLR_NONE))
Print("Не удалось установить цвет. Ошибка ",GetLastError());
}
ChartRedraw();
DebugBreak(); // здесь произойдет прерывание, если мы в режиме отладки
}
}