Navigation´╝ÜHome > Content >

Recent_Candles.mq4

Time: 2013-02-23 | Download file:Recent_Candles.mq4

//+------------------------------------------------------------------+
//|                                               Recent Candles.mq4 |
//+------------------------------------------------------------------+

#property indicator_separate_window
#property indicator_minimum -35
#property indicator_maximum 120
//#property indicator_level1 75
//#property indicator_level2 50
//#property indicator_level3 25
//#property indicator_levelcolor MidnightBlue
#property indicator_buffers 8
#property indicator_color1 Lime               // color of body, if Close > Open
#property indicator_color2 Red                // color of body, if Close < Open
#property indicator_color3 White              // color of body, if Close = Open
#property indicator_color4 Black              // color of background
#property indicator_color5 Lime               // color of shadow, if Close > Open
#property indicator_color6 Red                // color of shadow, if Close < Open
#property indicator_color7 White              // color of shadow, if Close = Open
#property indicator_color8 Black              // color of background
/*
#property indicator_width1 5                  // width of body, if Close > Open
#property indicator_width2 5                  // width of body, if Close < Open
#property indicator_width3 5                  // width of body, if Close = Open
#property indicator_width4 5                  // width of background
#property indicator_width5 1                  // width of shadow, if Close > Open
#property indicator_width6 1                  // width of shadow, if Close < Open
#property indicator_width7 1                  // width of shadow, if Close = Open
#property indicator_width8 1                  // width of background
*/
extern string     CurrencyPairs          = "";
extern string     TimeFrames             = "M1, M5, M15, M30, H1, H4, D1, W1, MN";
extern string     NumCandles             = "5";
extern string     HistoricalShift        = "0";
extern int        CandleWidth            = 5;
extern int        SpacingBetweenCandles  = 1;
extern color      CandleUpColor          = Lime;
extern color      CandleDownColor        = Red;
extern color      TextColor              = White;
extern string     TextFont               = "Verdana";
extern int        TextSize               = 9;
extern color      BackgroundColor        = Black;
extern bool       DisplayInfo            = true;
extern bool       DisplayCcyName         = true;
extern bool       DisplayTF              = true;
extern int        RefreshEveryXMins      = 0;
extern bool       HeikinAshiCandles      = false;

//---- buffers ------------------------------------------------------+
static double UpBodyBuffer[];
static double DnBodyBuffer[];
static double EqBodyBuffer[];
static double BgBodyBuffer[];
static double UpShadowBuffer[];
static double DnShadowBuffer[];
static double EqShadowBuffer[];
static double BgShadowBuffer[];

