> #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 >>