Lines_RASST

//+------------------------------------------------------------------+
//|                                                  Lines_RASST.mq4 |
//|                                                            Drknn |
//|                   05.04.2007                       drknn@mail.ru |
//+------------------------------------------------------------------+
#property copyright "Drknn"
#property link      "drknn@mail.ru"
#include <Errors.mqh>
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
{ 
  
  /*
    	Ñêðèïò
  ========== Lines_RASST ========

ßâëÿåòñÿ äîïîëíåíèåì ê ñêðèïòó Lines_Create. (Ñêðèïò Lines_Create ñîçäà¸ò íà ãðàôèêå 2 ãîðèçîíòàëüíûå ëèíèè ñ èìåíàìè UP_LEVEL è DOWN_LEVEL)

Ñêðèïò Lines_RASST âûâîäèò íà ýêðàí ñîîáùåíèå î òîì, ñêîëüêî ïóíêòîâ ðàññòîÿíèå ìåæäó äâóìÿ ãîðèçîíòàëüíûìè ëèíèÿìè
    ó êîòîðûõ ìèåíà UP_LEVEL è DOWN_LEVEL.
    Â ñèëó òîãî, ÷òî ñêðèïò Lines_RASST èìååò çàäåðæêó â êîäå, íàäî íå ïðîñòî êèíóòü åãî íà ãðàôèê, èëè íå ïðîñòî ñäåëàòü
    ïî ñêðèïòó äâîéíîé êëèê, íàäî åù¸ ñðàçó ñäåëàòü äîïîëíèòåëüíûé îäèíàðíûé êëèê ëåâîé êíîïêîé ìûøè ïî îêíó ãðàôèêà.
    Òîëüêî â ýòîì ñëó÷àå íàäïèñü, ãîâîðÿùàÿ î ðàññòîÿíèè ïîÿâèòñÿ è ÷åðåç 5 ñåêóíä èñ÷åçíåò ñàìà.
    Åñëè ñêðèïò Lines_RASST âûçâàí, à äîïîëíèòåëüíûé êëèê ïî îêíó íå ñäåëàí, òî ïî ïðîøåñòâèè 5 ñåêóíä ñêðèïò âûãðóçèòñÿ èç îïåðàòèâíîé
    ïàìÿòè, è Âû íè ÷åãî íà ýêðàíå íå óâèäèòå, íè êàêîé íàäïèñè (ïî÷åìó òàê ñäåëàí òåðìèíàë ÿ íå çíàþ).


  */
  
  bool fm;
   // --------------- Çíà÷åíèÿ öåíû íà ãîðèçîíòàëüíûõ ëèíèÿõ ---------------------------------
  double UpLevelPrice=ObjectGet("UP_LEVEL",OBJPROP_PRICE1);
  double DownLevelPrice=ObjectGet("DOWN_LEVEL",OBJPROP_PRICE1);
// ---------------------------------------------------------------------------------------- 
 //--------- êàëüêóëÿòîð ðàññòîÿíèé ìåæäó ýòèìè ëèíèÿìè ---------------
  
  int Rasst=(UpLevelPrice-DownLevelPrice)/Point;
  fm=ObjectCreate("DIAPAZON",OBJ_LABEL,0,0,0);
  if(fm==0 || fm==-1){GeneralError();}
  fm=ObjectSetText("DIAPAZON","Êàíàë = "+Rasst+" pt.",24,"Verdana",Blue); 
  if(fm==0 || fm==-1){GeneralError();}
  fm=ObjectSet("DIAPAZON",OBJPROP_CORNER,0);
  if(fm==0 || fm==-1){GeneralError();}
  fm=ObjectSet("DIAPAZON",OBJPROP_XDISTANCE,350);
  if(fm==0 || fm==-1){GeneralError();}
  fm=ObjectSet("DIAPAZON",OBJPROP_YDISTANCE,315);
  if(fm==0 || fm==-1){GeneralError();}
  // ------------------------------------------------------------------
  Sleep(5000);
  //-------- óäàëÿåì íàäïèñü ñ ýêðàíà -----------------------------
 fm=ObjectDelete("DIAPAZON");
 if(fm==0 || fm==-1){GeneralError();}
}
   
 
//+------------------------------------------------------------------+