VObject ToolTips

Private Sub _mlv_MouseMove(ByVal sender As Object, ByVal e As _
	System.Windows.Forms.MouseEventArgs) Handles _mlv.MouseMove
	UpdateTooltip()
End Sub

Private Sub UpdateTooltip()
	Dim toolTipText = ""

	If _mlv.CurrentDesigner.VObjects.Length > 0 Then
		Dim obj As Aurigma.GraphicsMill.WinControls.IVObject = _
			 _mlv.CurrentDesigner.VObjects(0)

		For i As Integer = 0 To obj.ControlPoints.Count - 1
			If obj.ControlPoints(i).HitTest( _
			 _mlv.PointToClient(Control.MousePosition), _mlv) Then
				If i >= 1 And i <= 8 Then
					toolTipText = "Drag here to resize"
				ElseIf i >= 9 And i <= 12 Then
					toolTipText = "Drag here to rotate"
				ElseIf i >= 13 And i <= 16 Then
					toolTipText = "Drag here to skew"
				End If

				Exit For
			End If
		Next
	End If

	_toolTip.SetToolTip(_mlv, toolTipText)
End Sub

void _mlv_MouseMove(object sender, MouseEventArgs e)
{
	UpdateToolTip();
}

private void UpdateToolTip()
{
	string text = "";
	if (_mlv.CurrentDesigner.VObjects.Length > 0)
	{
		Aurigma.GraphicsMill.WinControls.IVObject obj = 
			_mlv.CurrentDesigner.VObjects[0];
		for (int i = 0; i < obj.ControlPoints.Count; i++)
			if (obj.ControlPoints[i].HitTest(
				_mlv.PointToClient(Control.MousePosition), 
				_mlv))
			{
				if (i >= 1 && i <= 8)
					text = "Drag here to resize";
				else if (i >= 9 && i <= 12)
					text = "Drag here to rotate";
				else if (i >= 13 && i <= 16)
					text = "Drag here to skew";
				break;
			}
	}
	_toolTip.SetToolTip(_mlv, text);
}