Steema Central

Steema Software - Customer Support Forums
http://216.92.243.79/support/

asDrawline tool is not working

http://216.92.243.79/support/viewtopic.php?f=1&t=7580

Page 1 of 1

asDrawline tool is not working

Posted: Fri Mar 28, 2008 3:28 am
by 9534191
With Chart1

.Tools.Items(0).Active = True
.Tools.Items(0).asTeeCursor.Pen.Visible = False
.Cursor = 0
.Zoom.Enable = True
.Tools.items(1).active=false
.Tools.Items(1).asDrawLine.EnableDraw = False
End With
The above code was working fine before upgrading to Version 7. Now, When I click on the arrow button, the pensil tool is still drawing on
chart.

Posted: Fri Mar 28, 2008 8:58 am
by narcis
Hello,

DrawLine tool and their EnableDraw and Active properties work fine for me here using v7.0.1.4, which is the latest TeeChart Pro v7 ActiveX release available at the client area. Which exact version are you using?

Posted: Wed Apr 30, 2008 4:03 am
by 9534191
It is Active X version 7.0

Posted: Wed Apr 30, 2008 7:32 am
by narcis
Hello,

Could you please try uninstalling your current version, download v7.0.1.4 from the client download area, install it and check if it works fine at your end?

Thanks in advance.

Posted: Mon May 05, 2008 7:21 am
by 9534191
Hi I did install the 7.0.1.4. It did not solve the problem.

The folloiwng is the code. Please advise.

<HTML><HEAD><title>Infoscan Charts</title>
<LINK REL=STYLESHEET TYPE="text/css" HREF="Style.css"></HEAD>

<%
Tickername=Request.QueryString("Ticker")
'Tickername= sticker
Periodlength=Request.QueryString("Period")
format = session("format")
'response.write format

%>

<SCRIPT LANGUAGE=VBSCRIPT>



Sub FillChart()
Chart1.Import.LoadFromURL("http://WWW.INFOSCAN.CO.NZ/icommerce/mem ... p?Type=tee")
End Sub

Sub Chart1_OnAfterDraw()
command3.focus
End sub




Sub Window_Onload()
Dim t
FillChart
'Chart1.Series(0).XValues.DateTime = False
'Chart1.Axis.Bottom.Labels.Style = talMark
'Chart1.Series(1).Color = vbblue

With Chart1.Series(0)
' For t = 0 To .Count - 1
.PointColor(t) = vbBlack
' Next t
End With

Chart1.Series(0).asCandle.CandleStyle = 1
Chart1.Series(0).asCandle.UpCloseColor = vbBlack
Chart1.Series(0).asCandle.DownCloseColor = vbBlack
Chart1.Walls.Back.Color = vbWhite

With Chart1





.Tools.Add 0
.Tools.Items(0).asTeeCursor.Series = 0 ' Uses Seriesindex
.Tools.Items(0).asTeeCursor.FollowMouse = True

.Tools.Items(0).asTeeCursor.Pen.Style = psSolid
.Tools.Items(0).asTeeCursor.Pen.Color = vbBlack
.Tools.Items(0).asTeeCursor.Pen.Visible = False

'.Tools.Items(0).Active = False

'.Tools.Add 3
'.Tools.Items(1).asDrawLine.Button = mbLeft
'.Tools.Items(1).asDrawLine.EnableSelect = True
'.Tools.Items(1).asDrawLine.Pen.Color = vbBlack
'.Tools.Items(1).asDrawLine.EnableDraw = False

.Zoom.Enable = True
.Scroll.Enable = True
'.SubHeader.Text.Clear

'.Series(0).VerticalAxis = 2 'abothvertAxis

.SubFooter.Text.Add formatdatetime(now(),1) &" "& formatdatetime(now(),3) '"new sub footer text"

'.Series(0).Color = vbblue
End With
'Chart1.Series(0).XValues.DateTime = False


End sub

Sub RefreshPage()
Chart1.Cursor = -11 'crHourGlass
'Chart1.Series(1).Cursor = 0 'crDefault

