ENTRY OnDrop (IN INT _refID)
IF %IsDragData(0, _CF_TEXT) THEN
TEXT _dndText
; získa text
_dndText := %GetDragDataText(0)
; zistí pozíciu v strome
_tmp := %HI_TVQueryDnDItem(_refId,_node1,_node2)
; nastaví nový prvok v strome
CALL AddTreeItem(_refId, _dndText, _node1, _node2)
ENDIF
END OnDrop
Pridať komentár