add clean XTradeDays and XMarketSessions Drawn Objects Support ...

Classes/x-saherelm.x-chart-objects.class.mq5

@@ -96,11 +96,6 @@ class XCFromToObject : public CChartObject
     // Deconstructors ...
     void ~XCFromToObject()
     {
-        //
-        mToVLine.Detach();
-        mFromVLine.Detach();
-        mToVLine.Delete();
-        mFromVLine.Delete();
     }
 
     /**
@@ -242,6 +237,16 @@ class XCTardeDayObject : public XCFromToObject
     {
     }
 
+    /**
+     * Create Object Based on Given Structure ...
+     *
+     * @param  chart_id: Long ...
+     * @param  name: String ...
+     * @param  window: Integer ...
+     * @param  day: XTradeDay instance ...
+     *
+     * @return ( bool )
+     */
     bool CreateByDay(
         long chart_id,
         const string name,
@@ -306,6 +311,16 @@ class XCMarketSessionObject : public XCFromToObject
     {
     }
 
+    /**
+     * Create Object Based on Given Structure ...
+     *
+     * @param  chart_id: Long ...
+     * @param  name: String ...
+     * @param  window: Integer ...
+     * @param  session: XMarketSession instance ...
+     *
+     * @return ( bool )
+     */
     bool CreateByMarketSession(
         long chart_id,
         const string name,

Classes/x-saherelm.x-poi.class.mq5

@@ -2395,14 +2395,6 @@ class XCPOI : public XSCBaseAlert
         DestroyMarketSessionObjects();
     }
 
-    /**
-     * Clean Trading Day Drawn Objects ...
-     */
-    void DestroyTradingTradingDayObjects()
-    {
-        mTradingDayObjects.Clear();
-    }
-
     /**
      * Clean Swing Highs Drawn Objects ...
      */
@@ -2435,13 +2427,20 @@ class XCPOI : public XSCBaseAlert
         mRejectionBarObjects.Clear();
     }
 
+    /**
+     * Clean Trading Day Drawn Objects ...
+     */
+    void DestroyTradingTradingDayObjects()
+    {
+        mTradingDayObjects.Clear();
+    }
+
     /**
      * Destroy Market Sessions Drawn Objects ...
      */
     void DestroyMarketSessionObjects()
     {
-        //
-        // TODO: Implement this ...
+        mMarketSessionObjects.Clear();
     }
 
     //
@@ -3022,6 +3021,9 @@ class XCPOI : public XSCBaseAlert
         //
         iObj.ToColor(TradingDaysEndColor());
         iObj.ToStyle(TradingDaysEndStyle());
+
+        //
+        mTradingDayObjects.Add(iObj);
     }
 
     //
@@ -3083,14 +3085,7 @@ class XCPOI : public XSCBaseAlert
         iObj.ToStyle(mSessions[sessionIDX].endStyle);
 
         //
-        string msg =
-            ToString(session.session) + "\n" +
-            "Offset: " + ToString(TimeGMTOffset()) + "\n" +
-            "LOffset: " + ToString(GetLocalOffset()) + "\n" +
-            "UTCROffset: " + ToString(GetUTCRequiredTimeOffset()) + "\n" +
-            "First Bar: " + ToString(session.from) + "\n" +
-            "Last Bar: " + ToString(session.to) + "\n";
-        LogAlert(msg);
+        mMarketSessionObjects.Add(iObj);        
     }
 
     //