Tengo en un diálogo un objeto Richtext, en cual está simpre en modo readonly, ya que a él solo se añaden apuntes, en lo que aparece de forma automática fecha, hora y usuario que añade el comentario, este comentario se añade desde otro objeto Richtext tras pulsar el boton de añadir el comentario
- Code: Select all Expand view RUN
* ogetnom[21] es el objeto richtext
* vobserva es la variable que contiene el texto
redefine button obtn10 id 118 OF ofold:adialogs[5] action { anadetexto(ogetnom[21]), vobserva:=ogetnom[21]:saveasrtf(),ogetnom[21]:refresh()}
Aquí está como mezclo lo que entra el usuario con lo que ya había
- Code: Select all Expand view RUN
* persona es la variable que tiene el nombre del usuario
function anadetexto(objeto)
local nuetexto:="", odlg, oget , obtn1,obtn2,cadena:=CRLF+alltrim(persona)+" "+dtoc(date())+" "+time()+CRLF+CRLF+CRLF
define dialog odlg resource "entratex" font supfont BRUSH OBRUSH transparent
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
Como veis la forma de hacer la unión de ambos textos es usando el portapapeles, se podría hacer de alguna otra forma para evitar el uso del portapapeles?
Desde ya mi agradecimiento
José Luis
