 |  |  |
//| FatCat DashBoard.mq4 |
//| Copyright © 2007, Wibisono Hoesen |
//| http://www.wibitiens.net/ |
//+------------------------------------------------------------------+
#property copyright "Dashboard © 2007 Wibisono Hoesen"
#property link "http://www.wibitiens.net/"
#property indicator_separate_window
int NormalSpread, Spread;
color warna;
string text,simbol;
double value, PrevBid, PrevAsk;
int init()
{
IndicatorShortName("FatCat DashBoard");
NormalSpread = (Ask-Bid)/Point;
return(0);
}
int deinit()
{
ObjectsDeleteAll();
return(0);
}
int start()
{
// ==================================================================================== //
// F I R S T C O L O U M B //
// ==================================================================================== //
// Left Title
// ==========
ObjectCreate("SymbolTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("SymbolTxt",Symbol(),12, "Arial Bold", White);
ObjectSet("SymbolTxt", OBJPROP_CORNER, 0);
ObjectSet("SymbolTxt", OBJPROP_XDISTANCE, 10);
ObjectSet("SymbolTxt", OBJPROP_YDISTANCE, 110);
ObjectSet("SymbolTxt", OBJPROP_ANGLE, 90);
ObjectCreate("SymUnderlineTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("SymUnderlineTxt","___________",12, "Arial Bold", White);
ObjectSet("SymUnderlineTxt", OBJPROP_CORNER, 0);
ObjectSet("SymUnderlineTxt", OBJPROP_XDISTANCE, 20);
ObjectSet("SymUnderlineTxt", OBJPROP_YDISTANCE, 120);
ObjectSet("SymUnderlineTxt", OBJPROP_ANGLE, 90);
// Account Margin
// ==============
ObjectCreate("MarginTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("MarginTxt","Margin",9, "Arial Bold", CadetBlue);
ObjectSet("MarginTxt", OBJPROP_CORNER, 0);
ObjectSet("MarginTxt", OBJPROP_XDISTANCE, 50);
ObjectSet("MarginTxt", OBJPROP_YDISTANCE, 25);
ObjectCreate("Margin", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("Margin",DoubleToStr(AccountMargin(),2),9, "Arial Bold", White);
ObjectSet("Margin", OBJPROP_CORNER, 0);
ObjectSet("Margin", OBJPROP_XDISTANCE, 140);
ObjectSet("Margin", OBJPROP_YDISTANCE, 25);
// Account Free Margin
// ===================
ObjectCreate("FreeMarginTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("FreeMarginTxt","Free Margin",9, "Arial Bold", CadetBlue);
ObjectSet("FreeMarginTxt", OBJPROP_CORNER, 0);
ObjectSet("FreeMarginTxt", OBJPROP_XDISTANCE, 50);
ObjectSet("FreeMarginTxt", OBJPROP_YDISTANCE, 40);
ObjectCreate("FreeMargin", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("FreeMargin",DoubleToStr(AccountFreeMargin(),0),9, "Arial Bold", White);
ObjectSet("FreeMargin", OBJPROP_CORNER, 0);
ObjectSet("FreeMargin", OBJPROP_XDISTANCE, 140);
ObjectSet("FreeMargin", OBJPROP_YDISTANCE, 40);
// Account P/L
// ===========
ObjectCreate("AcctPLTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AcctPLTxt","Acct P/L",9, "Arial Bold", CadetBlue);
ObjectSet("AcctPLTxt", OBJPROP_CORNER, 0);
ObjectSet("AcctPLTxt", OBJPROP_XDISTANCE, 50);
ObjectSet("AcctPLTxt", OBJPROP_YDISTANCE, 55);
value = AccountProfit();
if (value<0) warna = Red; else warna = Lime;
ObjectCreate("AcctPL", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AcctPL",DoubleToStr(value,2),9, "Arial Bold", warna);
ObjectSet("AcctPL", OBJPROP_CORNER, 0);
ObjectSet("AcctPL", OBJPROP_XDISTANCE, 140);
ObjectSet("AcctPL", OBJPROP_YDISTANCE, 55);
// Account Equity
// ==============
ObjectCreate("AcctEquityTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AcctEquityTxt","Acct Equity",9, "Arial Bold", CadetBlue);
ObjectSet("AcctEquityTxt", OBJPROP_CORNER, 0);
ObjectSet("AcctEquityTxt", OBJPROP_XDISTANCE, 50);
ObjectSet("AcctEquityTxt", OBJPROP_YDISTANCE, 70);
ObjectCreate("AcctEquity", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AcctEquity",DoubleToStr(AccountEquity(),2),9, "Arial Bold", White);
ObjectSet("AcctEquity", OBJPROP_CORNER, 0);
ObjectSet("AcctEquity", OBJPROP_XDISTANCE, 140);
ObjectSet("AcctEquity", OBJPROP_YDISTANCE, 70);
// Account Balance
// ===============
ObjectCreate("AcctBalTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AcctBalTxt","Acct Balance",9, "Arial Bold", CadetBlue);
ObjectSet("AcctBalTxt", OBJPROP_CORNER, 0);
ObjectSet("AcctBalTxt", OBJPROP_XDISTANCE, 50);
ObjectSet("AcctBalTxt", OBJPROP_YDISTANCE, 85);
ObjectCreate("AcctBal", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AcctBal",DoubleToStr(AccountBalance(),2),9, "Arial Bold", White);
ObjectSet("AcctBal", OBJPROP_CORNER, 0);
ObjectSet("AcctBal", OBJPROP_XDISTANCE, 140);
ObjectSet("AcctBal", OBJPROP_YDISTANCE, 85);
// Account Pair P/L
// ================
ObjectCreate("PairPLTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("PairPLTxt","Pair P/L",9, "Arial Bold", CadetBlue);
ObjectSet("PairPLTxt", OBJPROP_CORNER, 0);
ObjectSet("PairPLTxt", OBJPROP_XDISTANCE, 50);
ObjectSet("PairPLTxt", OBJPROP_YDISTANCE, 100);
value = AccountProfit();
if (value<0) warna = Red; else warna = Lime;
ObjectCreate("PairPL", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("PairPL",DoubleToStr(value,2),9, "Arial Bold", warna);
ObjectSet("PairPL", OBJPROP_CORNER, 0);
ObjectSet("PairPL", OBJPROP_XDISTANCE, 140);
ObjectSet("PairPL", OBJPROP_YDISTANCE, 100);
// ==================================================================================== //
// S E C O N D C O L O U M B //
// ==================================================================================== //
// TRIX
// ====
ObjectCreate("TRIXTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TRIXTxt","Short",22, "Arial Bold", CadetBlue);
ObjectSet("TRIXTxt", OBJPROP_CORNER, 0);
ObjectSet("TRIXTxt", OBJPROP_XDISTANCE, 220);
ObjectSet("TRIXTxt", OBJPROP_YDISTANCE, 25);
ObjectCreate("TRIXTxt1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TRIXTxt1","M1 M5 M15 M30 H1 H4 D1",10, "Arial Bold", White);
ObjectSet("TRIXTxt1", OBJPROP_CORNER, 0);
ObjectSet("TRIXTxt1", OBJPROP_XDISTANCE, 335);
ObjectSet("TRIXTxt1", OBJPROP_YDISTANCE, 5);
double TrixBlue, TrixRed;
TrixBlue = iCustom(NULL,PERIOD_D1,"TRIX_A",0,0);
TrixRed = iCustom(NULL,PERIOD_D1,"TRIX_A",1,0);
if (TrixBlue>=TrixRed) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("TRIXD1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TRIXD1",simbol,25, "Wingdings 3", warna);
ObjectSet("TRIXD1", OBJPROP_XDISTANCE, 570);
ObjectSet("TRIXD1", OBJPROP_YDISTANCE, 22);
TrixBlue = iCustom(NULL,PERIOD_H4,"TRIX_A",0,0);
TrixRed = iCustom(NULL,PERIOD_H4,"TRIX_A",1,0);
if (TrixBlue>=TrixRed) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("TRIXH4", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TRIXH4",simbol,25, "Wingdings 3", warna);
ObjectSet("TRIXH4", OBJPROP_XDISTANCE, 530);
ObjectSet("TRIXH4", OBJPROP_YDISTANCE, 22);
TrixBlue = iCustom(NULL,PERIOD_H1,"TRIX_A",0,0);
TrixRed = iCustom(NULL,PERIOD_H1,"TRIX_A",1,0);
if (TrixBlue>=TrixRed) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("TRIXH1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TRIXH1",simbol,25, "Wingdings 3", warna);
ObjectSet("TRIXH1", OBJPROP_XDISTANCE, 490);
ObjectSet("TRIXH1", OBJPROP_YDISTANCE, 22);
TrixBlue = iCustom(NULL,PERIOD_M30,"TRIX_A",0,0);
TrixRed = iCustom(NULL,PERIOD_M30,"TRIX_A",1,0);
if (TrixBlue>=TrixRed) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("TRIXM30", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TRIXM30",simbol,25, "Wingdings 3", warna);
ObjectSet("TRIXM30", OBJPROP_XDISTANCE, 450);
ObjectSet("TRIXM30", OBJPROP_YDISTANCE, 22);
TrixBlue = iCustom(NULL,PERIOD_M15,"TRIX_A",0,0);
TrixRed = iCustom(NULL,PERIOD_M15,"TRIX_A",1,0);
if (TrixBlue>=TrixRed) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("TRIXM15", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TRIXM15",simbol,25, "Wingdings 3", warna);
ObjectSet("TRIXM15", OBJPROP_XDISTANCE, 410);
ObjectSet("TRIXM15", OBJPROP_YDISTANCE, 22);
TrixBlue = iCustom(NULL,PERIOD_M5,"TRIX_A",0,0);
TrixRed = iCustom(NULL,PERIOD_M5,"TRIX_A",1,0);
if (TrixBlue>=TrixRed) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("TRIXM5", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TRIXM5",simbol,25, "Wingdings 3", warna);
ObjectSet("TRIXM5", OBJPROP_XDISTANCE, 370);
ObjectSet("TRIXM5", OBJPROP_YDISTANCE, 22);
TrixBlue = iCustom(NULL,PERIOD_M1,"TRIX_A",0,0);
TrixRed = iCustom(NULL,PERIOD_M1,"TRIX_A",1,0);
if (TrixBlue>=TrixRed) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("TRIXM1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TRIXM1",simbol,25, "Wingdings 3", warna);
ObjectSet("TRIXM1", OBJPROP_XDISTANCE, 330);
ObjectSet("TRIXM1", OBJPROP_YDISTANCE, 22);
// EMA 34
// ======
ObjectCreate("EMA34Txt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA34Txt","Mid",22, "Arial Bold", CadetBlue);
ObjectSet("EMA34Txt", OBJPROP_CORNER, 0);
ObjectSet("EMA34Txt", OBJPROP_XDISTANCE, 220);
ObjectSet("EMA34Txt", OBJPROP_YDISTANCE, 57);
double EMA34close, EMA34open;
EMA34close = iMA(NULL,PERIOD_D1,34,0,MODE_EMA,PRICE_CLOSE,0);
EMA34open = iMA(NULL,PERIOD_D1,34,0,MODE_EMA,PRICE_OPEN,0);
if (EMA34close>=EMA34open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA34D1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA34D1",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA34D1", OBJPROP_XDISTANCE, 570);
ObjectSet("EMA34D1", OBJPROP_YDISTANCE, 55);
EMA34close = iMA(NULL,PERIOD_H4,34,0,MODE_EMA,PRICE_CLOSE,0);
EMA34open = iMA(NULL,PERIOD_H4,34,0,MODE_EMA,PRICE_OPEN,0);
if (EMA34close>=EMA34open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA34H4", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA34H4",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA34H4", OBJPROP_XDISTANCE, 530);
ObjectSet("EMA34H4", OBJPROP_YDISTANCE, 55);
EMA34close = iMA(NULL,PERIOD_H1,34,0,MODE_EMA,PRICE_CLOSE,0);
EMA34open = iMA(NULL,PERIOD_H1,34,0,MODE_EMA,PRICE_OPEN,0);
if (EMA34close>=EMA34open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA34H1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA34H1",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA34H1", OBJPROP_XDISTANCE, 490);
ObjectSet("EMA34H1", OBJPROP_YDISTANCE, 55);
EMA34close = iMA(NULL,PERIOD_M30,34,0,MODE_EMA,PRICE_CLOSE,0);
EMA34open = iMA(NULL,PERIOD_M30,34,0,MODE_EMA,PRICE_OPEN,0);
if (EMA34close>=EMA34open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA34M30", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA34M30",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA34M30", OBJPROP_XDISTANCE, 450);
ObjectSet("EMA34M30", OBJPROP_YDISTANCE, 55);
EMA34close = iMA(NULL,PERIOD_M15,34,0,MODE_EMA,PRICE_CLOSE,0);
EMA34open = iMA(NULL,PERIOD_M15,34,0,MODE_EMA,PRICE_OPEN,0);
if (EMA34close>=EMA34open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA34M15", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA34M15",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA34M15", OBJPROP_XDISTANCE, 410);
ObjectSet("EMA34M15", OBJPROP_YDISTANCE, 55);
EMA34close = iMA(NULL,PERIOD_M5,34,0,MODE_EMA,PRICE_CLOSE,0);
EMA34open = iMA(NULL,PERIOD_M5,34,0,MODE_EMA,PRICE_OPEN,0);
if (EMA34close>=EMA34open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA34M5", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA34M5",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA34M5", OBJPROP_XDISTANCE, 370);
ObjectSet("EMA34M5", OBJPROP_YDISTANCE, 55);
EMA34close = iMA(NULL,PERIOD_M1,34,0,MODE_EMA,PRICE_CLOSE,0);
EMA34open = iMA(NULL,PERIOD_M1,34,0,MODE_EMA,PRICE_OPEN,0);
if (EMA34close>=EMA34open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA34M1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA34M1",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA34M1", OBJPROP_XDISTANCE, 330);
ObjectSet("EMA34M1", OBJPROP_YDISTANCE, 55);
// EMA 89
// ======
ObjectCreate("EMA89Txt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA89Txt","Long",22, "Arial Bold", CadetBlue);
ObjectSet("EMA89Txt", OBJPROP_CORNER, 0);
ObjectSet("EMA89Txt", OBJPROP_XDISTANCE, 220);
ObjectSet("EMA89Txt", OBJPROP_YDISTANCE, 87);
double EMA89close, EMA89open;
EMA89close = iMA(NULL,PERIOD_D1,89,0,MODE_EMA,PRICE_CLOSE,0);
EMA89open = iMA(NULL,PERIOD_D1,89,0,MODE_EMA,PRICE_OPEN,0);
if (EMA89close>=EMA89open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA89D1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA89D1",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA89D1", OBJPROP_XDISTANCE, 570);
ObjectSet("EMA89D1", OBJPROP_YDISTANCE, 85);
EMA89close = iMA(NULL,PERIOD_H4,89,0,MODE_EMA,PRICE_CLOSE,0);
EMA89open = iMA(NULL,PERIOD_H4,89,0,MODE_EMA,PRICE_OPEN,0);
if (EMA89close>=EMA89open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA89H4", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA89H4",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA89H4", OBJPROP_XDISTANCE, 530);
ObjectSet("EMA89H4", OBJPROP_YDISTANCE, 85);
EMA89close = iMA(NULL,PERIOD_H1,89,0,MODE_EMA,PRICE_CLOSE,0);
EMA89open = iMA(NULL,PERIOD_H1,89,0,MODE_EMA,PRICE_OPEN,0);
if (EMA89close>=EMA89open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA89H1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA89H1",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA89H1", OBJPROP_XDISTANCE, 490);
ObjectSet("EMA89H1", OBJPROP_YDISTANCE, 85);
EMA89close = iMA(NULL,PERIOD_M30,89,0,MODE_EMA,PRICE_CLOSE,0);
EMA89open = iMA(NULL,PERIOD_M30,89,0,MODE_EMA,PRICE_OPEN,0);
if (EMA89close>=EMA89open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA89M30", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA89M30",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA89M30", OBJPROP_XDISTANCE, 450);
ObjectSet("EMA89M30", OBJPROP_YDISTANCE, 85);
EMA89close = iMA(NULL,PERIOD_M15,89,0,MODE_EMA,PRICE_CLOSE,0);
EMA89open = iMA(NULL,PERIOD_M15,89,0,MODE_EMA,PRICE_OPEN,0);
if (EMA89close>=EMA89open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA89M15", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA89M15",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA89M15", OBJPROP_XDISTANCE, 410);
ObjectSet("EMA89M15", OBJPROP_YDISTANCE, 85);
EMA89close = iMA(NULL,PERIOD_M5,89,0,MODE_EMA,PRICE_CLOSE,0);
EMA89open = iMA(NULL,PERIOD_M5,89,0,MODE_EMA,PRICE_OPEN,0);
if (EMA89close>=EMA89open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA89M5", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA89M5",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA89M5", OBJPROP_XDISTANCE, 370);
ObjectSet("EMA89M5", OBJPROP_YDISTANCE, 85);
EMA89close = iMA(NULL,PERIOD_M1,89,0,MODE_EMA,PRICE_CLOSE,0);
EMA89open = iMA(NULL,PERIOD_M1,89,0,MODE_EMA,PRICE_OPEN,0);
if (EMA89close>=EMA89open) { warna = Lime; simbol = "\xC7"; }
else { warna = Red; simbol = "\xC8"; }
ObjectCreate ("EMA89M1", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("EMA89M1",simbol,25, "Wingdings 3", warna);
ObjectSet("EMA89M1", OBJPROP_XDISTANCE, 330);
ObjectSet("EMA89M1", OBJPROP_YDISTANCE, 85);
// ==================================================================================== //
// F O R T H C O L O U M B //
// ==================================================================================== //
// Account Name
// ============
ObjectCreate("AccName", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AccName",AccountName(),12, "Arial Bold", Yellow);
ObjectSet("AccName", OBJPROP_CORNER, 0);
ObjectSet("AccName", OBJPROP_XDISTANCE, 630);
ObjectSet("AccName", OBJPROP_YDISTANCE, 5);
// Average Range
// =============
int i, R1, R5, R10, R20, RAvg;
int RoomUp, RoomDown;
double low0, high0;
R1 = (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point;
for (i=1;i<=5;i++) R5 = R5 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
for (i=1;i<=10;i++) R10 = R10 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
for (i=1;i<=20;i++) R20 = R20 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
R5 = R5/5;
R10 = R10/10;
R20 = R20/20;
RAvg = (R1+R5+R10+R20)/4;
low0 = iLow(NULL,PERIOD_D1,0);
high0 = iHigh(NULL,PERIOD_D1,0);
RoomUp = RAvg - (Bid - low0) / Point;
RoomDown = RAvg - (high0 - Bid) / Point;
ObjectCreate("AveRangeTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AveRangeTxt","Ave Range",9, "Arial Bold", Blue);
ObjectSet("AveRangeTxt", OBJPROP_CORNER, 0);
ObjectSet("AveRangeTxt", OBJPROP_XDISTANCE, 630);
ObjectSet("AveRangeTxt", OBJPROP_YDISTANCE, 30);
ObjectCreate("AveRange", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AveRange",DoubleToStr(RAvg,0),9, "Arial Bold", LightBlue);
ObjectSet("AveRange", OBJPROP_CORNER, 0);
ObjectSet("AveRange", OBJPROP_XDISTANCE, 720);
ObjectSet("AveRange", OBJPROP_YDISTANCE, 30);
// Day Range
// =========
ObjectCreate("DayRangeTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("DayRangeTxt","Day Range",9, "Arial Bold", Blue);
ObjectSet("DayRangeTxt", OBJPROP_CORNER, 0);
ObjectSet("DayRangeTxt", OBJPROP_XDISTANCE, 630);
ObjectSet("DayRangeTxt", OBJPROP_YDISTANCE, 45);
ObjectCreate("DayRange", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("DayRange",DoubleToStr(R1,0),9, "Arial Bold", LightBlue);
ObjectSet("DayRange", OBJPROP_CORNER, 0);
ObjectSet("DayRange", OBJPROP_XDISTANCE, 720);
ObjectSet("DayRange", OBJPROP_YDISTANCE, 45);
// Pips to Bottom
// ==============
ObjectCreate("PipsToBotTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("PipsToBotTxt","Pips To Bot",9, "Arial Bold", Blue);
ObjectSet("PipsToBotTxt", OBJPROP_CORNER, 0);
ObjectSet("PipsToBotTxt", OBJPROP_XDISTANCE, 630);
ObjectSet("PipsToBotTxt", OBJPROP_YDISTANCE, 60);
ObjectCreate("PipsToBot", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("PipsToBot",DoubleToStr(RoomDown,0),9, "Arial Bold", LightBlue);
ObjectSet("PipsToBot", OBJPROP_CORNER, 0);
ObjectSet("PipsToBot", OBJPROP_XDISTANCE, 720);
ObjectSet("PipsToBot", OBJPROP_YDISTANCE, 60);
// Pips to Top
// ===========
ObjectCreate("PipsToTopTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("PipsToTopTxt","Pips To Top",9, "Arial Bold", Blue);
ObjectSet("PipsToTopTxt", OBJPROP_CORNER, 0);
ObjectSet("PipsToTopTxt", OBJPROP_XDISTANCE, 630);
ObjectSet("PipsToTopTxt", OBJPROP_YDISTANCE, 75);
ObjectCreate("PipsToTop", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("PipsToTop",DoubleToStr(RoomUp,0),9, "Arial Bold", LightBlue);
ObjectSet("PipsToTop", OBJPROP_CORNER, 0);
ObjectSet("PipsToTop", OBJPROP_XDISTANCE, 720);
ObjectSet("PipsToTop", OBJPROP_YDISTANCE, 75);
// Spread
// ======
ObjectCreate("SpreadTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("SpreadTxt","Spread",9, "Arial Bold", Blue);
ObjectSet("SpreadTxt", OBJPROP_CORNER, 0);
ObjectSet("SpreadTxt", OBJPROP_XDISTANCE, 630);
ObjectSet("SpreadTxt", OBJPROP_YDISTANCE, 90);
Spread = (Ask-Bid)/Point;
if (Spread>NormalSpread) warna = Red; else warna = LightBlue;
ObjectCreate("Spread", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("Spread",DoubleToStr(Spread,0),9, "Arial Bold", warna);
ObjectSet("Spread", OBJPROP_CORNER, 0);
ObjectSet("Spread", OBJPROP_XDISTANCE, 720);
ObjectSet("Spread", OBJPROP_YDISTANCE, 90);
// ==================================================================================== //
// F I F T H C O L O U M B //
// ==================================================================================== //
// Account Company
// ===============
ObjectCreate("AccCompany", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AccCompany",AccountCompany(),12, "Arial Bold", Yellow);
ObjectSet("AccCompany", OBJPROP_CORNER, 0);
ObjectSet("AccCompany", OBJPROP_XDISTANCE, 820);
ObjectSet("AccCompany", OBJPROP_YDISTANCE, 5);
// Server Time
// ===========
ObjectCreate("ServerTimeTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("ServerTimeTxt","Server Time",9, "Arial Bold", Blue);
ObjectSet("ServerTimeTxt", OBJPROP_CORNER, 0);
ObjectSet("ServerTimeTxt", OBJPROP_XDISTANCE, 820);
ObjectSet("ServerTimeTxt", OBJPROP_YDISTANCE, 30);
text = DoubleToStr(TimeHour(TimeCurrent()),0) + " : " + DoubleToStr(TimeMinute(TimeCurrent()),0);
ObjectCreate("ServerTime", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("ServerTime",text,9, "Arial Bold", LightBlue);
ObjectSet("ServerTime", OBJPROP_CORNER, 0);
ObjectSet("ServerTime", OBJPROP_XDISTANCE, 900);
ObjectSet("ServerTime", OBJPROP_YDISTANCE, 30);
// Local Time
// ==========
ObjectCreate("LocalTimeTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("LocalTimeTxt","Local Time",9, "Arial Bold", Blue);
ObjectSet("LocalTimeTxt", OBJPROP_CORNER, 0);
ObjectSet("LocalTimeTxt", OBJPROP_XDISTANCE, 820);
ObjectSet("LocalTimeTxt", OBJPROP_YDISTANCE, 45);
text = DoubleToStr(TimeHour(TimeLocal()),0) + " : " + DoubleToStr(TimeMinute(TimeLocal()),0);
ObjectCreate("LocalTime", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("LocalTime",text,9, "Arial Bold", LightBlue);
ObjectSet("LocalTime", OBJPROP_CORNER, 0);
ObjectSet("LocalTime", OBJPROP_XDISTANCE, 900);
ObjectSet("LocalTime", OBJPROP_YDISTANCE, 45);
// Ask Price
// =========
ObjectCreate("AskTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("AskTxt","Ask",9, "Arial Bold", Blue);
ObjectSet("AskTxt", OBJPROP_CORNER, 0);
ObjectSet("AskTxt", OBJPROP_XDISTANCE, 820);
ObjectSet("AskTxt", OBJPROP_YDISTANCE, 60);
if (Ask>PrevAsk) warna = Lime; if (Ask<PrevAsk) warna = Red;
ObjectCreate("Ask", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("Ask",DoubleToStr(Ask,Digits),9, "Arial Bold", warna);
ObjectSet("Ask", OBJPROP_CORNER, 0);
ObjectSet("Ask", OBJPROP_XDISTANCE, 900);
ObjectSet("Ask", OBJPROP_YDISTANCE, 60);
PrevAsk = Ask;
// Bid Price
// =========
ObjectCreate("BidTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("BidTxt","Bid",9, "Arial Bold", Blue);
ObjectSet("BidTxt", OBJPROP_CORNER, 0);
ObjectSet("BidTxt", OBJPROP_XDISTANCE, 820);
ObjectSet("BidTxt", OBJPROP_YDISTANCE, 75);
if (Bid>PrevAsk) warna = Lime; if (Bid<PrevAsk) warna = Red;
ObjectCreate("Bid", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("Bid",DoubleToStr(Bid,Digits),9, "Arial Bold", warna);
ObjectSet("Bid", OBJPROP_CORNER, 0);
ObjectSet("Bid", OBJPROP_XDISTANCE, 900);
ObjectSet("Bid", OBJPROP_YDISTANCE, 75);
PrevBid = Bid;
// Tick Value
// ==========
ObjectCreate("TickValueTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TickValueTxt","Tick Value",9, "Arial Bold", Blue);
ObjectSet("TickValueTxt", OBJPROP_CORNER, 0);
ObjectSet("TickValueTxt", OBJPROP_XDISTANCE, 820);
ObjectSet("TickValueTxt", OBJPROP_YDISTANCE, 90);
ObjectCreate("TickValue", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("TickValue",DoubleToStr(MarketInfo(Symbol(),MODE_TICKVALUE),2),9, "Arial Bold", LightBlue);
ObjectSet("TickValue", OBJPROP_CORNER, 0);
ObjectSet("TickValue", OBJPROP_XDISTANCE, 900);
ObjectSet("TickValue", OBJPROP_YDISTANCE, 90);
// Copyright
// ==========
ObjectCreate("CopyrightTxt", OBJ_LABEL, WindowFind("FatCat DashBoard"), 0, 0);
ObjectSetText("CopyrightTxt","Copyright \xA9 2008 The Forex FatCat " + TerminalName(),7, "Arial Bold",
Gold);
ObjectSet("CopyrightTxt", OBJPROP_CORNER, 0);
ObjectSet("CopyrightTxt", OBJPROP_XDISTANCE, 630);
ObjectSet("CopyrightTxt", OBJPROP_YDISTANCE, 110);
return(0);
}
No comments:
Post a Comment