| //+------------------------------------------------------------------+
|
| //| Panel.mqh |
|
| //| Copyright 2026, Allan Niñal |
|
| //| https://www.allanninal.dev/mql5 |
|
| //+------------------------------------------------------------------+
|
| //| A grid panel made of chart objects that all start with one |
|
| //| prefix: title bar, header row, one row label per row and one |
|
| //| button per cell. Only cells whose text or colours changed are |
|
| //| touched. Everything is removed by Destroy() (call it in |
|
| //| OnDeinit). If the chart refuses objects (e.g. in the tester) the |
|
| //| panel simply stays silent. |
|
| //+------------------------------------------------------------------+
|
| // SPDX-License-Identifier: LicenseRef-PolyForm-Noncommercial-1.0.0 (see LICENSE)
|
| #property strict
|
|
|
| enum ENUM_SD_CORNER
|
| {
|
| SD_TOP_LEFT=0, // Top left
|
| SD_TOP_RIGHT=1, // Top right
|
| SD_BOTTOM_LEFT=2, // Bottom left
|
| SD_BOTTOM_RIGHT=3 // Bottom right
|
| };
|
|
|
| class CSDPanel
|
| {
|
| private:
|
| string m_p;
|
| long m_chart;
|
| int m_corner,m_ox,m_oy,m_fs;
|
| bool m_collapsed,m_ok,m_built;
|
| int m_rows,m_cols;
|
| string m_title;
|
| string m_rowhead; // header of the row-label column ("Symbol" unless set)
|
| string m_heads[],m_labels[];
|
| string m_txt[],m_tip[];
|
| color m_fg[],m_bg[];
|
| color m_c_panel,m_c_text,m_c_head;
|
| int m_lw,m_cw,m_rh,m_pad,m_W,m_H,m_x0,m_y0,m_cwpx,m_chpx;
|
| bool Put(const ENUM_OBJECT type,const string name,const int x,const int y,const int w,const int h,
|
| const string txt,const color fg,const color bg,const bool bold);
|
| void Size();
|
| public:
|
| CSDPanel(): m_rowhead("Symbol"),m_chart(0),m_collapsed(false),m_ok(true),m_built(false),m_rows(0),m_cols(0) {}
|
| void Setup(const string prefix,const string title,const int corner,const int ox,const int oy,const int fontsize,
|
| const color c_panel,const color c_text,const color c_head);
|
| void Layout(const string &heads[],const string &labels[]);
|
| void Rebuild();
|
| void SetTitle(const string t);
|
| void SetRowHead(const string h) { m_rowhead=h; }
|
| void SetCell(const int r,const int c,const string txt,const color fg,const color bg,const string tip);
|
| bool Click(const string name,int &row,int &col);
|
| bool ChartResized();
|
| void Destroy();
|
| string Prefix() const { return(m_p); }
|
| };
|
|
|
| void CSDPanel::Setup(const string prefix,const string title,const int corner,const int ox,const int oy,
|
| const int fontsize,const color c_panel,const color c_text,const color c_head)
|
| {
|
| m_p=prefix; m_title=title; m_corner=corner; m_ox=ox; m_oy=oy; m_fs=MathMax(7,fontsize);
|
| m_c_panel=c_panel; m_c_text=c_text; m_c_head=c_head;
|
| m_chart=ChartID();
|
| m_collapsed=false;
|
| m_ok=true;
|
| }
|
|
|
| void CSDPanel::Size()
|
| {
|
| m_rh=m_fs*2+6;
|
| m_pad=4;
|
| m_cwpx=(int)ChartGetInteger(m_chart,CHART_WIDTH_IN_PIXELS);
|
| m_chpx=(int)ChartGetInteger(m_chart,CHART_HEIGHT_IN_PIXELS);
|
| int maxl=StringLen(m_rowhead);
|
| for(int i=0; i<m_rows; i++)
|
| maxl=MathMax(maxl,StringLen(m_labels[i]));
|
| m_lw=(int)(maxl*m_fs*0.95)+14;
|
| int maxc=6;
|
| for(int i=0; i<m_rows*m_cols; i++)
|
| maxc=MathMax(maxc,StringLen(m_txt[i]));
|
| for(int i=0; i<m_cols; i++)
|
| maxc=MathMax(maxc,StringLen(m_heads[i]));
|
| m_cw=(int)(maxc*m_fs*0.95)+12;
|
| int body=(m_collapsed ? 0 : m_lw+m_cols*(m_cw+2)+2);
|
| m_W=m_pad*2+MathMax(body,(int)(StringLen(m_title)*m_fs*1.0)+m_rh*2);
|
| m_H=m_pad*2+m_rh+(m_collapsed ? 0 : (m_rh+2)*(m_rows+1));
|
| m_x0=((m_corner==SD_TOP_RIGHT || m_corner==SD_BOTTOM_RIGHT) ? m_cwpx-m_W-m_ox : m_ox);
|
| m_y0=((m_corner==SD_BOTTOM_LEFT || m_corner==SD_BOTTOM_RIGHT) ? m_chpx-m_H-m_oy : m_oy);
|
| m_x0=MathMax(0,m_x0);
|
| m_y0=MathMax(0,m_y0);
|
| }
|
|
|
| bool CSDPanel::Put(const ENUM_OBJECT type,const string name,const int x,const int y,const int w,const int h,
|
| const string txt,const color fg,const color bg,const bool bold)
|
| {
|
| if(ObjectFind(m_chart,name)<0 && !ObjectCreate(m_chart,name,type,0,0,0))
|
| return(false);
|
| ObjectSetInteger(m_chart,name,OBJPROP_CORNER,CORNER_LEFT_UPPER);
|
| ObjectSetInteger(m_chart,name,OBJPROP_XDISTANCE,x);
|
| ObjectSetInteger(m_chart,name,OBJPROP_YDISTANCE,y);
|
| if(type!=OBJ_LABEL)
|
| {
|
| ObjectSetInteger(m_chart,name,OBJPROP_XSIZE,w);
|
| ObjectSetInteger(m_chart,name,OBJPROP_YSIZE,h);
|
| }
|
| ObjectSetInteger(m_chart,name,OBJPROP_SELECTABLE,false);
|
| ObjectSetInteger(m_chart,name,OBJPROP_SELECTED,false);
|
| ObjectSetInteger(m_chart,name,OBJPROP_HIDDEN,true);
|
| ObjectSetInteger(m_chart,name,OBJPROP_BACK,false);
|
| ObjectSetInteger(m_chart,name,OBJPROP_ZORDER,type==OBJ_BUTTON ? 10 : 1);
|
| ObjectSetInteger(m_chart,name,OBJPROP_COLOR,fg);
|
| if(type==OBJ_BUTTON || type==OBJ_RECTANGLE_LABEL)
|
| {
|
| ObjectSetInteger(m_chart,name,OBJPROP_BGCOLOR,bg);
|
| ObjectSetInteger(m_chart,name,OBJPROP_BORDER_COLOR,bg);
|
| if(type==OBJ_RECTANGLE_LABEL)
|
| {
|
| ObjectSetInteger(m_chart,name,OBJPROP_BORDER_TYPE,BORDER_FLAT);
|
| ObjectSetInteger(m_chart,name,OBJPROP_COLOR,m_c_head);
|
| }
|
| }
|
| if(type!=OBJ_RECTANGLE_LABEL)
|
| {
|
| ObjectSetString(m_chart,name,OBJPROP_FONT,bold ? "Arial Bold" : "Arial");
|
| ObjectSetInteger(m_chart,name,OBJPROP_FONTSIZE,m_fs);
|
| ObjectSetString(m_chart,name,OBJPROP_TEXT,txt);
|
| }
|
| return(true);
|
| }
|
|
|
| //--- (re)create every object from the cached text
|
| void CSDPanel::Rebuild()
|
| {
|
| if(!m_ok)
|
| return;
|
| ObjectsDeleteAll(m_chart,m_p);
|
| Size();
|
| if(!Put(OBJ_RECTANGLE_LABEL,m_p+"bg",m_x0,m_y0,m_W,m_H,"",m_c_text,m_c_panel,false))
|
| {
|
| m_ok=false; // this chart takes no objects (tester, handle without a chart)
|
| return;
|
| }
|
| Put(OBJ_LABEL,m_p+"title",m_x0+m_pad+4,m_y0+m_pad+m_fs/2,0,0,m_title,m_c_text,0,true);
|
| Put(OBJ_BUTTON,m_p+"min",m_x0+m_W-m_pad-m_rh,m_y0+m_pad,m_rh,m_rh,m_collapsed ? "+" : "-",m_c_text,m_c_panel,true);
|
| m_built=true;
|
| if(m_collapsed)
|
| {
|
| ChartRedraw(m_chart);
|
| return;
|
| }
|
| int y=m_y0+m_pad+m_rh+2;
|
| Put(OBJ_LABEL,m_p+"hs",m_x0+m_pad+6,y+m_fs/2,0,0,m_rowhead,m_c_head,0,true);
|
| for(int c=0; c<m_cols; c++)
|
| {
|
| int x=m_x0+m_pad+m_lw+2+c*(m_cw+2);
|
| string n=m_p+"h"+IntegerToString(c);
|
| Put(OBJ_LABEL,n,x+(m_cw-(int)(StringLen(m_heads[c])*m_fs*0.8))/2,y+m_fs/2,0,0,m_heads[c],m_c_head,0,true);
|
| }
|
| for(int r=0; r<m_rows; r++)
|
| {
|
| int yy=y+(m_rh+2)*(r+1);
|
| Put(OBJ_BUTTON,m_p+"r"+IntegerToString(r),m_x0+m_pad,yy,m_lw,m_rh,m_labels[r],m_c_text,m_c_panel,true);
|
| for(int c=0; c<m_cols; c++)
|
| {
|
| string n=m_p+"c"+IntegerToString(r)+"_"+IntegerToString(c);
|
| int i=r*m_cols+c;
|
| Put(OBJ_BUTTON,n,m_x0+m_pad+m_lw+2+c*(m_cw+2),yy,m_cw,m_rh,m_txt[i],m_fg[i],m_bg[i],true);
|
| ObjectSetString(m_chart,n,OBJPROP_TOOLTIP,m_tip[i]);
|
| }
|
| }
|
| ChartRedraw(m_chart);
|
| }
|
|
|
| void CSDPanel::Layout(const string &heads[],const string &labels[])
|
| {
|
| m_cols=ArraySize(heads);
|
| m_rows=ArraySize(labels);
|
| ArrayResize(m_heads,m_cols);
|
| ArrayResize(m_labels,m_rows);
|
| ArrayCopy(m_heads,heads);
|
| ArrayCopy(m_labels,labels);
|
| int n=m_rows*m_cols;
|
| ArrayResize(m_txt,n);
|
| ArrayResize(m_tip,n);
|
| ArrayResize(m_fg,n);
|
| ArrayResize(m_bg,n);
|
| for(int i=0; i<n; i++)
|
| {
|
| m_txt[i]="loading";
|
| m_tip[i]="";
|
| m_fg[i]=m_c_head;
|
| m_bg[i]=m_c_panel;
|
| }
|
| Rebuild();
|
| }
|
|
|
| void CSDPanel::SetTitle(const string t)
|
| {
|
| if(t==m_title)
|
| return;
|
| m_title=t;
|
| if(m_ok && m_built)
|
| ObjectSetString(m_chart,m_p+"title",OBJPROP_TEXT,t);
|
| }
|
|
|
| void CSDPanel::SetCell(const int r,const int c,const string txt,const color fg,const color bg,const string tip)
|
| {
|
| int i=r*m_cols+c;
|
| if(i<0 || i>=m_rows*m_cols)
|
| return;
|
| bool chg=(m_txt[i]!=txt || m_fg[i]!=fg || m_bg[i]!=bg);
|
| if(!chg && m_tip[i]==tip)
|
| return;
|
| m_txt[i]=txt; m_fg[i]=fg; m_bg[i]=bg; m_tip[i]=tip;
|
| if(!m_ok || !m_built || m_collapsed)
|
| return;
|
| string n=m_p+"c"+IntegerToString(r)+"_"+IntegerToString(c);
|
| if(chg)
|
| {
|
| ObjectSetString(m_chart,n,OBJPROP_TEXT,txt);
|
| ObjectSetInteger(m_chart,n,OBJPROP_COLOR,fg);
|
| ObjectSetInteger(m_chart,n,OBJPROP_BGCOLOR,bg);
|
| ObjectSetInteger(m_chart,n,OBJPROP_BORDER_COLOR,bg);
|
| }
|
| ObjectSetString(m_chart,n,OBJPROP_TOOLTIP,tip);
|
| }
|
|
|
| //--- a click on one of our objects: row/col of the cell, (row,-1) for a row label, (-2,0) when handled (collapse)
|
| bool CSDPanel::Click(const string name,int &row,int &col)
|
| {
|
| if(StringFind(name,m_p)!=0 || !m_ok)
|
| return(false);
|
| string rest=StringSubstr(name,StringLen(m_p));
|
| ObjectSetInteger(m_chart,name,OBJPROP_STATE,false);
|
| if(rest=="min")
|
| {
|
| m_collapsed=!m_collapsed;
|
| Rebuild();
|
| row=-2;
|
| col=0;
|
| return(true);
|
| }
|
| if(StringGetCharacter(rest,0)=='c')
|
| {
|
| string p[];
|
| if(StringSplit(StringSubstr(rest,1),'_',p)==2)
|
| {
|
| row=(int)StringToInteger(p[0]);
|
| col=(int)StringToInteger(p[1]);
|
| ChartRedraw(m_chart);
|
| return(true);
|
| }
|
| }
|
| if(StringGetCharacter(rest,0)=='r')
|
| {
|
| row=(int)StringToInteger(StringSubstr(rest,1));
|
| col=-1;
|
| ChartRedraw(m_chart);
|
| return(true);
|
| }
|
| return(false);
|
| }
|
|
|
| //--- true (and re-lays out) when the chart size changed and the panel is anchored to a right/bottom corner
|
| bool CSDPanel::ChartResized()
|
| {
|
| if(!m_ok || !m_built)
|
| return(false);
|
| int w=(int)ChartGetInteger(m_chart,CHART_WIDTH_IN_PIXELS),h=(int)ChartGetInteger(m_chart,CHART_HEIGHT_IN_PIXELS);
|
| if(w==m_cwpx && h==m_chpx)
|
| return(false);
|
| if(m_corner==SD_TOP_LEFT)
|
| {
|
| m_cwpx=w;
|
| m_chpx=h;
|
| return(false);
|
| }
|
| Rebuild();
|
| return(true);
|
| }
|
|
|
| void CSDPanel::Destroy()
|
| {
|
| if(m_p!="")
|
| {
|
| ObjectsDeleteAll(m_chart,m_p);
|
| ChartRedraw(m_chart);
|
| }
|
| m_built=false;
|
| }
|
| //+------------------------------------------------------------------+
|