string   ccy, sym, CP[30], ccyp, IndiName;
int      dig, tf, tmf, Wnum, ccCP, ccTF, ccNC, ccHS, TF[9], NC[9], HS[9], IC[30];
double   spr, pnt, tickval, bidp, askp, Lswap, Sswap, HH, LL, O, H, L, C;
datetime prev_time, lastick;
double   HAhigh[],HAlow[],HAopen[],HAclose[];

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()  {

  CheckPresets();

  if (RefreshEveryXMins > 240)                             RefreshEveryXMins = 240;
  if (RefreshEveryXMins > 60 && RefreshEveryXMins < 240)   RefreshEveryXMins = 60;
  if (RefreshEveryXMins > 30 && RefreshEveryXMins < 60)    RefreshEveryXMins = 30;
  if (RefreshEveryXMins > 15 && RefreshEveryXMins < 30)    RefreshEveryXMins = 15;
  if (RefreshEveryXMins > 5  && RefreshEveryXMins < 15)    RefreshEveryXMins = 5;
  if (RefreshEveryXMins > 1  && RefreshEveryXMins < 5)     RefreshEveryXMins = 1;

  sym     = Symbol();
  ccy     = Symbol();
  if (CurrencyPairs > "")  ccy = CurrencyPairs;
  tmf     = Period();
  bidp    = MarketInfo(ccy,MODE_BID);
  askp    = MarketInfo(ccy,MODE_ASK);
  pnt     = MarketInfo(ccy,MODE_POINT);
  dig     = MarketInfo(ccy,MODE_DIGITS);
  spr     = MarketInfo(ccy,MODE_SPREAD);
  tickval = MarketInfo(ccy,MODE_TICKVALUE);
  if (dig == 3 || dig == 5) {
    pnt     *= 10;
    spr     /= 10;
    tickval *= 10;
  }  

  prev_time = -9999;

  //---- set a accuracy of values of the indicator -----------------+
  IndicatorDigits(dig);
  //---- set a style for line --------------------------------------+
  SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID,CandleWidth,CandleUpColor);
  SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID,CandleWidth,CandleDownColor);
  SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_SOLID,CandleWidth,TextColor);
  SetIndexStyle(3,DRAW_HISTOGRAM,STYLE_SOLID,CandleWidth,BackgroundColor);
  SetIndexStyle(4,DRAW_HISTOGRAM,STYLE_SOLID,1,CandleUpColor);
  SetIndexStyle(5,DRAW_HISTOGRAM,STYLE_SOLID,1,CandleDownColor);
  SetIndexStyle(6,DRAW_HISTOGRAM,STYLE_SOLID,1,TextColor);
  SetIndexStyle(7,DRAW_HISTOGRAM,STYLE_SOLID,1,BackgroundColor);
  //---- set a arrays for line -------------------------------------+
  SetIndexBuffer(0,UpBodyBuffer);
  SetIndexBuffer(1,DnBodyBuffer);
  SetIndexBuffer(2,EqBodyBuffer);
  SetIndexBuffer(3,BgBodyBuffer);
  SetIndexBuffer(4,UpShadowBuffer);
  SetIndexBuffer(5,DnShadowBuffer);
  SetIndexBuffer(6,EqShadowBuffer);
  SetIndexBuffer(7,BgShadowBuffer);

