ENTRY OnDragOver (IN INT _refID, OUT BOOL _bAllow)
; test on admissibility of target object
_bAllow := @FALSE
IF _refId=???? THEN
; what data I have? I can work only with a text
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
0 komentárov