Document.Location="intraDayChartsv4.asp?Ticker=" _
+ Target4.options(Target4.selectedIndex).value _
+ "&IndType=" + SelectInd.options(SelectInd.selectedIndex).value
End sub

Sub LoadNewSecurity()

Chart1.Cursor = -11 'crHourGlass

'Chart1.Import.LoadFromURL("http://www.infoscan.co.nz/icommerce/mem ... p?Type=tee")
Chart1.Import.LoadFromURL("http://www.infoscan.co.nz/icommerce/mem ... 0&Period=5")
'' Document.Location="intraDayChartsv4.asp?Ticker=" _
'' + ticName.value _
'' + "&IndType=" + SelectInd.options(SelectInd.selectedIndex).value

End sub
Private Sub Chart1_OnBeforeDrawSeries()
End Sub

Sub LoadIntraDayChart()
dim t

Chart1.Cursor = -11 'crHourGlass

'Chart1.Import.LoadFromURL("http://www.infoscan.co.nz/icommerce/mem ... 0&Period=5")

Document.Location="http://www.infoscan.co.nz/icommerce/mem ... sp?Ticker=" _
+ ticName.value _
+ "&IndType=" + SelectInd.options(SelectInd.selectedIndex).value _
+ "&Period=" + SelectPeriod.options(SelectPeriod.selectedIndex).value

'With Chart1.Series(0)
' For t = 0 To .Count - 1
' .PointColor(t) = vbBlack
' Next t
' End With


'setcolours



End Sub


</SCRIPT>





<SCRIPT LANGUAGE=VBSCRIPT>

'==============================================================================================================
' Start of Buttons Section
'==============================================================================================================
Sub Normal()
With Chart1
.Cursor = 0
.Tools.Items(0).Active = False
.Tools.Items(1).asDrawLine.EnableDraw = False
.Zoom.Enable = True
.Scroll.Enable = True
.SubHeader.Text.Clear
.Series(0).Color = vbblue
End With
End Sub

Sub Arrow()
With Chart1
.Tools.Items(0).Active = True
.Tools.Items(0).asTeeCursor.Pen.Visible = False
.Cursor = 0
.Zoom.Enable = True
.Tools.Items(1).asDrawLine.EnableDraw = False
.tools.delete(2)

End With

End Sub


Sub Draw()
With Chart1
.Cursor = 0
.Tools.Items(0).Active = False
.Zoom.Enable = False
.Scroll.Enable = False
.tools.add 3
.Tools.Items(1).asDrawLine.Button = mbLeft
.Tools.Items(1).asDrawLine.EnableSelect = True
.Tools.Items(1).asDrawLine.Pen.Color = vbBlack
.Tools.Items(1).asDrawLine.EnableDraw = False

.Tools.Items(1).asDrawLine.EnableDraw = True

'.SubHeader.Text.Clear
End With
End Sub

Sub Cursor()
With Chart1
.Cursor = -3
.Tools.Items(1).asDrawLine.EnableDraw = False
'.Zoom.Enable = False
.Scroll.Enable = False
.Tools.Items(0).Active = True
.Tools.Items(0).asTeeCursor.Pen.Visible = True
End With
End Sub

Sub SetCandle()

If CandleStyle.value = "0" Then
Chart1.Series(0).asCandle.CandleStyle = 0
Chart1.Series(0).asCandle.UpCloseColor = vbWhite
Chart1.Series(0).asCandle.DownCloseColor = vbRed

ElseIf CandleStyle.value = "1" Then
Chart1.Series(0).asCandle.CandleStyle = 1
Chart1.Series(0).asCandle.UpCloseColor = vbBlack
Chart1.Series(0).asCandle.DownCloseColor = vbBlack
Chart1.Walls.Back.Color = vbWhite

Elseif CandleStyle.value = "2" Then
Chart1.Series(0).PointFigure.AddOHLC
Chart1.Series(0).asCandle.UpCloseColor = vbBlack
Chart1.Series(0).asCandle.DownCloseColor = vbBlack
Chart1.Walls.Back.Color = vbWhite
'panel
else
End If
End Sub