/*
  ArrayInitialize(UpBodyBuffer,EMPTY_VALUE);
  ArrayInitialize(DnBodyBuffer,EMPTY_VALUE);
  ArrayInitialize(EqBodyBuffer,EMPTY_VALUE);
  ArrayInitialize(BgBodyBuffer,EMPTY_VALUE);
  ArrayInitialize(UpShadowBuffer,EMPTY_VALUE);
  ArrayInitialize(DnShadowBuffer,EMPTY_VALUE);
  ArrayInitialize(EqShadowBuffer,EMPTY_VALUE);
  ArrayInitialize(BgShadowBuffer,EMPTY_VALUE);
*/
  del_obj();
  plot_obj();    
  
  return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()  {
  del_obj();
  return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start() {

    if (RefreshEveryXMins == 0) {
      del_obj();
      plot_obj();    
    }
    else {
      if(prev_time != iTime(sym,RefreshEveryXMins,0))  {
        del_obj();
        plot_obj();
        prev_time = iTime(sym,RefreshEveryXMins,0);
    } }      
      
//  }  
  return(0);
}

//+------------------------------------------------------------------+
//| del_obj                                                          |
//+------------------------------------------------------------------+
void del_obj()
{
  int k=0;
  while (k=0; c--)   {  
    ccyp = CP[c];
    if (ccyp == "")   continue;

    Lswap   = MarketInfo(ccyp,MODE_SWAPLONG);
    Sswap   = MarketInfo(ccyp,MODE_SWAPSHORT);
    lastick = MarketInfo(ccyp,MODE_TIME);
    bidp    = MarketInfo(ccyp,MODE_BID);
    askp    = MarketInfo(ccyp,MODE_ASK);
    spr     = MarketInfo(ccyp,MODE_SPREAD);
    pnt     = MarketInfo(ccyp,MODE_POINT);
    dig     = MarketInfo(ccyp,MODE_DIGITS);
    tickval = MarketInfo(ccyp,MODE_TICKVALUE);
    if (dig == 3 || dig == 5) {
      spr     /= 10;
      tickval *= 10;
    }  

    string tft;
    for(int z=8; z>=0; z--) {
      tf = TF[z];
      if (tf == 0)    continue;
      tft = TFToStr(tf);
      string ccyt = ccyp;
      if (IC[c] == 1)   ccyt = "(" + StringSubstr(ccyp,3,3) + StringSubstr(ccyp,0,3) + ")";
      string tct = ccyt + "," + tft;

      int minval = HS[z];
      int maxval = MathMin(iBars(ccyp,tf)-2,NC[z]+HS[z]+50);
      ArrayResize(HAclose,maxval);
      ArrayResize(HAopen,maxval);
      ArrayResize(HAhigh,maxval);
      ArrayResize(HAlow,maxval);
      
      for (int q=maxval; q>=minval; q--)  {
        if (q == maxval || !HeikinAshiCandles)   {
          HAopen[q]  = iOpen(ccyp,tf,q);
          HAhigh[q]  = iHigh(ccyp,tf,q);
          HAlow[q]   = iLow(ccyp,tf,q);
          HAclose[q] = iClose(ccyp,tf,q);
        } else {
          HAopen[q]  = (HAopen[q+1]+HAclose[q+1])/2;
          HAhigh[q]  = MathMax(HAopen[q],iHigh(ccyp,tf,q));
          HAlow[q]   = MathMin(HAopen[q],iLow(ccyp,tf,q));
          HAclose[q] = (iOpen(ccyp,tf,q)+iHigh(ccyp,tf,q)+iLow(ccyp,tf,q)+iClose(ccyp,tf,q))/4;
      } }          

      HH = 0;             // highest high across last NumCandles candles, used for scaling
      LL = 999999;        // lowest low across last NumCandles candles, used for scaling
      for(i=HS[z]; i<=NC[z]+HS[z]; i++)  {
        if (IC[c] == 1)  {
          HH = MathMax(HH,DivZero(1,HAlow[i]));
          LL = MathMin(LL,DivZero(1,HAhigh[i]));
        } else  {
          HH = MathMax(HH,HAhigh[i]);
          LL = MathMin(LL,HAlow[i]);
        }
      }

      for(i=HS[z]; i<=NC[z]+HS[z]; i++)  {
  //      Print ("***" + tct + "  " + i + "  " + j);
        if (IC[c] == 1)  {
          O = DivZero(1,HAopen[i]);     // candle open
          H = DivZero(1,HAlow[i]);      // candle high
          L = DivZero(1,HAhigh[i]);     // candle low
          C = DivZero(1,HAclose[i]);    // candle close
        } else  {
          O = HAopen[i];     // candle open
          H = HAhigh[i];     // candle high
          L = HAlow[i];      // candle low
          C = HAclose[i];    // candle close
        }
        double open  = DivZero(100*(O-LL),(HH-LL));
        double high  = DivZero(100*(H-LL),(HH-LL));
        double low   = DivZero(100*(L-LL),(HH-LL));
        double close = DivZero(100*(C-LL),(HH-LL));

        if (open < close)
          {
           UpBodyBuffer[j] = close;
           DnBodyBuffer[j] = EMPTY_VALUE;
           EqBodyBuffer[j] = EMPTY_VALUE;
           BgBodyBuffer[j] = open;
           UpShadowBuffer[j] = high;
           DnShadowBuffer[j] = EMPTY_VALUE;
           EqShadowBuffer[j] = EMPTY_VALUE;
           BgShadowBuffer[j] = low;
          }
        else
          {
           if (open > close)
             {
              UpBodyBuffer[j] = EMPTY_VALUE;
              DnBodyBuffer[j] = open;
              EqBodyBuffer[j] = EMPTY_VALUE;
              BgBodyBuffer[j] = close;
              UpShadowBuffer[j] = EMPTY_VALUE;
              DnShadowBuffer[j] = high;
              EqShadowBuffer[j] = EMPTY_VALUE;
              BgShadowBuffer[j] = low;
             }
           else
             {
              UpBodyBuffer[j] = EMPTY_VALUE;
              DnBodyBuffer[j] = EMPTY_VALUE;
              EqBodyBuffer[j] = open;
              BgBodyBuffer[j] = open - 1;
              UpShadowBuffer[j] = EMPTY_VALUE;
              DnShadowBuffer[j] = EMPTY_VALUE;
              if (high == low)
                {
                 EqShadowBuffer[j] = EMPTY_VALUE;
                 BgShadowBuffer[j] = EMPTY_VALUE;
                }
              else
                {
                 EqShadowBuffer[j] = high;
                 BgShadowBuffer[j] = low;
                }
             }
        }
        j += SpacingBetweenCandles;
      }

  // separator line (between time frames)
      string ObjNameS = IndiName + "-" + tct + "-s";
      ObjectCreate(ObjNameS,OBJ_TREND,Wnum,iTime(sym,tmf,j),120,iTime(sym,tmf,j),-20);
      ObjectSet(ObjNameS,OBJPROP_COLOR,TextColor);

  // text, e.g. "USDJPY,H1"
      string ObjNameT = IndiName + "-" + tct + "-t";
      string dispstr = "";
      ObjectCreate(ObjNameT,OBJ_TEXT,Wnum,iTime(sym,tmf,j-SpacingBetweenCandles*(NC[z]+2)/2),-10);
      ObjectSetText(ObjNameT, " ", TextSize, TextFont, TextColor);
      if (DisplayCcyName && DisplayTF)  dispstr = tct;      else
      if (DisplayCcyName             )  dispstr = ccyt;     else
      if (DisplayTF                  )  dispstr = tft;
      if (HeikinAshiCandles && DisplayCcyName) dispstr = dispstr + "-HA";
      ObjectSetText(ObjNameT, dispstr, TextSize, TextFont, TextColor);

      j += SpacingBetweenCandles;
    }

    if (DisplayInfo)   {
      if (IC[c] == 0)
        string info = ccyt + " = " + DoubleToStr(bidp,dig) + " / " + DoubleToStr(askp,dig);
      else
        info = ccyt + " = " + DoubleToStr(DivZero(1,(bidp+askp)/2),dig);
      string ObjNameI = IndiName + "-" + ccyp + "-i1";
      ObjectCreate(ObjNameI,OBJ_TEXT,Wnum,iTime(sym,tmf,j+13*SpacingBetweenCandles/2),98);
      ObjectSetText(ObjNameI, info, TextSize, TextFont, TextColor); 

      info = "  Last Tick = " + TimeToStr(lastick,TIME_SECONDS);
      ObjNameI = IndiName + "-" + ccyp + "-i2";
      ObjectCreate(ObjNameI,OBJ_TEXT,Wnum,iTime(sym,tmf,j+13*SpacingBetweenCandles/2),73);
      ObjectSetText(ObjNameI, info, TextSize, TextFont, TextColor); 

      if (IC[c] == 0)   {
        info = "  Swap = " + DoubleToStr(Lswap,2) + " / " + DoubleToStr(Sswap,2);
        ObjNameI = IndiName + "-" + ccyp + "-i3";
        ObjectCreate(ObjNameI,OBJ_TEXT,Wnum,iTime(sym,tmf,j+13*SpacingBetweenCandles/2),48);
        ObjectSetText(ObjNameI, info, TextSize, TextFont, TextColor); 

        int    k         = 0;
        double DailyMove = 0;
        for (i=1; i<=10; i++)  {
          if (TimeDayOfWeek(iTime(ccyp,PERIOD_D1,i)) > 0)  {
            k++;
            DailyMove += (iHigh(ccyp,PERIOD_D1,i) - iLow(ccyp,PERIOD_D1,i)) / pnt;
        } }  
        DailyMove = DivZero(DailyMove,k);   
        if (dig == 3 || dig == 5) 
          DailyMove /= 10;

        info = "  Spread = " + DoubleToStr(spr,1) + "  (" + DoubleToStr(spr * 100 / DailyMove, 2) + "%)";
        ObjNameI = IndiName + "-" + ccyp + "-i4";
        ObjectCreate(ObjNameI,OBJ_TEXT,Wnum,iTime(sym,tmf,j+13*SpacingBetweenCandles/2),23);
        ObjectSetText(ObjNameI, info, TextSize, TextFont, TextColor); 

        info = "  Pip Value = " + DoubleToStr(tickval,3);
        ObjNameI = IndiName + "-" + ccyp + "-i5";
        ObjectCreate(ObjNameI,OBJ_TEXT,Wnum,iTime(sym,tmf,j+13*SpacingBetweenCandles/2),-2);
        ObjectSetText(ObjNameI, info, TextSize, TextFont, TextColor); 
      }  
      
      j += 20*SpacingBetweenCandles;
    }
  }  
} 
/*
//+------------------------------------------------------------------+
int MathSign(double n)
//+------------------------------------------------------------------+
 {
   if (n > 0) return(1);
   else if (n < 0) return (-1);
   else return(0);
 }  

//+------------------------------------------------------------------+
double MathFix(double n, int d)
//+------------------------------------------------------------------+
 {
   return(MathRound(n*MathPow(10,d)+0.000000000001)/MathPow(10,d));
 }  
*/
//+------------------------------------------------------------------+
double DivZero(double n, double d)
//+------------------------------------------------------------------+
 {
   if (d == 0) return(0);  else return(n/d);
 }  

//+------------------------------------------------------------------+
bool StrToBool(string str)
//+------------------------------------------------------------------+
{
  str = StringLower(StringSubstr(str,0,1));
  if (str == "t" || str == "y" || str == "1")   return(true);
  return(false);
}  

//+------------------------------------------------------------------+
string StringUpper(string str)
//+------------------------------------------------------------------+
{
  string outstr = "";
  string lower  = "abcdefghijklmnopqrstuvwxyz";
  string upper  = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
  for(int i=0; i=0)  
      outstr = outstr + StringSubstr(upper,t1,1);
    else
      outstr = outstr + StringSubstr(str,i,1);
  }
  return(outstr);
}  

