show line number in memo edit

[Nop]

hi, i need show line and columm with an memoedit, i already make this in format get, but in memo normal i dont know, someone can help me?

[Enrico Maria Giordano]

hi, i need show line and columm with an memoedit, i already make this in format get, but in memo normal i dont know, someone can help me?

Try

Code: Select all  Expand view  RUN

oGet:GetRow()
oGet:GetCol()

EMG

[Nop]

Enrico, thanks, in format use i use:

oFGet:bLocate := {| nRow, nCol | oMsgItem:SetText( "Lin: " + Str( nRow, 4 ) + " " + "Col: " + Str( nCol, 4 ) ) }

this is can adapted to memo get? thanks

[Enrico Maria Giordano]

Enrico, thanks, in format use i use:

oFGet:bLocate := {| nRow, nCol | oMsgItem:SetText( "Lin: " + Str( nRow, 4 ) + " " + "Col: " + Str( nCol, 4 ) ) }

this is can adapted to memo get? thanks

What is locate event?

EMG

[Nop]

i dont know, i see in a sample of format get, i need an way to show line , and columm when user movimente the cursor in memo. like an notepad. thanks again

[Nop]

or maybe, use richedit in memofields, this is possible? i need like an notepad im memo files, showing the line and columm of cursor. thanks

[Enrico Maria Giordano]

This is a sample but it is not working properly. Antonio?

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oGet, cVar := "This is a test"

    LOCAL oRow, oCol

    DEFINE DIALOG oDlg;
           SIZE 400, 400

    @ 0, 0 GET oGet VAR cVar MEMO;
           SIZE 100, 100

    oGet:bKeyDown = { || ShowRowPos( oGet, oRow, oCol ) }

    @ 10, 0 SAY oRow PROMPT "nRow = " + LTrim( Str( oGet:GetRow() ) )
    @ 11, 0 SAY oCol PROMPT "nCol = " + LTrim( Str( oGet:GetCol() ) )

    oDlg:bStart = { || oGet:SetPos( 0 ) }

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION SHOWROWPOS( oGet, oRow, oCol )

    oRow:SetText( "nRow = " + LTrim( Str( oGet:GetRow() ) ) )
    oCol:SetText( "nCol = " + LTrim( Str( oGet:GetCol() ) ) )

    RETURN NIL

EMG

[Nop]

Enrico, this is my problem... dont work...

[Enrico Maria Giordano]

Enrico, this is my problem... dont work...

Did you try my sample? It works... almost.

EMG