Urdala_History_Graf

//+------------------------------------------------------------------+
//|                                          Urdala_History_Graf.mq4 |
//|                                        Ñåðãåé (urdala) Ðàøåâñêèé |
//|                                                   urdala@mail.ru |
//+------------------------------------------------------------------+
#property copyright "Ñåðãåé (urdala) Ðàøåâñêèé"
#property link      "urdala@mail.ru"


int start()
  {
   string Name;
   double ClosePrice;
   bool Del;
//--------------------------------------------------------------------
   for (int i=0; i<ObjectsTotal(); i++)
       {
        if (StringSubstr(ObjectName(i),0,5)=="Order" || StringSubstr(ObjectName(i),0,5)=="Close"){ObjectDelete(ObjectName(i));i--;Del=true;}
       }
   if (Del) return(0);
//--------------------------------------------------------------------
   for (i=0; i<OrdersHistoryTotal(); i++)
       {
        OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
        if (OrderSymbol()==Symbol())
           {
            Name="Order "+OrderTicket()+" "+OrderType()+" "+ DoubleToStr(OrderLots(),2)+" "+DoubleToStr(OrderProfit(),2);
            ObjectCreate(Name,OBJ_ARROW,0,OrderOpenTime(),OrderOpenPrice());
            ObjectSet(Name,OBJPROP_ARROWCODE,1);
            if (OrderType()==0 || OrderType()==2 || OrderType()==4) ObjectSet(Name,OBJPROP_COLOR,Blue);
               else ObjectSet(Name,OBJPROP_COLOR,Red);
            Name="Close "+OrderTicket();
            if (OrderType()>1)ClosePrice=OrderOpenPrice();
               else ClosePrice=OrderClosePrice();
            ObjectCreate(Name,OBJ_ARROW,0,OrderCloseTime(),ClosePrice);
            ObjectSet(Name,OBJPROP_ARROWCODE,3);
            ObjectSet(Name,OBJPROP_COLOR,Goldenrod);
            Name="Order line "+OrderTicket();
            
            ObjectCreate(Name,OBJ_TREND,0,OrderOpenTime(),OrderOpenPrice(),OrderCloseTime(),ClosePrice);
            ObjectSet(Name,OBJPROP_RAY,0);
            ObjectSet(Name,OBJPROP_STYLE,1);
            if (OrderProfit()>=0) ObjectSet(Name,OBJPROP_COLOR,Blue);
               else ObjectSet(Name,OBJPROP_COLOR,Red);
           }
       }
   return(0);
  }