Knowledgebase:
Moving Label
Posted by Yousef Ibrahim, Last modified by Yousef Ibrahim on 04 July 2012 10:02 AM

'###########################################################
' Script Name: Moving Label
' Author: Ehab Kanani
' Descreption: This Client Script will create a moving label on your chart
' Website: http://www.hybrid-solutions.com
' Date: March, 22nd, 2012
'###########################################################

Dim objID

Dim XPos

Dim YPos

Dim fontSize

Dim objColor

Public Sub Main()

 fontSize=8

 objID="label2"

 XPos=50

 YPos=50

 CreateObjectLabel 0,0,CSTR(objID),CINT(XPos),CINT(YPos),"Welcome to VTL World"

 IntervalTimer 1000

 EnableTimer True

End Sub

Public Sub OnTimer()

 fontSize=fontSize+1

 ObjColor=RGBColor(200,10 * fontSize,10 * fontSize)

 ObjectSetText 0,CSTR(objID),CINT(fontSize),,CLNG(objColor)

 if fontSize=30 then 

 EnableTimer false

 End if 

End Sub

Public Sub OnTick(SymbolName)

End Sub

Public Sub OnInit()
'''TODO: initialization method

End Sub

Public Sub OnDeInit()
'''TODO: deinitialization method

End Sub



See Also


Back to VTL Client Script Index

(0 vote(s))
Helpful
Not helpful

Comments (0)
Post a new comment
 
 
Full Name:
Email:
Comments:
CAPTCHA Verification 
 
Please enter the text you see in the image into the textbox below (we use this to prevent automated submissions).

Help Desk Software by Hybrid Solutions