//+------------------------------------------------------------------+
string StringTrim(string str)
//+------------------------------------------------------------------+
{
  string outstr = "";
  for(int i=0; i 0)  {
    while(!FileIsEnding(handle))  {
      string text  = FileReadString(handle);
      int t0 = StringFind(text,"//",0);
      if (t0 == 0)       text = "";    
      else if (t0 > 0)   text = StringSubstr(text,0,t0);
      string temp  = "";
      int    quote = 0;
      for(int i=0; i 0) {
        int equal = StringFind(temp,"=",0);
        int semic = StringFind(temp,";",0);
        string pname = "";
        pname   = StringSubstr(temp,0,equal);
        string pvalue = StringSubstr(temp,equal+1,semic-equal+1);
        if (pvalue != "*")  {
//---------------------------------------------------------------------------------------------------------------
//    Parameter assignment statements go in here
//---------------------------------------------------------------------------------------------------------------
          if (pname == "currencypairs")            CurrencyPairs            = pvalue;                     else
          if (pname == "timeframes")               TimeFrames               = pvalue;                     else
          if (pname == "numcandles")               NumCandles               = pvalue;                     else
          if (pname == "historicalshift")          HistoricalShift          = pvalue;                     else
          if (pname == "candlewidth")              CandleWidth              = StrToInteger(pvalue);       else
          if (pname == "spacingbetweencandles")    SpacingBetweenCandles    = StrToInteger(pvalue);       else
          if (pname == "candleupcolor")            CandleUpColor            = StrToColor(pvalue);         else
          if (pname == "candledowncolor")          CandleDownColor          = StrToColor(pvalue);         else
          if (pname == "textcolor")                TextColor                = StrToColor(pvalue);         else
          if (pname == "textfont")                 TextFont                 = pvalue;                     else
          if (pname == "textsize")                 TextSize                 = StrToInteger(pvalue);       else
          if (pname == "backgroundcolor")          BackgroundColor          = StrToColor(pvalue);         else
          if (pname == "displayinfo")              DisplayInfo              = StrToBool(pvalue);          else
          if (pname == "displayccyname")           DisplayCcyName           = StrToBool(pvalue);          else
          if (pname == "displaytf")                DisplayTF                = StrToBool(pvalue);          else
          if (pname == "refresheveryxmins")        RefreshEveryXMins        = StrToInteger(pvalue);       else
          if (pname == "heikinashicandles")        HeikinAshiCandles        = StrToBool(pvalue);         

//---------------------------------------------------------------------------------------------------------------
        }
      }  
      temp = FileReadString(handle);
    }
    FileClose(handle);
  }  
  
  CurrencyPairs  = StringUpper(CurrencyPairs);
  if (CurrencyPairs == "")  CurrencyPairs = Symbol();
  ccy            = CurrencyPairs;
  if (StringSubstr(CurrencyPairs,StringLen(CurrencyPairs)-1,1) != ",")  CurrencyPairs = CurrencyPairs + ",";
  TimeFrames     = StringTrim(StringUpper(TimeFrames));
  if (TimeFrames == "")  TimeFrames = TFToStr(Period());
  if (StringSubstr(TimeFrames,StringLen(TimeFrames)-1,1) != ",")  TimeFrames = TimeFrames + ",";
  if (NumCandles == "")   NumCandles = "5";
  if (StringSubstr(NumCandles,StringLen(NumCandles)-1,1) != ",")  NumCandles = NumCandles + ",";

  ccCP = StringFindCount(CurrencyPairs,",");
  ccTF = StringFindCount(TimeFrames,",");
  ccNC = StringFindCount(NumCandles,",");
  ccHS = StringFindCount(HistoricalShift,",");
  for (i=0; i<30; i++)
    CP[i] = "";
  ArrayInitialize(TF,0);  
  ArrayInitialize(NC,-1);
  ArrayInitialize(HS,0);  
  ArrayInitialize(IC,0);  
  int comma1 = -1;
  for (i=0; i<30; i++)  {
    int comma2 = StringFind(CurrencyPairs,",",comma1+1);
    temp  = StringSubstr(CurrencyPairs,comma1+1,comma2-comma1-1);
    if (StringFind(temp,"*",0) >= 0)   {
      temp = aStringReplace(temp,"*","");
      IC[i] = 1;
    }
    CP[i] = ExpandCcy(temp);
    if (StringLen(CP[i]) > 6)
      CP[i] = StringSubstr(CP[i],0,6) + StringLower(StringSubstr(CP[i],6));
    if (comma2 >= StringLen(CurrencyPairs)-1)   break;
    comma1 = comma2;
  }  
  comma1 = -1;
  for (i=0; i<9; i++)  {
    comma2 = StringFind(TimeFrames,",",comma1+1);
    temp  = StringSubstr(TimeFrames,comma1+1,comma2-comma1-1);
    TF[i] = StrToTF(temp);
    if (comma2 >= StringLen(TimeFrames)-1)   break;
    comma1 = comma2;
  }  
  comma1 = -1;
  for (i=0; i<9; i++)  {
    comma2 = StringFind(NumCandles,",",comma1+1);
    temp  = StringSubstr(NumCandles,comma1+1,comma2-comma1-1);
    NC[i] = StrToInteger(temp);
    if (comma2 >= StringLen(NumCandles)-1)   break;
    comma1 = comma2;
  }
  if (ccNC == 1)   
    for (i=0; i= StringLen(HistoricalShift)-1)   break;
    comma1 = comma2;
  }
  if (ccHS == 1)   
    for (i=0; i=0)  
      outstr = outstr + StringSubstr(lower,t1,1);
    else
      outstr = outstr + StringSubstr(str,i,1);
  }
  return(outstr);
}