Sub CandleStick()
Chart1.Series(0).asCandle.CandleStyle = 0
'Chart1.Series(0).Color = vbblue
End Sub

Sub OHLCBar()
Chart1.Series(0).asCandle.CandleStyle = 1
'Chart1.Series(0).Color = vbblue
End Sub



Sub DeleteLine()
Chart1.Tools.Items(1).asDrawLine.DeleteSelected
End Sub

Sub PrintChart()
Chart1.Printer.ShowPreview
End Sub

'==========================================================================================================
' End of Buttons Section
'==========================================================================================================
</SCRIPT>


<SCRIPT LANGUAGE=VBSCRIPT>
'===========================================================================================================
' Start of Indicator Section
'===========================================================================================================
Sub SetIndicator()

Dim IndType
'IndType = SelectInd.Value

If SelectInd.Value = 24 Then
Chart1.Axis.Left.StartPosition = 0
Chart1.Axis.Left.EndPosition = 75
Chart1.Series(1).VerticalAxisCustom = Chart1.Axis.AddCustom(False)

With Chart1.Axis.Custom(0)
.StartPosition = 75
.EndPosition = 100
End With

Chart1.Series(1).VerticalAxisCustom = 0
With Chart1
.Series(1).VerticalAxis = 5 'aRightAxis
.Series(1).DataSource = "Series0"
.Series(1).SetFunction (24)
.Series(1).CheckDataSource
.Axis.Custom(0).Title.Caption = "ADX"
.Axis.Custom(0).Title.Angle = 90
.Series(1).Color = vbblue
End With

L1.Value = 14
L2.Value = ""
End If


If SelectInd.Value = 23 Then
With Chart1
.Series(2).VerticalAxis = 0'aRightAxis
.Series(2).DataSource = "Series0"
.Series(2).SetFunction (23)
.Series(2).CheckDataSource
.Axis.Left.Title.Caption = "Bollinger Bands"
.Axis.Left.Title.Angle = 90
'.Axis.right.Title.Caption = "Bollinger Bands"
'.Axis.right.Title.Angle = 90
.Series(2).Color = vbblue
End With
L1.Value = 20
L2.Value = 2
End If


If SelectInd.Value = 21 Then
Chart1.Axis.Left.StartPosition = 0
Chart1.Axis.Left.EndPosition = 75
Chart1.Series(1).VerticalAxisCustom = Chart1.Axis.AddCustom(false)

With Chart1.Axis.Custom(0)
.StartPosition = 75
.EndPosition = 100
End With

Chart1.Series(1).VerticalAxisCustom = 0
With Chart1
.Series(1).VerticalAxis = 5 'aRightAxis
.Series(1).DataSource = "Series0"
.Series(1).SetFunction (21)
.Series(1).CheckDataSource
.Axis.Custom(0).Title.Caption = "MACD"
.Axis.Custom(0).Title.Angle = 90
.Series(1).Color = vbblue
End With
L1.Value = 9
L2.Value = ""
End If


If SelectInd.Value = 10 Then
Chart1.Axis.Left.StartPosition = 0
Chart1.Axis.Left.EndPosition = 75
Chart1.Series(1).VerticalAxisCustom = Chart1.Axis.AddCustom(False)

With Chart1.Axis.Custom(0)
.StartPosition = 75
.EndPosition = 100
End With

Chart1.Series(1).VerticalAxisCustom = 0
With Chart1
.Series(1).VerticalAxis = 5 'aRightAxis
.Series(1).DataSource = "Series0"
.Series(1).SetFunction (10)
.Series(1).FunctionType.Period = 10
.Series(1).CheckDataSource
.Axis.Custom(0).Title.Caption = "Momenteun"
.Axis.Custom(0).Title.Angle = 90
.Series(1).Color = vbblue
End With
L1.Value = 14
L2.Value = ""
End If


