XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
MultiEdit: Position des Cursors im Text bestimmen
Window 50,50-500,300
declare Edit%,Zeile%,Zeichen%,Gesamt&
let Edit%=CreateMultiedit(%Hwnd,,50,50,200,200)

while 1

    getmessage
    WaitInput  für Profanversionen < 7.x
    sendmessage(Edit%,176,addr(Gesamt&),0)
    locate 1,1
    let Zeichen%=sub(Gesamt&,sendmessage(Edit%,187,-1,0))
    let Zeile%=sendmessage(Edit%,201,-1,0)
    locate 1,1
    print Der Cursor befindet sich hinter Zeichen,Zeichen%,in Zeile,Zeile%,

wend