Nifty-neato, as they say ;)


>Kool!
>>Hi Gavin, you can also do this:
>>
>>

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

>>
>>HTH
>>
>>
>>>Hi All,
>>>
>>> I have an application (VFP6.0 SP5) that uses a treeview and I want to select a node and drag it to another node that is off the screen. E.g I have to scroll up or down to reach the target node. The problem is that when I select the node to be moved and try to scroll up or down the treeview does not scroll. Does anyone have a solution for this?
>>>
>>>Thanks,
>>>Gavin.