|
||||||||
TestControl(ByVal xcontrol As Object, ByVal x As Single, ByVal y As Single) As Long             Normaly             Normally you will add the marker in the MousDown or Click Event of an object.
|
object |
the object you will test |
||
x,y |
the Mouse x and y click position |
            1 if the object was clicked.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim i As Integer
' Hide all visible Marker
If Button = vbLeftButton Then
    If sizer1.Visible = True Then sizer1.HideMarker
End If
' test Objects with no mousedown event
i = sizer1(aktualsizer).TestControl(Shape1, x, Y)
If i = 1 Then
  sizer1.ShowMarker(Shape1, 0,0)
End If
End Sub