OnDragOver
Udalosť OnDragOver
Deklarácia
ENTRY OnDragOver(IN INT _refID, OUT BOOL _bAllow)
; akcie
END OnDragOver Popis
Udalosť sa generuje nad cieľovým grafickým objektom vtedy, keď nad ním užívateľ presúva myš počas operácie Drag.
V rámci tejto udalosti je nutné určiť, či cieľový grafický objekt je schopný spracovať operáciu Drop. Toto rozhodnutie je možné určiť globálne, ak grafický objekt nepodporuje rolu cieľového objektu, alebo na základe formátu prenášaných dát. Ten je možný zistiť pomocou funkcie %IsDragData, ktorá dokáže určiť, aký formát dát sa prenáša.
Ak je prenášaný formát dát vyhovujúci pre spracovanie v grafickom objekte, mal by cieľový grafický objekt povoliť operáciu Drop prostredníctvom parametra _bAllow. Na základe tejto hodnoty bude nastavená ikona kurzora myši, ktorá indikuje možné dokončenie operácie Drop.
Príklad
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 Súvisiace stránky: