>> #DEFINE tvwHorizontal 276 >> #DEFINE tvwVertical 277 >> #DEFINE tvwLeft 0 >> #DEFINE tvwRight 1 >> #DEFINE tvwUp 0 >> #DEFINE tvwDown 1 >> >> PROCEDURE OLEDragOver(toData, tiEffect, tiButton, tiShift, tiX, tiY, tiState) >> DECLARE INTEGER SendMessage ; >> IN User32 ; >> INTEGER hWnd, ; >> INTEGER wMsg, ; >> INTEGER wParam >> >> WITH This >> * Scroll as needed >> DO CASE >> CASE BETWEEN(tiX, 0, 15) >> SendMessage(.hWnd, tvwHorizontal, tvwLeft) >> >> CASE BETWEEN(tiX, .Width - 20, .Width) >> SendMessage(.hWnd, tvwHorizontal, tvwRight) >> >> CASE BETWEEN(tiY, 0, 15) >> SendMessage(.hWnd, tvwVertical, tvwUp) >> >> CASE BETWEEN(tiY, .Height - 20, .Height) >> SendMessage(.hWnd, tvwVertical, tvwDown) >> >> ENDCASE >> ENDWITH >> ENDPROC >>>>