Re: Displaying text in TS

[Phil <rhodes@xxxxxxxxxxxxxx>]

Hello  Brian,

the  below  indicator plots the time a specified number of points above
the  high  and the name of the system or whatever you wish a number of
points below the low of that hour..



http://www.markbrown.com/text.txt

http://www.markbrown.com/eltext1.gif





Wednesday, April 19, 2000, 3:02:14 AM, you wrote:

BM> I am trying to print text to the screen with TS4 and I am having 
BM> difficulty with the exact placing.  If anyone can post code with a text 
BM> example (or refer me to a TS indicator that displays text on the screen) 
BM> it would be greatly appreciated.

BM> Thanks
BM> Brian




--
Best regards,
  Mark Brown                        mailto:markbrown@xxxxxxxxxxxxx


Vars: String1(""), TextLoc(0), String2(""), String3("");


	String1="";
	String2="";
	Condition2=false;
	
	
	If T=930 then begin
		String1="9:30";
		String2="SP99";
		Condition2=True;End;
	
	If T=1000 then begin
		String1="10:00";
		String2="SP99";
		Condition2=True;End;
	
	If T=1100 then begin
		String1="11:00";
		String2="SP99";
		Condition2=True;End;
	
	If T=1200 then begin
		String1="12:00";
		String2="SP99";
		Condition2=True;End;
	
	If T=1300 then begin
		String1="1:00";
		String2="SP99";
		Condition2=True;End;
	
	If T=1400 then begin
		String1="2:00";
		String2="SP99";
		Condition2=True;End;

	If T=1500 then begin
		String1="3:00";
		String2="SP99";
		Condition2=True;End;

	If T=1600 then begin
		String1="4:00";
		String2="SP99";
		Condition2=True;End;
	
	If T=1615 then begin
		String1="4:15";
		String2="SP99";
		Condition2=True;End;

	If Condition2 then begin
		
		Plot1(High,"CndlPH");
		Plot2(Low,"CndlPL");

		Value1=Text_New(Date,Time,High+4,String1);
		TextLoc=Text_SetStyle(Value1, 2, 1);
		If GetBackGroundColor=Tool_White then Value2=Text_SetColor(Value1, Tool_Red)
			Else
		Value2=Text_SetColor(Value1, Tool_White);

		Value11=Text_New(Date,Time,Low-4,String2);
		TextLoc=Text_SetStyle(Value11, 2, 1);
		If GetBackGroundColor=Tool_White then Value22=Text_SetColor(Value11,
Tool_Red)
			Else
		Value22=Text_SetColor(Value11, Tool_White);End;