If SelectInd.Value = 8 Then
With Chart1
.Series(2).VerticalAxis = 0 'aRightAxis
.Series(2).DataSource = "Series0"
.Series(2).SetFunction (8)
.Series(2).FunctionType.Period = 14
.Series(2).CheckDataSource
'.Axis.Left.EndPosition = 100
.Axis.Left.Title.Caption = "Moving Average " & L1.value & " Day"
.Axis.Left.Title.Angle = 90
End With
L1.Value = 10
L2.Value = ""
End If


If SelectInd.Value = 9 Then
With Chart1
.Series(2).VerticalAxis = 0 'aRightAxis
.Series(2).DataSource = "Series0"
.Series(2).SetFunction (8)
.Series(2).FunctionType.Period = 5
.Series(2).CheckDataSource
'.Axis.Left.EndPosition = 100
.Axis.Left.Title.Caption = "Moving Average " & L1.value & " Day"
.Axis.Left.Title.Angle = 90
End With
L1.Value = 5
L2.Value = ""


With Chart1
.Series(3).VerticalAxis = 0 'aRightAxis
.Series(3).DataSource = "Series0"
.Series(3).SetFunction (8)
.Series(3).FunctionType.Period = 18
.Series(3).CheckDataSource
.Series(3).Color = vbRed
'.Axis.Left.EndPosition = 100
'.Axis.Left.Title.Caption = "Moving Average " & L2.value & " Day"
'.Axis.Left.Title.Angle = 90
End With
L1.Value = 5
L2.Value = 18
End If


If SelectInd.Value = 18 Then
With Chart1
.Series(2).VerticalAxis = 0 'aRightAxis
.Series(2).DataSource = "Series0"
.Series(2).SetFunction (18)
.Series(2).FunctionType.Period = 14
.Series(2).CheckDataSource
'.Axis.Left.EndPosition = 100
.Axis.Left.Title.Caption = "Moving Average Exp"
.Axis.Left.Title.Angle = 90
End With
L1.Value = 10
L2.Value = ""
End If
'''
If SelectInd.Value = 12 Then
Chart1.Axis.Left.StartPosition = 0
Chart1.Axis.Left.EndPosition = 75
Chart1.Series(1).VerticalAxisCustom = Chart1.Axis.AddCustom(False)

With Chart1.Axis.Custom(0)
.StartPosition = 75
.EndPosition = 100
End With

Chart1.Series(1).VerticalAxisCustom = 0
With Chart1
.Series(1).VerticalAxis = 5 'aRightAxis
.Series(1).DataSource = "Series0"
.Series(1).SetFunction (12)
.Series(1).FunctionType.Period = 14
.Series(1).CheckDataSource
.Axis.Custom(0).Title.Caption = "RSI"
.Axis.Custom(0).Title.Angle = 90
.Series(1).Color = vbblue
End With

L1.Value = 14
L2.Value = ""
End If
'''

If SelectInd.Value = 22 Then
Chart1.Axis.Left.StartPosition = 0
Chart1.Axis.Left.EndPosition = 75
Chart1.Series(1).VerticalAxisCustom = Chart1.Axis.AddCustom(False)

With Chart1.Axis.Custom(0)
.StartPosition = 75
.EndPosition = 100
End With

Chart1.Series(1).VerticalAxisCustom = 0
With Chart1
.Series(1).VerticalAxis = 5 'aRightAxis
.Series(1).DataSource = "Series0"
.Series(1).SetFunction (22)
.Series(1).FunctionType.Period = 14
.Series(1).CheckDataSource
.Axis.Custom(0).Title.Caption = "Stochastic"
.Axis.Custom(0).Title.Angle = 90
End With
L1.Value = 9
L2.Value = ""
End If


End Sub


'==========================================================================================================
' End of Indicator Section
'==========================================================================================================
</SCRIPT>




<SCRIPT LANGUAGE=VBSCRIPT>
'Use Delete key to remove trendlines

Sub DeleteLinexx() 'Command3_KeyDown(KeyCode)


Dim intKeyCode
intKeyCode = CInt(KeyCode)

'Uses 'del' key to remove selected line
'Set KeyCode = "Integer"
'If (KeyCode) = intKeyCode Then
'If CINT(KeyCode) = intKeyCode Then
' Chart1.Tools.Items(1).asDrawLine.DeleteSelected
'End if



