colorlinetool cursor does not change back

[hantom]

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&&center
.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

[Yeray]

Hi hantom,

Thank you for reporting those issues, we could reproduce it too and added to the wish list (TA05013030). Here, mouse cursor doesn't seem to be updated until you are still in a bar.

[Yeray]

Hi hantom,

I'm glad to announce that this issue has been fixed and will be available with the next maintenance release.

[hantom]

Yeray,

how to know, that next maintenance release is available?

[Yeray]

Hi hantom,

We recommend you to be aware at this forum or subscribe to our RSS news feed for new release announcements and what's fixed on them.