手工制图表和交易工具箱（第三部分）。 优化和全新工具·综合运用

  price_of_base_point=StringToDouble(point_components[class="num">2]);
  if(time_of_base_point==class="num">0 || price_of_base_point==class="num">0)
   {
     PrintDebugMessage(__FUNCTION__+" Error: Unusable description");
     class="kw">return;
   }
class=class="str">"cmt">//--- Get the real coordinates of the line
   time_first_point = (class="type">class="kw">datetime)ObjectGetInteger(class="num">0,_line_name,OBJPROP_TIME,class="num">0);
   time_second_point = (class="type">class="kw">datetime)ObjectGetInteger(class="num">0,_line_name,OBJPROP_TIME,class="num">1);
   price_first_point = ObjectGetDouble(class="num">0,_line_name,OBJPROP_PRICE,class="num">0);
   price_second_point = ObjectGetDouble(class="num">0,_line_name,OBJPROP_PRICE,class="num">1);
class=class="str">"cmt">//--- Create an auxiliary line(from the starting point to the base one)
   MakeHelpfulLine(
     time_first_point,
     price_first_point,
     time_of_base_point,
     price_of_base_point
   );
class=class="str">"cmt">//--- Calculate the correct time for the current situation
   time_far_ideal=ObjectGetTimeByValue(class="num">0,helpful_name,price_second_point);
class=class="str">"cmt">//---
   if(time_second_point != time_far_ideal)
    {
      class=class="str">"cmt">//--- move the free end of the trend line
      ObjectMove(class="num">0,_line_name,class="num">1,time_far_ideal,price_second_point);
      class=class="str">"cmt">//--- and the corresponding vertical
      StringSplit(_line_name,StringGetCharacter("_",class="num">0),name_components);
      for(i=class="num">0; i<ObjectsTotal(class="num">0,-class="num">1,OBJ_VLINE); i++)
       {
         vertical_name = ObjectName(class="num">0,i,-class="num">1,OBJ_VLINE);
         if(name_components[class="num">0]==StringSubstr(vertical_name,class="num">0,StringFind(vertical_name,"_",class="num">0)))
          {
            if((class="type">class="kw">datetime)ObjectGetInteger(class="num">0,vertical_name,OBJPROP_TIME,class="num">0)==time_second_point)
             {
               ObjectMove(class="num">0,vertical_name,class="num">0,time_far_ideal,price_second_point);
               break;
             }
          }
       }
    }
  class=class="str">"cmt">// Delete the auxiliary line
  RemoveHelpfulLine();
}
class=class="str">"cmt">/* Shortcuts.mq5 */
class="type">int OnCalculate(class=class="str">"cmt">/*...*/)
{
   class=class="str">"cmt">//...
   if(CUtilites::IsNewBar(First_Start_True,PERIOD_H1))
    {
      for(i=class="num">0; i<all_lines_count; i++)
       {
         line_name=ObjectName(class="num">0,i,-class="num">1,OBJ_TREND);
         CUtilites::CorrectTrendFutureEnd(line_name);
         ChartRedraw();
       }
    }
   class=class="str">"cmt">//...
}