Multiedit()

[wmormar]

Hola,

Podrian orientarme de como ir al final del texto?

Me explico, tengo un GET MEMO para mostrar productos conforme los voy seleccionando, me gustaria que siempre fuera visible el final de todo lo que le voy adicionando, y no he podido bajo ninguna de las siguientes formas.

Code: Select all  Expand view  RUN

STATIC cProducto,cVar
FUNCTION main()
cProducto := SPACE(10)
cVar := ""
DEFINE DIALOG ....
  REDEFINE GET oGet1 VAR cProducto ID 101 OF oDlg UPDATE
  REDEFINE GET oGet2 VAR cVar ID 102 MEMO OF oDlg UPDATE
  REDEFINE BUTTON oBtn ID 201 ACTION adiciona() OF oDlg
ACTIVATE DIALOG ...
RETURN NIL

FUNCTION adiciona()
cVar += cProducto + CRLF
oGet2:refresh()
oGet2:GoBottom()
RETURN .t.

Bueno, ahi está el ejemplo, saludos y espero su ayuda

Gracias de antemano

[Manuel Aranda]

Hola,

Podrian orientarme de como ir al final del texto?

Me explico, tengo un GET MEMO para mostrar productos conforme los voy seleccionando, me gustaria que siempre fuera visible el final de todo lo que le voy adicionando, y no he podido bajo ninguna de las siguientes formas.

Code: Select all  Expand view  RUN

STATIC cProducto,cVar
FUNCTION main()
cProducto := SPACE(10)
cVar := ""
DEFINE DIALOG ....
  REDEFINE GET oGet1 VAR cProducto ID 101 OF oDlg UPDATE
  REDEFINE GET oGet2 VAR cVar ID 102 MEMO OF oDlg UPDATE
  REDEFINE BUTTON oBtn ID 201 ACTION adiciona() OF oDlg
ACTIVATE DIALOG ...
RETURN NIL

FUNCTION adiciona()
cVar += cProducto + CRLF
oGet2:refresh()
oGet2:GoBottom()
RETURN .t.

Bueno, ahi está el ejemplo, saludos y espero su ayuda

Gracias de antemano

Hola wmormar:

Prueba con esto:

oGet2:bGotFocus:={||oGet2:SetPos(Len(cVar)) }

Saludos,
Manuel

[wmormar]

Manuel,

Antes que nada gracias por responder.

Es un Multiget ReadOnly.

Además no tiene TABSTOP.

Me interesa que desde otros GETS, pues ese nunca tendrá el foco, pueda moverlo segun mis necesidades.

Por ejemplo a una linea específica o al final.

Espero haberme explicado

Saludos y gracias de nuevo