'Uses 'del' key to remove selected line

If intKeyCode = 46 then 'vbKeyDelete Then '46

Chart1.Tools.Items(1).asDrawLine.DeleteSelected
End If
Response.Write(Hello)


End Sub

Sub ChangeIndVal()
If SelectInd.Value = 24 Then
Chart1.Series(1).FunctionType.Period = L1.Value
End If

If SelectInd.Value = 23 Then
Chart1.Series(2).FunctionType.Period = L1.Value
End If

If SelectInd.Value = 21 Then
Chart1.Series(1).FunctionType.Period = L1.Value
End If

If SelectInd.Value = 10 Then
Chart1.Series(1).FunctionType.Period = L1.Value
End If

If SelectInd.Value = 8 Then
Chart1.Series(2).FunctionType.Period = L1.Value
End If

If SelectInd.Value = 9 Then
Chart1.Series(2).FunctionType.Period = L1.Value
Chart1.Series(3).FunctionType.Period = L2.Value
End If


If SelectInd.Value = 18 Then
Chart1.Series(2).FunctionType.Period = L1.Value
End If

If SelectInd.Value = 12 Then
Chart1.Series(1).FunctionType.Period = L1.Value
End If

If SelectInd.Value = 22 Then
Chart1.Series(1).FunctionType.Period = L1.Value
End If

End Sub

'Cursor Values routine
Private Sub Chart1_OnCursorToolChange(ByVal Tool, ByVal X, ByVal Y, ByVal XVal, ByVal YVal, ByVal Series, ByVal ValueIndex)
Dim MyXVal
Dim MyYVal
DIM MyPrice
Dim MyValueIndex
Dim MyText
Dim MyDate
'Dim Format


'response.write "format"

MyYVal = YVal
MyPrice = MyYVal
MyXVal = XVal
MyValueIndex = MyXVal - Chart1.Series(0).asCandle.DateValues.Value(0)

If MyValueIndex > -1 Then
MyDate = Chart1.Series(0).PointLabel(MyValueIndex)
'MyPrice = Chart1.Series(0).PointLabel(MyPriceIndex)
With Chart1.Series(0)
MyText = " Date = " & MyDate & " " _
& "O = " & formatnumber(.asCandle.OpenValues.Value(MyValueIndex),4) & " " _
& "H = " & formatnumber(.asCandle.HighValues.Value(MyValueIndex),4) & " " _
& "L = " & formatnumber(.asCandle.LowValues.Value(MyValueIndex),4) & " " _
& "C = " & formatnumber(.asCandle.CloseValues.Value(MyValueIndex),4) & " "_
& "Y = " & formatnumber(myprice,4) & " "
End With
End If
Chart1.SubHeader.Text.Clear
Chart1.SubHeader.Text.Add MyText
'D1.Value = MyText
End Sub
</SCRIPT>

<table width=90% cellpadding=0 cellspacing=0 border=0 >
<tr align=center>
<td>
<font face=verdana size=1><b>Ticker</b></font>
</td>
<td>
<font face=verdana size=1><b>Period</b></font>
</td>
<td>
<font face=verdana size=1><b>Chart Type</b></font>
</td>
<td>
<font face=verdana size=1><b>Indicator</b></font>
</td>
<td>
<font face=verdana size=1><b>Indicator Value</b></font>
</td>
<td>
<font face=verdana size=1><b>Arrow</b></font>
</td>
<td>
<font face=verdana size=1><b>Draw</b></font>
</td>
<td>
<font face=verdana size=1><b>Cursor</b></font>
</td>
<td>
<font face=verdana size=1><b>Print</b></font>
</td>
<td>

</td>
</tr>
<tr align=center>

<td>

