Repaint Event Objects

ÿþ//+------------------------------------------------------------------+

//|                                        Repaint Event Objects.mq5 |

//|                              Copyright © 2021, Vladimir Karputov |

//|                     https://www.mql5.com/ru/market/product/43516 |

//+------------------------------------------------------------------+

#property copyright "Copyright © 2021, Vladimir Karputov"

#property link      "https://www.mql5.com/ru/market/product/43516"

#property version   "3.153"

#property script_show_inputs

//--- input parameters

input color InputPaleTurquoise   = clrRed;      // Priority High

//+------------------------------------------------------------------+

//| Script program start function                                    |

//+------------------------------------------------------------------+

void OnStart()

  {

//---

   long  chart_id    = ChartID();   // chart identifier

   int   sub_window  = 0;           // window index

   int   type        = OBJ_EVENT;   // object type

   int   total_event = ObjectsTotal(chart_id,sub_window,type);

//for(int i=PositionsTotal()-1; i>=0; i--)

   for(int i=total_event-1; i>=0; i--)

     {

      string name=ObjectName(chart_id,i,sub_window,type);

      color clr=(color)ObjectGetInteger(chart_id,name,OBJPROP_COLOR);

      if(clr==clrPink)

         ObjectDelete(chart_id,name);

      if(clr==clrWhiteSmoke)

         ObjectDelete(chart_id,name);

      if(clr==clrPaleTurquoise)

         if(InputPaleTurquoise!=clrPaleTurquoise)

            ObjectSetInteger(chart_id,name,OBJPROP_COLOR,InputPaleTurquoise);

     }

  }

//+------------------------------------------------------------------+