ENTRY OnDragOver (IN INT _refID, OUT BOOL _bAllow)
; test, či je cieľ prípustný
_bAllow := @FALSE
IF _refId=???? THEN
; aké mám dáta? viem pracovať len s textom
IF %IsDragData (0, _DF_TEXT) THEN
_bAllow := @TRUE
ENDIF
IF
IF %IsDragData (0, _DF_IPS) THEN
INT _cnt
_cnt := %GetDragDataIPS (0)
_bAllow := @TRUE
END IF
END OnDragOver
Pridať komentár