colorlinetool cursor does not change back
Posted: Mon May 05, 2008 10:03 am
hi experts,
After crossing a colorlinetool, the cursor does not change back to default cursor while moving over series. Is it a bug?
env:
XP SP2
VFP SP1
thanks:
Tamás Handari
the sample code:
Acti Scree
Clea
oparent=Createobject('parentwindow')
With oparent
.AddObject('chart','olechart')
With .chart
.addseries(1)&&barseries
With .series(0)
.Add(2.6,'first',255)
.Add(3,'second',255)
.Add(3,'third',255)
.Add(2.8,'fourth',255)
.Add(3,'fifth',255)
.Add(3,'sixth',255)
.Add(2.6,'first',255)
.Add(3,'second',255)
.Add(3,'third',255)
.Add(2.5,'fourth',255)
.Add(3,'fifth',255)
.Add(3,'sixth',255)
.Marks.Visible=.F.
With .asBar
.BarWidthPercent=100
.OffsetPercent=0
.multibar=0
Endwith
Endwith
With .axis.Bottom
.labels.Separation=1
.minortickcount=0
Endwith
.Tools.Add(6)&&colorline tool
With .Tools.items(0).asColorLine
.Draw3D =.T.
.allowdrag=.T.
.Style=2&¢er
.axis=0&&left axis
.Pen.Width=2
.Pen.Color=0
Endwith
.Aspect.View3D=.F.
.Visible=.T.
Endwith
.AddObject('lbl','label')
With .lbl
.Left=210
.Width=250
.Height=90
.FontSize=12
.WordWrap=.T.
.Caption='1: move cursor from bottom to top across the colorlinetool'+Chr(13)+Chr(10)+;
'2: after crossing colorline, cursor does not change back to normal cursor'
.Visible=.T.
Endwith
.Show
Endwith
Read Events
Return
Define Class parentwindow As Form
Width=600
Height=500
AllowOutput=.F.
Proc Unload
Clea Events
Endproc
Enddefine
Define Class olechart As OleControl
OleClass='TeeChart.TChart.8'
Width=600
Height=360
Top=140
Enddefine
After crossing a colorlinetool, the cursor does not change back to default cursor while moving over series. Is it a bug?
env:
XP SP2
VFP SP1
thanks:
Tamás Handari
the sample code:
Acti Scree
Clea
oparent=Createobject('parentwindow')
With oparent
.AddObject('chart','olechart')
With .chart
.addseries(1)&&barseries
With .series(0)
.Add(2.6,'first',255)
.Add(3,'second',255)
.Add(3,'third',255)
.Add(2.8,'fourth',255)
.Add(3,'fifth',255)
.Add(3,'sixth',255)
.Add(2.6,'first',255)
.Add(3,'second',255)
.Add(3,'third',255)
.Add(2.5,'fourth',255)
.Add(3,'fifth',255)
.Add(3,'sixth',255)
.Marks.Visible=.F.
With .asBar
.BarWidthPercent=100
.OffsetPercent=0
.multibar=0
Endwith
Endwith
With .axis.Bottom
.labels.Separation=1
.minortickcount=0
Endwith
.Tools.Add(6)&&colorline tool
With .Tools.items(0).asColorLine
.Draw3D =.T.
.allowdrag=.T.
.Style=2&¢er
.axis=0&&left axis
.Pen.Width=2
.Pen.Color=0
Endwith
.Aspect.View3D=.F.
.Visible=.T.
Endwith
.AddObject('lbl','label')
With .lbl
.Left=210
.Width=250
.Height=90
.FontSize=12
.WordWrap=.T.
.Caption='1: move cursor from bottom to top across the colorlinetool'+Chr(13)+Chr(10)+;
'2: after crossing colorline, cursor does not change back to normal cursor'
.Visible=.T.
Endwith
.Show
Endwith
Read Events
Return
Define Class parentwindow As Form
Width=600
Height=500
AllowOutput=.F.
Proc Unload
Clea Events
Endproc
Enddefine
Define Class olechart As OleControl
OleClass='TeeChart.TChart.8'
Width=600
Height=360
Top=140
Enddefine