XProfan

Stefan quick
-Begin----------------------------------------------------------- ------
-Header-Files------------------------------------------------------
 $H windows.ph
 $H RichEdit.ph
 $H Structs.ph
 $H Messages.ph
-Structures----------------------------------------------------------
Declare CharRange#
Struct CharRange = ~CHARRANGE
Dim CharRange#, CharRange
-Globale variables---------------------------------------------------
Declare Ende&, hButton&, hWin&, hRtf&
-function GetCursorPosX (slot)-------------------------------------

Proc GetCursorPosX

    SendMessage(hRtf&, ~EM_EXGETSEL, 0, CharRange#)
    Return Int(CharRange#.cpMax& - (SendMessage(hRtf&,
    ~EM_LINEINDEX, SendMessage(hRtf&, ~EM_EXLINEFROMCHAR, 0,
    CharRange#.cpMin&), 0)) + 1)

ENDPROC

-function GetCursorPosY (row)--------------------------------------

Proc GetCursorPosY

    SendMessage(hRtf&, ~EM_EXGETSEL, 0, CharRange#)
    Return Int(SendMessage(hRtf&, ~EM_EXLINEFROMCHAR, 0,
    CharRange#.cpMin&) + 1)

ENDPROC

-Main----------------------------------------------------------------
-GUI---------------------------------------------------------------
hWin& = @Create("Window", %hWnd, "Test", 100, 100, 320, 270)

If hWin&

    hRtf& = @Create("RichEdit", hWin&, "No Text", 5, 5, 300, 200)
    hButton& = @Create("Button", hWin&, "Cursor-position ermitteln",
    5, 210, 300, 24)

EndIf

-Ereignisschleife--------------------------------------------------
Clear Ende&

Repeat

    WaitInput

    If %Key = 2

        Ende& = 1

    ElseIf @Clicked(hButton&)

        @MessageBox("Zeile: " + @Str $(GetCursorPosY()) + @Chr$(13) +
        @Chr$(10) + "Spalte: " + @Str $(GetCursorPosX()),
        "XY-Position", ~MB_OK)

    EndIf

Until Ende&

Dispose CharRange#
-End-------------------------------------------------------------------
End