Add Supports for Signalling Panel and its Actions and also Completely Test it ...

Classes/XCObjects/x-saherelm.x-panel.class.mq5

@@ -107,7 +107,7 @@ class XCPanel : XSCBase
 
         //
         mTitleBarName = name + "_TITLE_BAR";
-        mTitleTextName = name + "_CAPTION";
+        mCaptionLblName = name + "_CAPTION";
         mBodyName = name + "_BODY";
 
         //
@@ -156,22 +156,22 @@ class XCPanel : XSCBase
 
         //
         // Caption ...
-        result = mTitleText.Create(mTitleTextName, xDis, yDis);
+        result = mCaptionLbl.Create(mCaptionLblName, xDis, yDis);
         if (!result)
         {
             //
             Destroy();
             return result;
         }
-        mTitleText.SetText(caption);
-        mTitleText.SetAnchor(captionAnchor);
-        mTitleText.SetTextColor(captionColor);
-        mTitleText.SetFontSize(captionontSize);
+        mCaptionLbl.SetText(caption);
+        mCaptionLbl.SetAnchor(captionAnchor);
+        mCaptionLbl.SetTextColor(captionColor);
+        mCaptionLbl.SetFontSize(captionontSize);
 
         //
         // Adding Child Objects ...
         mTitleBar.Add(mBodyName);
-        mTitleBar.Add(mTitleTextName);
+        mTitleBar.Add(mCaptionLblName);
 
         //
         return result;
@@ -185,12 +185,12 @@ class XCPanel : XSCBase
         //
         mBodyName = NULL;
         mTitleBarName = NULL;
-        mTitleTextName = NULL;
+        mCaptionLblName = NULL;
 
         //
         mBody.Destroy();
         mTitleBar.Destroy();
-        mTitleText.Destroy();
+        mCaptionLbl.Destroy();
     }
 
     /**
@@ -226,6 +226,26 @@ class XCPanel : XSCBase
         mTitleBar.Add(name);
     }
 
+    /**
+     * Retrieve Panel Caption ...
+     *
+     * @return ( string )
+     */
+    string Caption()
+    {
+        return mCaptionLbl.GetText();
+    }
+
+    /**
+     * Set Panel Caption ...
+     *
+     * @param  value: Caption
+     */
+    void Caption(string value)
+    {
+        mCaptionLbl.SetText(value);
+    }
+
     //
   protected:
   private:
@@ -235,10 +255,10 @@ class XCPanel : XSCBase
     //
     string mBodyName;
     string mTitleBarName;
-    string mTitleTextName;
+    string mCaptionLblName;
 
     //
-    XCLabel mTitleText;
+    XCLabel mCaptionLbl;
     XCRectangleLabel mBody;
     XCRectangleLabel mTitleBar;