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?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour show line number in memo edit
Nop wrote: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
oGet:GetRow()
oGet:GetCol()EMG
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
Nop wrote: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
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
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
This is a sample but it is not working properly. Antonio?
EMG
#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 NILEMG
Enrico, this is my problem... dont work...
Nop wrote:Enrico, this is my problem... dont work...
Did you try my sample? It works... almost.
EMG