XProfan

nproc edit.moveCursor(long hCtrl,mx,my)

    long p=dim(4)
    sendMessage(hCtrl,em_getSel,p,)
    long px=long(p,)+mx
    disponer(p)
    p=sendMessage(hCtrl,em_lineFromChar,-1,)
    long lIndex=sendMessage(hCtrl,em_lineIndex,p,)
    p=sendMessage(hCtrl,em_lineIndex,p+my,)+px-lIndex

    if mx>0

        caso px-lIndex>sendMessage(hCtrl,em_lineLength,-1,) : add p,1

    elseif mx<0

        caso px-lIndex<0 : sub p,1

    endif

    sendMessage(hCtrl,em_setSel,p,p)
    sendMessage(hCtrl,em_scrollCaret,,)

ENDPROC

nproc edit.setCursorPos(long hCtrl,px,py)

    long p=sendMessage(hCtrl,em_lineIndex,py,)+px
    sendMessage(hCtrl,em_setSel,p,p)
    sendMessage(hCtrl,em_scrollCaret,,)

ENDPROC