Large Cursor

hansw · Post by **hansw** » Tue Dec 16, 2003 1:34 pm

Is there anyway to implement a large cross hair cursor ?

Post by **Pep** » Wed Dec 17, 2003 12:41 pm

Hi Hans,

I'm not sure what you mean, if you are referencing to the width of the Cursor the you can do the following (using the CursorTool) :

TChart1.Tools.Items(0).asTeeCursor.Pen.Width = 5

Josep Lluis Jorge
http://support.steema.com

hansw · Post by **hansw** » Wed Dec 17, 2003 10:46 pm

Pep wrote:Hi Hans,

I'm not sure what you mean, if you are referencing to the width of the Cursor the you can do the following (using the CursorTool) :

TChart1.Tools.Items(0).asTeeCursor.Pen.Width = 5

Josep Lluis Jorge
http://support.steema.com

Think of the small system crosshair cursor but extend the cross from bottom to top and from left to right of the chart.

This type of cursor is used a lot in CAD programs. AutoCad has it.

I can send you an image if that does not explain it.

Thanks.

Post by **Pep** » Thu Dec 18, 2003 9:55 am

Hi Hans,

the best way to do this is using a CursorTool and then hide the MourseCursor when the Mouse is over the Chart using the following code :

Code: Select all

Private Sub TChart1_OnMouseMove(ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
With TChart1
If X >= .Axis.Left.Position And _
   X <= .Axis.Right.Position And _
   Y >= .Axis.Top.Position And _
   Y <= .Axis.Bottom.Position Then
    TChart1.Cursor = -1
Else
    TChart1.Cursor = 21
End If
End With
End Sub

Josep Lluis Jorge
http://support.steema.com