FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Anidando dos controles richedit
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Anidando dos controles richedit
Posted: Wed Mar 05, 2014 09:11 AM

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

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Anidando dos controles richedit
Posted: Wed Mar 05, 2014 09:17 AM

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.

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Re: Anidando dos controles richedit
Posted: Wed Mar 05, 2014 01:01 PM
Muchas gracias
Al final lo hice asi:
Code (fw): Select all Collapse
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

Continue the discussion