Trying to use ON MOVE , you can try
Code: Select all
# include "fivewin.ch"
FUNC MAIN
LOCAL oWnd
DEFINE WINDOW oWnd FROM 10,10 TO 20,70
SET MESSAGE OF oWnd TO "TEST ON MOVE" CLOCK DATE KEYBOARD NOINSET
oWnd:bMoved := {|nRow,nCol|oWnd:setMsg(LTRIM(STR(nRow)) + " , " + LTRIM(STR(nCol)))}
ACTIVATE DIALOG oWnd
RETURN
1) The result is WRONG , nRow is always 0
2) Trying to use the ON MOVE clause can never do the same , nRow or nCol can't be used.
It is only possible when fivewin.ch and dialog.ch are changed :
<oWnd>:bMoved [ := \{ | nRow,nCol | <uMove> \} ], ;
3) I am convinced that this behaviour is a ERROR , i reported it already
a few days ago . Why no response ????????
Frank