<input type="text" name="ticName" size="10" language=VBScript value="<%=tickername%>" onchange="LoadIntraDayChart()">
</td>
<td>
<SELECT NAME="SelectPeriod" language="VBScript" onchange="LoadIntraDayChart()">
<OPTION VALUE="<%=periodlength%>"><%=periodlength%> Min
<OPTION VALUE="1">1 Min
<OPTION VALUE="5">5 Min
<OPTION VALUE="10">10 Min
<OPTION VALUE="15">15 Min
<OPTION VALUE="30">30 Min
<OPTION VALUE="60">60 Min
</option>
</SELECT>
</td>
<td>
<SELECT NAME="CandleStyle" width="10" language="VBScript" onchange="SetCandle()">
<OPTION VALUE="0">Candle Stick</option>
<OPTION SELECTED VALUE="1">OHLC Bar

</SELECT>
</td>
<td>
<SELECT NAME="SelectInd" language="VBScript" onchange="SetIndicator()">

<option SELECTED value="0">Select Indicator</option>
<OPTION VALUE="24">ADX</option>
<OPTION VALUE="23">Bollinger
<OPTION VALUE="21">MACD
<OPTION VALUE="10">Momentum
<OPTION VALUE="8">Moving Ave
<OPTION VALUE="9">Moving Ave X2
<OPTION VALUE="18">Moving Ave Exp
<OPTION VALUE="12">RSI
<OPTION VALUE="22">Stochastic
</SELECT>
</td>
<td>
<input type="text" name="L1" size="1">&nbsp;<input type="text" name="L2" size="1"><input type="button" value="Go" onclick="changeIndVal" name="IndVal">&nbsp;
</td>
<td>
<input type="image" src="http://www.infoscan.co.nz/icommerce/mem ... /arrow.jpg"
height=24 width=24 border=0 onclick="Arrow" alt="Pointer" align="absbottom" name="Arrow">
</td>
<td>
<input type="image" src="http://www.infoscan.co.nz/icommerce/mem ... s/draw.jpg"
height=24 width=24 border=0 onclick="Draw" alt="Draw" align="absbottom" name="Draw">
</td>
<td>
<input type="image" src="http://www.infoscan.co.nz/icommerce/mem ... cursor.jpg"
height=24 width=24 border=0 onclick="Cursor" alt="Cursor" name="Cursor" align="absbottom">
</td>
<td>
<input type="image" src="http://www.infoscan.co.nz/icommerce/mem ... /print.jpg"
height=24 width=24 border=0 onclick="printchart" alt="Print Chart" name="Cursor" align="absbottom">
</td>
<td>
<!--<input type="image" src="http://www.infoscan.co.nz/icommerce/mem ... delete.jpg"-->
<input type="image" src="http://www.infoscan.co.nz/icommerce/mem ... square.jpg"
height=1 width=1 border=0 align="absbottom" value="" onclick="deleteline" onkeydown="DeleteLine" name="Command3">
</td>
<td>
<SETFOCUS INPUT="COMMAND3" type=hidden>
</td>
<td>
</td>
</tr>
</table>





<object
id="Chart1"
width="100%"
height="100%"
type="application/x-oleobject"
hspace="0"
vspace="0"
classid="CLSID:FAB9B41C-87D6-474D-AB7E-F07D78F2422E"
codebase="http://www.infoscan.co.nz/icommerce/Tee ... on=7,0,1,3">
<!--codebase="Teesmall7.cab#version=7,0,1,3">-->

</object>



<!---<object ID="Chart1" WIDTH="100%" HEIGHT="100%" align="center"bgcolor="white"
CLASSID="clsid:B6C10489-FB89-11D4-93C9-006008A7EED4"
codebase="http://www.infoscan.co.nz/icommerce/Tee ... on=5,0,0,1"
VIEWASTEXT>
</object>---->



<!--
<p align=center>
<a href="javascript:window.close()"><font face=arial size=1 color=red>Close Window</font></a>
</p>
-->
</BODY></HTML>

Posted: Mon May 05, 2008 9:47 am
by narcis
Hello,

Could you please send us a simple example project we can run "as-is" to reproduce the problem here? Also notice that the code you posted is referencing v7.0.1.3 in the codebase section.

You can either post your files at news://www.steema.net/steema.public.attachments newsgroup or at our upload page.

Thanks in advance.
All times are UTC
Page 1 of 1
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/