Añadir cadenas de texto RTF a un texto rtf
Posted: Wed Jul 22, 2020 10:57 am
Buenos días, voy a explicarlo un poquito
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
Aquí está como mezclo lo que entra el usuario con lo que ya había
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
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
* 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()}
Code: Select all
* 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
Desde ya mi agradecimiento
José Luis