Code: Select all
//this puts text on chart
Inputs: ShowText(true),TextSize(11),BackGroundColor(black),TextColor(White),PlaceABorder(false),BarsInFromLeft(1);
vars: forBar(0), count(0),LastCandleTime(datetime),TextBox(0),
jDateTime(datetime),jDateTimeNew(datetime),FirstBarDate(datetime),FirstBarTime(datetime),TextNumber(0),lastdate(0);
jDateTimeNew = GetAppInfo(aiLeftDispDateTime);
if jDateTimeNew <> jDateTime then begin
Text_delete(TextBox);
jDateTime = GetAppInfo(aiLeftDispDateTime);
FirstBarDate = JulianToDate( IntPortion(jDateTime ) ) ;
FirstBarTime = MinutesToTime( FracPortion(jDateTime ) * 60 * 24 ) ;
TextBox=Text_New(FirstBarDate , FirstBarTime + BarsInFromLeft, GetAppInfo(aiHighestDispValue )
,"");
Text_SetString(TextBox,"ask " + " : " + NumToStr(insideask,2)
+ NewLine + "bid " + " : " + NumToStr(insidebid,2)
+ NewLine + "close " + " : " + NumToStr(Close,2)
+ NewLine + "marketposition " + " : " + NumToStr(marketposition ,0)
//add new line here
+ NewLine + "" );//this is the end line.. so just put new lines above this line
Text_SetStyle(TextBox, 0, 0);
Text_SetColor(TextBox, TextColor);
Text_SetSize(TextBox, TextSize);
Text_SetFontName(TextBox, "Arial Black");
Text_Setattribute(TextBox,0,true);
Text_SetBorder(TextBox,PlaceABorder);
Text_SetBGColor(TextBox, BackGroundColor);
count = 0;
LastCandleTime= GetAppInfo(aileftdispdatetime);
end;
{
// this puts text in print output area
Inputs:showVars(true);
if LastBarOnChart_s and showVars then begin
print ( "ask " + " : " + NumToStr(insideask,2)
+ NewLine + "bid " + " : " + NumToStr(insidebid,2)
+ NewLine + "close " + " : " + NumToStr(Close,2)
+ NewLine + "marketpos " + " : " + NumToStr(marketposition ,0)
+ NewLine + ""
);
End;
}
Code: Select all
//this puts text on chart
Inputs: ShowText(true),TextSize(11),BackGroundColor(black),TextColor(White),PlaceABorder(false),BarsInFromLeft(1);
vars: forBar(0), count(0),LastCandleTime(datetime),TextBox(0),
jDateTime(datetime),jDateTimeNew(datetime),FirstBarDate(datetime),FirstBarTime(datetime),TextNumber(0),lastdate(0);
If LastBarOnChart then begin
jDateTimeNew = GetAppInfo(aiLeftDispDateTime);
if jDateTimeNew <> jDateTime then begin
Text_delete(TextBox);
jDateTime = GetAppInfo(aiLeftDispDateTime);
FirstBarDate = JulianToDate( IntPortion(jDateTime ) ) ;
FirstBarTime = MinutesToTime( FracPortion(jDateTime ) * 60 * 24 ) ;
TextBox=Text_New(FirstBarDate , FirstBarTime + BarsInFromLeft, GetAppInfo(aiHighestDispValue )
,"");
Text_SetString(TextBox," --------------- INFO BOX --------------- "
+ NewLine + "Account " + " : " + GetAccountID()
+ NewLine + "DateTime " + " : " + datetimetostring(datetime)
+ NewLine + "Exchange " + " : " + exchlisted
+ NewLine + "Symbol " + " : " + description
+ NewLine + "Ticker " + " : " + rtsymbolname
+ NewLine + "Big Point Value " + " : " + NumToStr(BigPointvalue ,2)
+ NewLine + "Price Scale " + " : " + NumToStr(PriceScale, 2)
+ NewLine + "Min Move " + " : " + NumToStr(Minmove, 2)
+ NewLine + "Point " + " : " + NumToStr((1/Pricescale), 2)
+ NewLine + "Point Value " + " : " + NumToStr(Pointvalue ,2)
//+ NewLine + "ask " + " : " + NumToStr(insideask,2)
//+ NewLine + "bid " + " : " + NumToStr(insidebid,2)
+ NewLine + "Total Market Position " + " : " + NumToStr(marketposition_at_broker, 0)
+ NewLine + "Strategy Market Position " + " : " + NumToStr(marketposition_at_broker_for_the_Strategy, 0)
+ NewLine + "OpenS0 " + " : " + NumToStr(OpenS(0),2)
+ NewLine + "HighS0 " + " : " + NumToStr(HighS(0),2)
+ NewLine + "LowS0 " + " : " + NumToStr(LowS(0),2)
+ NewLine + "close " + " : " + NumToStr(Close,2)
+ NewLine + "Max Last 5 Session " + " : " + NumToStr(Maxlist(HighS(1), HighS(2), HighS(3), HighS(4), HighS(5)),2)
+ NewLine + "Min Last 5 Session " + " : " + NumToStr(Minlist(LowS(1), LowS(2), LowS(3), LowS(4), LowS(5)),2)
+ NewLine + "Max Last 4 Weeks " + " : " + NumToStr(Maxlist(HighW(1), HighW(2), HighW(3), HighW(4)),2)
+ NewLine + "Min Last 4 Weeks " + " : " + NumToStr(Minlist(LowW(1), LowW(2), LowW(3), LowW(4)),2)
//+ NewLine + "marketposition " + " : " + NumToStr(marketposition ,0)
//+ NewLine + "Margine " + " : " + NumToStr(Margin ,2)
//add new line here
+ NewLine + "" );//this is the end line.. so just put new lines above this line
Text_SetStyle(TextBox, 0, 0);
Text_SetColor(TextBox, TextColor);
Text_SetSize(TextBox, TextSize);
Text_SetFontName(TextBox, "Arial Black");
Text_Setattribute(TextBox,0,true);
Text_SetBorder(TextBox,PlaceABorder);
Text_SetBGColor(TextBox, BackGroundColor);
count = 0;
LastCandleTime= GetAppInfo(aileftdispdatetime);
end;
end;
{
// this puts text in print output area
Inputs:showVars(true);
if LastBarOnChart_s and showVars then begin
print ( "ask " + " : " + NumToStr(insideask,2)
+ NewLine + "bid " + " : " + NumToStr(insidebid,2)
+ NewLine + "close " + " : " + NumToStr(Close,2)
+ NewLine + "marketpos " + " : " + NumToStr(marketposition ,0)
+ NewLine + ""
);
End;
}