//+------------------------------------------------------------------+
int StrToColor(string str)
//+------------------------------------------------------------------+
{
  str = StringLower(str);
  if (str == "aliceblue")              return(0xFFF8F0);
  if (str == "antiquewhite")           return(0xD7EBFA);
  if (str == "aqua")                   return(0xFFFF00);
  if (str == "aquamarine")             return(0xD4FF7F);
  if (str == "beige")                  return(0xDCF5F5);
  if (str == "bisque")                 return(0xC4E4FF);
  if (str == "black")                  return(0x000000);
  if (str == "blanchedalmond")         return(0xCDEBFF);
  if (str == "blue")                   return(0xFF0000);
  if (str == "blueviolet")             return(0xE22B8A);
  if (str == "brown")                  return(0x2A2AA5);
  if (str == "burlywood")              return(0x87B8DE);
  if (str == "cadetblue")              return(0xA09E5F);
  if (str == "chartreuse")             return(0x00FF7F);
  if (str == "chocolate")              return(0x1E69D2);
  if (str == "coral")                  return(0x507FFF);
  if (str == "cornflowerblue")         return(0xED9564);
  if (str == "cornsilk")               return(0xDCF8FF);
  if (str == "crimson")                return(0x3C14DC);
  if (str == "darkblue")               return(0x8B0000);
  if (str == "darkgoldenrod")          return(0x0B86B8);
  if (str == "darkgray")               return(0xA9A9A9);
  if (str == "darkgreen")              return(0x006400);
  if (str == "darkkhaki")              return(0x6BB7BD);
  if (str == "darkolivegreen")         return(0x2F6B55);
  if (str == "darkorange")             return(0x008CFF);
  if (str == "darkorchid")             return(0xCC3299);
  if (str == "darksalmon")             return(0x7A96E9);
  if (str == "darkseagreen")           return(0x8BBC8F);
  if (str == "darkslateblue")          return(0x8B3D48);
  if (str == "darkslategray")          return(0x4F4F2F);
  if (str == "darkturquoise")          return(0xD1CE00);
  if (str == "darkviolet")             return(0xD30094);
  if (str == "deeppink")               return(0x9314FF);
  if (str == "deepskyblue")            return(0xFFBF00);
  if (str == "dimgray")                return(0x696969);
  if (str == "dodgerblue")             return(0xFF901E);
  if (str == "firebrick")              return(0x2222B2);
  if (str == "forestgreen")            return(0x228B22);
  if (str == "gainsboro")              return(0xDCDCDC);
  if (str == "gold")                   return(0x00D7FF);
  if (str == "goldenrod")              return(0x20A5DA);
  if (str == "gray")                   return(0x808080);
  if (str == "green")                  return(0x008000);
  if (str == "greenyellow")            return(0x2FFFAD);
  if (str == "honeydew")               return(0xF0FFF0);
  if (str == "hotpink")                return(0xB469FF);
  if (str == "indianred")              return(0x5C5CCD);
  if (str == "indigo")                 return(0x82004B);
  if (str == "ivory")                  return(0xF0FFFF);
  if (str == "khaki")                  return(0x8CE6F0);
  if (str == "lavender")               return(0xFAE6E6);
  if (str == "lavenderblush")          return(0xF5F0FF);
  if (str == "lawngreen")              return(0x00FC7C);
  if (str == "lemonchiffon")           return(0xCDFAFF);
  if (str == "lightblue")              return(0xE6D8AD);
  if (str == "lightcoral")             return(0x8080F0);
  if (str == "lightcyan")              return(0xFFFFE0);
  if (str == "lightgoldenrod")         return(0xD2FAFA);
  if (str == "lightgray")              return(0xD3D3D3);
  if (str == "lightgreen")             return(0x90EE90);
  if (str == "lightpink")              return(0xC1B6FF);
  if (str == "lightsalmon")            return(0x7AA0FF);
  if (str == "lightseagreen")          return(0xAAB220);
  if (str == "lightskyblue")           return(0xFACE87);
  if (str == "lightslategray")         return(0x998877);
  if (str == "lightsteelblue")         return(0xDEC4B0);
  if (str == "lightyellow")            return(0xE0FFFF);
  if (str == "lime")                   return(0x00FF00);
  if (str == "limegreen")              return(0x32CD32);
  if (str == "linen")                  return(0xE6F0FA);
  if (str == "magenta")                return(0xFF00FF);
  if (str == "maroon")                 return(0x000080);
  if (str == "mediumaquamarine")       return(0xAACD66);
  if (str == "mediumblue")             return(0xCD0000);
  if (str == "mediumorchid")           return(0xD355BA);
  if (str == "mediumpurple")           return(0xDB7093);
  if (str == "mediumseagreen")         return(0x71B33C);
  if (str == "mediumslateblue")        return(0xEE687B);
  if (str == "mediumspringgreen")      return(0x9AFA00);
  if (str == "mediumturquoise")        return(0xCCD148);
  if (str == "mediumvioletred")        return(0x8515C7);
  if (str == "midnightblue")           return(0x701919);
  if (str == "mintcream")              return(0xFAFFF5);
  if (str == "mistyrose")              return(0xE1E4FF);
  if (str == "moccasin")               return(0xB5E4FF);
  if (str == "navajowhite")            return(0xADDEFF);
  if (str == "navy")                   return(0x800000);
  if (str == "none")                   return(C'0x00,0x00,0x00');
  if (str == "oldlace")                return(0xE6F5FD);
  if (str == "olive")                  return(0x008080);
  if (str == "olivedrab")              return(0x238E6B);
  if (str == "orange")                 return(0x00A5FF);
  if (str == "orangered")              return(0x0045FF);
  if (str == "orchid")                 return(0xD670DA);
  if (str == "palegoldenrod")          return(0xAAE8EE);
  if (str == "palegreen")              return(0x98FB98);
  if (str == "paleturquoise")          return(0xEEEEAF);
  if (str == "palevioletred")          return(0x9370DB);
  if (str == "papayawhip")             return(0xD5EFFF);
  if (str == "peachpuff")              return(0xB9DAFF);
  if (str == "peru")                   return(0x3F85CD);
  if (str == "pink")                   return(0xCBC0FF);
  if (str == "plum")                   return(0xDDA0DD);
  if (str == "powderblue")             return(0xE6E0B0);
  if (str == "purple")                 return(0x800080);
  if (str == "red")                    return(0x0000FF);
  if (str == "rosybrown")              return(0x8F8FBC);
  if (str == "royalblue")              return(0xE16941);
  if (str == "saddlebrown")            return(0x13458B);
  if (str == "salmon")                 return(0x7280FA);
  if (str == "sandybrown")             return(0x60A4F4);
  if (str == "seagreen")               return(0x578B2E);
  if (str == "seashell")               return(0xEEF5FF);
  if (str == "sienna")                 return(0x2D52A0);
  if (str == "silver")                 return(0xC0C0C0);
  if (str == "skyblue")                return(0xEBCE87);
  if (str == "slateblue")              return(0xCD5A6A);
  if (str == "slategray")              return(0x908070);
  if (str == "snow")                   return(0xFAFAFF);
  if (str == "springgreen")            return(0x7FFF00);
  if (str == "steelblue")              return(0xB48246);
  if (str == "tan")                    return(0x8CB4D2);
  if (str == "teal")                   return(0x808000);
  if (str == "thistle")                return(0xD8BFD8);
  if (str == "tomato")                 return(0x4763FF);
  if (str == "turquoise")              return(0xD0E040);
  if (str == "violet")                 return(0xEE82EE);
  if (str == "wheat")                  return(0xB3DEF5);
  if (str == "white")                  return(0xFFFFFF);
  if (str == "whitesmoke")             return(0xF5F5F5);
  if (str == "yellow")                 return(0x00FFFF);
  if (str == "yellowgreen")            return(0x32CD9A);

  int t1 = StringFind(str,",",0);
  int t2 = StringFind(str,",",t1+1);
  if (t1>0 && t2>0) {
    int red   = StrToInteger(StringSubstr(str,0,t1));
    int green = StrToInteger(StringSubstr(str,t1+1,t2-1));
    int blue  = StrToInteger(StringSubstr(str,t2+1,StringLen(str)));
    return(blue*256*256+green*256+red);
  }  

  return(0);
}  

//+------------------------------------------------------------------+
int StringFindCount(string str, string str2)
//+------------------------------------------------------------------+
// Returns the number of occurrences of STR2 in STR
// Usage:   int x = StringFindCount("ABCDEFGHIJKABACABB","AB")   returns x = 3
{
  int c = 0;
  for (int i=0; i 2)   return(str);
  string str2 = "";
  for (int i=0; i        

Recommend