allanninal/vitals-account-monitor
Watch
1
0
Fork
You've already forked vitals-account-monitor
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
vitals-account-monitor/mql4/Include/Vitals/VtViews.mqh
Allan Niñal Allan Niñal d54b15105b Alerts on by default; regenerated from the private core 
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
2026-10-31 17:54:51 +08:00
400 lines
16 KiB
MQL5
RawPermalinkBlameHistory
//+------------------------------------------------------------------+
//| VtViews.mqh |
//| Copyright 2026, Allan Niñal |
//| https://www.allanninal.dev/mql5 |
//+------------------------------------------------------------------+
//| The model and the three tabs: Overview, History and Stats. Each |
//| Draw* function paints into the card from the body top and |
//| returns the y (logical units) where it ended. |
//+------------------------------------------------------------------+
// SPDX-License-Identifier: LicenseRef-PolyForm-Noncommercial-1.0.0 (see LICENSE)
#ifndef VTVIEWS_MQH
#define VTVIEWS_MQH
#include "VtCore.mqh"
#include "VtExposure.mqh"
#include "VtJournal.mqh"
#include "VtLive.mqh"
#include "VtCard.mqh"
#define VT_BODY_X 12
#define VT_BODY_R 448
#define VT_BODY_TOP 64
//--- the model the views read
CVtEngine g_eng;
CVtJournal g_jr;
CVtCard g_card;
VtAcct g_acct;
VtPos g_pos[];
int g_npos=0;
long g_server_now=0;
long g_today_low_time=0; // when today's floating low was set (memory only)
string g_filter_text="";
bool g_demo=false; // synthetic data (tests and screenshots): account text is made up
int g_cal_y=0,g_cal_m=0; // calendar month
string g_note=""; // one-line message (export result ...)
//--- formatting -----------------------------------------------------------------------------------------------------
string VtMinus() { return(ShortToString(0x2212)); }
string VtGroup(const string s) // 1234567.89 -> 1,234,567.89
{
int dot=StringFind(s,".");
string ip=(dot>=0 ? StringSubstr(s,0,dot) : s),fp=(dot>=0 ? StringSubstr(s,dot) : "");
string o="";
int n=StringLen(ip);
for(int i=0; i<n; i++)
{
o+=StringSubstr(ip,i,1);
int left=n-1-i;
if(left>0 && left%3==0)
o+=",";
}
return(o+fp);
}
string VtNum(const double v,const int d=2)
{
string s=VtGroup(DoubleToString(MathAbs(v),d));
return(v<0 && StringToDouble(DoubleToString(MathAbs(v),d))>0 ? VtMinus()+s : s);
}
string VtSgn(const double v,const int d=2)
{
double r=StringToDouble(DoubleToString(MathAbs(v),d));
if(r==0)
return(VtGroup(DoubleToString(0,d)));
return((v<0 ? VtMinus() : "+")+VtGroup(DoubleToString(MathAbs(v),d)));
}
color VtSignClr(const double v,const int d=2)
{
double r=StringToDouble(DoubleToString(MathAbs(v),d));
return(r==0 ? g_card.pal.dim : (v>0 ? g_card.pal.pos : g_card.pal.neg));
}
string VtWd3(const long day)
{
string n[7]={"Mon","Tue","Wed","Thu","Fri","Sat","Sun"};
return(n[VtWeekday(day)]);
}
string VtMon3(const int m)
{
string n[12]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
return(n[(m-1+12)%12]);
}
string VtMonFull(const int m)
{
string n[12]={"January","February","March","April","May","June","July","August","September","October","November","December"};
return(n[(m-1+12)%12]);
}
string VtDM(const long day) // "12 Oct"
{
int y,m,d;
VtCivil(day,y,m,d);
return(IntegerToString(d)+" "+VtMon3(m));
}
string VtDMY(const long day) // "5 Jan 2026"
{
int y,m,d;
VtCivil(day,y,m,d);
return(IntegerToString(d)+" "+VtMon3(m)+" "+IntegerToString(y));
}
string VtHM(const long t)
{
return(StringFormat("%02d:%02d",(int)((t%86400)/3600),(int)((t%3600)/60)));
}
string VtMaskLogin(const long login)
{
string s=IntegerToString(login);
int n=StringLen(s);
if(n<7)
return(s);
return(StringSubstr(s,0,4)+ShortToString(0x2022)+ShortToString(0x2022)+ShortToString(0x2022)+StringSubstr(s,n-2));
}
//--- building blocks ------------------------------------------------------------------------------------------------
double VtSec(CVtCard &c,const double y,const string left,const string right="",const color rclr=clrNONE)
{
string u=left;
StringToUpper(u);
c.Txt(VT_BODY_X,y,u,c.pal.label,VTK_SEC);
if(right!="")
c.Txt(VT_BODY_R,y,right,rclr==clrNONE ? c.pal.dim : rclr,VTK_SMALL,1);
return(y+16);
}
void VtKV(CVtCard &c,const double x1,const double x2,const double y,const string k,const string v,const color vc)
{
c.Txt(x1,y,k,c.pal.label,VTK_SANS);
c.Txt(x2,y,v,vc,VTK_MONO,1);
}
//--- OVERVIEW ---------------------------------------------------------------------------------------------------------
double VtDrawOverview(CVtCard &c)
{
double y=VT_BODY_TOP;
VtAcct a=g_acct;
double floating=a.equity-a.balance-a.credit;
//--- hero
c.Txt(VT_BODY_X,y,"EQUITY",c.pal.label,VTK_SEC);
c.Txt(190,y,"BALANCE",c.pal.label,VTK_SEC);
c.Txt(320,y,"FLOATING",c.pal.label,VTK_SEC);
c.Txt(VT_BODY_X,y+12,VtNum(a.equity),c.pal.ink,VTK_BIG);
c.Txt(VT_BODY_X,y+40,a.balance>0 ? DoubleToString(100.0*a.equity/a.balance,2)+"% of balance" : "-",c.pal.label,VTK_MONOS);
c.Txt(190,y+16,VtNum(a.balance),c.pal.ink,VTK_MONO);
c.Txt(320,y+16,VtSgn(floating),VtSignClr(floating),VTK_MONO);
c.Txt(320,y+34,a.balance>0 ? VtSgn(100.0*floating/a.balance)+"%" : "-",VtSignClr(floating),VTK_MONOS);
y+=60;
//--- floating drawdown
string since="";
if(g_jr.n>0)
since="journal since "+VtDM(g_jr.d[0]);
y=VtSec(c,y,"Floating drawdown",since);
double now_pct=(a.balance>0 && floating<0 ? 100.0*floating/a.balance : 0.0);
long today=g_server_now/86400;
double tw_pct=0,tw_money=0;
bool tw_ok=false;
if(g_jr.n>0 && g_jr.d[g_jr.n-1]==today)
{ tw_pct=g_jr.p[g_jr.n-1]; tw_money=g_jr.m[g_jr.n-1]; tw_ok=true; }
double ww_pct=0;
long ww_day=0;
bool ww_ok=false;
for(int i=0; i<g_jr.n; i++)
if(!ww_ok || g_jr.p[i]<ww_pct)
{ ww_pct=g_jr.p[i]; ww_day=g_jr.d[i]; ww_ok=true; }
double mx=MathMax(MathMax(MathAbs(ww_pct),MathAbs(tw_pct)),MathMax(MathAbs(now_pct),0.0001));
double gx1=VT_BODY_X,gx2=VT_BODY_R,gy=y+2,gh=16;
c.Fill(gx1,gy,gx2,gy+gh,c.pal.track);
double wfull=gx2-gx1;
if(tw_ok && tw_pct<0)
c.Fill(gx2-wfull*MathAbs(tw_pct)/mx,gy,gx2,gy+gh,c.pal.neg,90);
if(now_pct<0)
c.Fill(gx2-wfull*MathAbs(now_pct)/mx,gy,gx2,gy+gh,c.pal.neg);
if(tw_ok && tw_pct<0)
c.Fill(gx2-wfull*MathAbs(tw_pct)/mx-1,gy-3,gx2-wfull*MathAbs(tw_pct)/mx+1,gy+gh+3,c.pal.warn);
y=gy+gh+7;
c.Txt(VT_BODY_X,y,"Now",c.pal.label,VTK_SMALL);
c.Txt(VT_BODY_X+30,y,now_pct<0 ? VtSgn(now_pct)+"%" : "0.00%",now_pct<0 ? c.pal.neg : c.pal.dim,VTK_MONOS);
string twt=(tw_ok && tw_pct<0 ? VtSgn(tw_pct)+"%" : "0.00%");
c.Txt(150,y,"Today's worst",c.pal.label,VTK_SMALL);
c.Txt(150+78,y,twt,tw_ok && tw_pct<0 ? c.pal.warn : c.pal.dim,VTK_MONOS);
if(tw_ok && tw_pct<0 && g_today_low_time>0 && g_today_low_time/86400==today)
c.Txt(150+78+c.TextW(twt,VTK_MONOS)+6,y,VtHM(g_today_low_time),c.pal.dim,VTK_MONOS);
string wwt=(ww_ok && ww_pct<0 ? VtSgn(ww_pct)+"%" : "-");
c.Txt(VT_BODY_R,y,(ww_ok && ww_pct<0 ? VtDM(ww_day) : ""),c.pal.dim,VTK_MONOS,1);
int dw=(ww_ok && ww_pct<0 ? c.TextW(VtDM(ww_day),VTK_MONOS)+6 : 0);
c.Txt(VT_BODY_R-dw,y,wwt,ww_ok && ww_pct<0 ? c.pal.neg : c.pal.dim,VTK_MONOS,1);
c.Txt(VT_BODY_R-dw-c.TextW(wwt,VTK_MONOS)-6,y,"Worst day",c.pal.label,VTK_SMALL,1);
y+=20;
//--- margin
y=VtSec(c,y,"Margin");
string lvl=(a.margin>0 ? VtNum(a.level,0)+"%" : "-");
string so=(a.so_mode==VT_SO_PERCENT ? DoubleToString(a.so,0)+"%" : VtNum(a.so));
VtKV(c,VT_BODY_X,206,y,"Used",VtNum(a.margin),c.pal.ink);
VtKV(c,242,VT_BODY_R,y,"Free",VtNum(a.free),c.pal.ink);
y+=17;
VtKV(c,VT_BODY_X,206,y,"Level",lvl,c.pal.ink);
VtKV(c,242,VT_BODY_R,y,"Stop out",so,c.pal.dim);
y+=22;
//--- open positions
string rk="";
color rkc=c.pal.dim;
if(g_eng.o_nostop<g_eng.o_n[2] || g_eng.o_risk!=0)
{
rk="risk at stops "+VtSgn(g_eng.o_risk)+" ("+DoubleToString(MathAbs(g_eng.o_risk_pct),2)+"%)";
rkc=(g_eng.o_risk<0 ? c.pal.neg : c.pal.pos);
}
y=VtSec(c,y,"Open positions",rk,rkc);
double cx[5]={VT_BODY_X,236,284,364,VT_BODY_R};
c.Txt(cx[1],y,"COUNT",c.pal.label,VTK_SEC,1);
c.Txt(cx[2],y,"LOTS",c.pal.label,VTK_SEC,1);
c.Txt(cx[3],y,"P/L",c.pal.label,VTK_SEC,1);
c.Txt(cx[4],y,"PIPS",c.pal.label,VTK_SEC,1);
y+=15;
c.HLine(VT_BODY_X,VT_BODY_R,y,c.pal.rule);
y+=3;
string nm[3]={"Long","Short","Total"};
for(int k=0; k<3; k++)
{
if(k==2)
{ c.HLine(VT_BODY_X,VT_BODY_R,y,c.pal.edge); y+=2; }
c.Txt(cx[0],y,nm[k],k==2 ? c.pal.ink : c.pal.label,VTK_SANS);
c.Txt(cx[1],y,IntegerToString(g_eng.o_n[k]),c.pal.ink,VTK_MONO,1);
c.Txt(cx[2],y,DoubleToString(g_eng.o_lots[k],2),c.pal.ink,VTK_MONO,1);
c.Txt(cx[3],y,VtSgn(g_eng.o_pl[k]),VtSignClr(g_eng.o_pl[k]),VTK_MONO,1);
c.Txt(cx[4],y,VtSgn(g_eng.o_pips[k],1),VtSignClr(g_eng.o_pips[k],1),VTK_MONO,1);
y+=17;
}
if(g_eng.o_nostop>0)
{
y+=3;
string t=(g_eng.o_nostop==1 ? "1 position without a stop" : IntegerToString(g_eng.o_nostop)+" positions without a stop")+
" "+ShortToString(0x00B7)+" "+g_eng.o_nostop_first+(g_eng.o_nostop>1 ? " +"+IntegerToString(g_eng.o_nostop-1) : "");
int tw=c.TextW(t,VTK_SMALL);
c.Box(VT_BODY_X,y,VT_BODY_X+tw+12,y+17,c.pal.warn);
c.Txt(VT_BODY_X+6,y+2,t,c.pal.warn,VTK_SMALL);
y+=22;
}
else
y+=4;
//--- exposure
y=VtSec(c,y,"Exposure by currency","net, "+g_acct.ccy+" thousands");
int rows=MathMin(g_eng.o_nex,6);
if(rows==0)
{
c.Txt(VT_BODY_X,y,"No open positions",c.pal.dim,VTK_SMALL);
y+=18;
}
double big=0;
for(int i=0; i<rows; i++)
big=MathMax(big,MathAbs(g_eng.ex_net[i]));
for(int i=0; i<rows; i++)
{
double v=g_eng.ex_net[i];
c.Txt(VT_BODY_X,y,g_eng.ex_name[i],c.pal.label,VTK_MONO);
double mid=VT_BODY_X+42+(VT_BODY_R-70-VT_BODY_X-42)/2.0,half=(VT_BODY_R-70-VT_BODY_X-42)/2.0;
c.VLine(mid,y,y+15,c.pal.edge);
double bw=(big>0 ? MathAbs(v)/big*half : 0);
if(v<0)
c.Fill(mid-bw,y+3,mid,y+12,c.pal.neg,190);
else
c.Fill(mid,y+3,mid+bw,y+12,c.pal.pos,190);
c.Txt(VT_BODY_R,y,VtSgn(v/1000.0,1)+"k",VtSignClr(v/1000.0,1),VTK_MONO,1);
y+=17;
}
return(y);
}
//--- HISTORY ----------------------------------------------------------------------------------------------------------
string VtRowLabel(const VtRow &r,const long today)
{
int y,m,d;
if(r.kind==0)
{
VtCivil(r.day,y,m,d);
if(r.day==today)
return("Today "+ShortToString(0x00B7)+" "+VtWd3(r.day)+" "+IntegerToString(d));
if(r.day==today-1)
return("Yesterday "+ShortToString(0x00B7)+" "+VtWd3(r.day)+" "+IntegerToString(d));
return(VtWd3(r.day)+" "+IntegerToString(d));
}
VtCivil(today,y,m,d);
if(r.kind==1)
return("Week");
if(r.kind==2)
return(VtMonFull(m));
return(IntegerToString(y));
}
void VtHistRow(CVtCard &c,const double y,const VtRow &r,const long today)
{
c.Txt(VT_BODY_X,y,VtRowLabel(r,today),c.pal.label,VTK_SANS);
string wl=IntegerToString(r.w)+"/"+IntegerToString(r.l);
c.Txt(194,y,r.n>0 ? wl : "",c.pal.dim,VTK_MONOS,1);
int ww=(r.n>0 ? c.TextW(wl,VTK_MONOS)+5 : 0);
c.Txt(194-ww,y,IntegerToString(r.n),c.pal.ink,VTK_MONO,1);
c.Txt(262,y,VtSgn(r.net),VtSignClr(r.net),VTK_MONO,1);
c.Txt(326,y,r.gain_ok ? VtSgn(r.gain)+"%" : "-",r.gain_ok ? VtSignClr(r.gain) : c.pal.dim,VTK_MONO,1);
if(r.dd_ok)
{
bool zero=(StringToDouble(DoubleToString(MathAbs(r.dd_pct),2))==0);
string t=(r.dd_approx ? "~" : "")+(zero ? "0.00%" : VtSgn(r.dd_pct)+"%");
color col=(r.dd_approx || zero ? c.pal.dim : c.pal.neg);
c.Txt(390,y,t,col,VTK_MONO,1);
}
else
c.Txt(390,y,"-",c.pal.dim,VTK_MONO,1);
c.Txt(VT_BODY_R,y,DoubleToString(r.lots,2),c.pal.ink,VTK_MONO,1);
}
double VtDrawHistory(CVtCard &c)
{
double y=VT_BODY_TOP;
long today=g_server_now/86400;
string h[6]={"PERIOD","TRADES W/L","NET","GAIN","WORST DD","LOTS"};
c.Txt(VT_BODY_X,y,h[0],c.pal.label,VTK_SEC);
double hx[6]={0,194,262,326,390,VT_BODY_R};
for(int i=1; i<6; i++)
c.Txt(hx[i],y,h[i],c.pal.label,VTK_SEC,1);
y+=15;
c.HLine(VT_BODY_X,VT_BODY_R,y,c.pal.rule);
y+=4;
int nday=0;
for(int i=0; i<g_eng.nrows; i++)
if(g_eng.rows[i].kind==0)
nday++;
for(int i=0; i<g_eng.nrows; i++)
{
if(g_eng.rows[i].kind!=0 && g_eng.rows[i].kind==1)
{ y+=2; c.HLine(VT_BODY_X,VT_BODY_R,y,c.pal.edge); y+=4; }
VtHistRow(c,y,g_eng.rows[i],today);
y+=18;
}
y+=4;
y=VtSec(c,y,"Averages");
VtKV(c,VT_BODY_X,206,y,"Per trading day",g_eng.avg_day_ok ? VtSgn(g_eng.avg_day)+"%" : "-",g_eng.avg_day_ok ? VtSignClr(g_eng.avg_day) : c.pal.dim);
VtKV(c,242,VT_BODY_R,y,"Per month",g_eng.avg_month_ok ? VtSgn(g_eng.avg_month)+"%" : "-",g_eng.avg_month_ok ? VtSignClr(g_eng.avg_month) : c.pal.dim);
y+=22;
c.Txt(VT_BODY_X,y,"Net includes commission, swap and fees. Worst DD is the day's deepest",c.pal.dim,VTK_SMALL);
c.Txt(VT_BODY_X,y+13,"floating drawdown from the journal; ~ marks days before the journal,",c.pal.dim,VTK_SMALL);
c.Txt(VT_BODY_X,y+26,"taken from closed trades. Week, month and year show their worst day.",c.pal.dim,VTK_SMALL);
return(y+42);
}
//--- STATS ------------------------------------------------------------------------------------------------------------
void VtStatCell(CVtCard &c,const double x,const double y,const string k,const string v,const string sub,const color vc)
{
string u=k;
StringToUpper(u);
c.Txt(x,y,u,c.pal.label,VTK_SEC);
c.Txt(x,y+13,v,vc,VTK_MONO);
c.Txt(x,y+30,sub,c.pal.dim,VTK_MONOS);
}
double VtDrawStats(CVtCard &c)
{
double y=VT_BODY_TOP;
VtStats s=g_eng.st;
string right="";
if(s.n>0)
right="since "+VtDMY(s.first_day)+" "+ShortToString(0x00B7)+" "+DoubleToString(s.lots,2)+" lots";
y=VtSec(c,y,"Account statistics",right);
double col[3]={VT_BODY_X,166,320};
int i=0;
string m=VtMinus();
bool any=(s.n>0);
//--- row 1
VtStatCell(c,col[0],y,"Win rate",any ? DoubleToString(s.winrate,1)+"%" : "-",any ? IntegerToString(s.w)+" of "+IntegerToString(s.n) : "",c.pal.ink);
VtStatCell(c,col[1],y,"Profit factor",s.pf_ok ? DoubleToString(s.pf,2) : (any && s.gp>0 ? "no losses" : "-"),"",c.pal.ink);
VtStatCell(c,col[2],y,"Expectancy",any ? VtSgn(s.expct) : "-",any ? "per trade" : "",any ? VtSignClr(s.expct) : c.pal.dim);
y+=48;
VtStatCell(c,col[0],y,"Avg win",s.w>0 ? VtSgn(s.avgwin) : "-","",s.w>0 ? c.pal.pos : c.pal.dim);
VtStatCell(c,col[1],y,"Avg loss",s.l>0 ? VtSgn(s.avgloss) : "-","",s.l>0 ? c.pal.neg : c.pal.dim);
VtStatCell(c,col[2],y,"Reward/risk",(s.w>0 && s.l>0) ? DoubleToString(s.rr,2) : "-",(s.w>0 && s.l>0) ? "avg win / avg loss" : "",c.pal.ink);
y+=48;
VtStatCell(c,col[0],y,"Max drawdown",s.maxdd_money>0 ? m+DoubleToString(s.maxdd_pct,2)+"%" : (any ? "0.00%" : "-"),
s.maxdd_money>0 ? m+VtNum(s.maxdd_money)+" "+ShortToString(0x00B7)+" "+VtDM(s.maxdd_time/86400) : "",s.maxdd_money>0 ? c.pal.neg : c.pal.dim);
VtStatCell(c,col[1],y,"Relative DD",s.rel_pct>0 ? m+DoubleToString(s.rel_pct,2)+"%" : (any ? "0.00%" : "-"),
s.rel_pct>0 ? m+VtNum(s.rel_money)+" "+ShortToString(0x00B7)+" "+VtDM(s.rel_time/86400) : "",s.rel_pct>0 ? c.pal.neg : c.pal.dim);
VtStatCell(c,col[2],y,"Sharpe "+ShortToString(0x00B7)+" 60 days",s.sharpe_ok ? DoubleToString(s.sharpe,2) : "-",s.sharpe_ok ? "daily returns" : "needs 2+ trading days",c.pal.ink);
y+=48;
VtStatCell(c,col[0],y,"Best day",s.best_ok ? VtSgn(s.best_pct)+"%" : "-",s.best_ok ? VtDM(s.best_day) : "",s.best_ok ? VtSignClr(s.best_pct) : c.pal.dim);
VtStatCell(c,col[1],y,"Worst day",s.best_ok ? VtSgn(s.worst_pct)+"%" : "-",s.best_ok ? VtDM(s.worst_day) : "",s.best_ok ? VtSignClr(s.worst_pct) : c.pal.dim);
double costs=s.comm+s.swap+s.fee;
VtStatCell(c,col[2],y,"Costs",any ? VtSgn(costs) : "-","",any ? VtSignClr(costs) : c.pal.dim);
y+=50;
if(any)
{
c.Txt(VT_BODY_X,y,"commission "+VtSgn(s.comm)+" "+ShortToString(0x00B7)+" swap "+VtSgn(s.swap)+" "+ShortToString(0x00B7)+" fees "+VtSgn(s.fee),
c.pal.dim,VTK_MONOS);
y+=16;
}
else
{
c.Txt(VT_BODY_X,y,"No closed trades in the history yet.",c.pal.dim,VTK_SMALL);
y+=16;
}
c.Txt(VT_BODY_X,y,"Max and relative drawdown: closed-trade balance curve.",c.pal.dim,VTK_SMALL);
c.Txt(VT_BODY_X,y+13,"Sharpe: cumulative return / stdev of daily returns, last 60 days.",c.pal.dim,VTK_SMALL);
return(y+30);
}
#endif
//+------------------------------------------------------------------+
Reference in a new issueView git blameCopy permalink