Sub pnl_tixi_MousePressed (EventData As MouseEvent)
'pnl_tixi pane parent
pnl_s.Initialize("pnl_s") ' selection indicator
pnl_tixi.AddNode(pnl_s,EventData.X,EventData.Y,1dip,1dip)
pnl_s.Style="-fx-background-color: #ff5a218a;" 'a red transparent color
px0=EventData.X ' a process global variable
py0=EventData.Y 'a process global variable
End Sub
Sub pnl_tixi_MouseDragged (EventData As MouseEvent)
If EventData.X>px0 AND EventData.Y>py0 Then
pnl_s.Left=px0
pnl_s.Top=py0
Else If EventData.X<px0 AND EventData.Y> py0 Then
pnl_s.Left=EventData.X
pnl_s.Top=py0
Else If EventData.Y<py0 AND EventData.X>px0 Then
pnl_s.Top=EventData.Y
pnl_s.Left=px0
Else If EventData.Y<py0 AND EventData.X<px0 Then
pnl_s.Top=EventData.Y
pnl_s.Left=EventData.X
End If
pnl_s.PrefWidth=Abs(EventData.X-px0)
pnl_s.PrefHeight=Abs(EventData.Y-py0)
end sub
Sub pnl_tixi_MouseReleased (EventData As MouseEvent)
Log("pnl_tixi mouse released")
pnl_s.RemoveNodeFromParent
End Sub