Anidando dos controles richedit

[groiss]

Hola,
Tengo un dialogo, con un control richtext readonly, y un boton, que no abre un nuevo dialogo con otro control richtex, este si es modificable por el usuario, aquí viene mi pregunta:
¿Como hago para que el texto escrito en el control editable, se añada al cerrar el dialogo, al que se muestra en el control inicial que es readonly?
¿Como hago para que el cursor de un control richedit aparezca siempre al final del texto?
Gracias, y mis saludos a todos

[cnavarro]

Para posicionarte prueba con:

METHOD Len() INLINE RELen( ::hWnd )
METHOD SetPos( nPos ) INLINE RESetPos( ::hWnd, nPos )

y para actualizar el texto, prueba a realizar un refresh o tengas que volver a leer el fichero.

[groiss]

Muchas gracias
Al final lo hice asi:

Code: Select all  Expand view

function anadetexto(objeto)
local nuetexto:="", odlg, oget , obtn1,obtn2,cadena:=alltrim(persona)+" "+dtoc(date())+" "+time()+CRLF
define dialog odlg resource "entratex"
REdefine ButToN obtn1 id 222 DIALOG odlg action {oget:setpos(0),oget:insertrtf(cadena),oget:selectall(),oget:copy(),;
    objeto:setreadonly(.f.),objeto:refresh(),objeto:setpos(objeto:len()),objeto:paste(),objeto:setreadonly(.t.),odlg:end()}
redefine button obtn2 id 223 dialog odlg action nuetexto:="",odlg:end()
REdefine richedit oget var nuetexto id 1000 DIALOG odlg
activate dialog odlg centered on init oget:setfocus()
return nil
 

Pues además necesitaba registra la persona, fecha y hora en la que se hacía la anotación.
Nuevamente muchas gracias
José Luis