Richtextbox no funciona el Copiar/Pegar
Publicado por Franjo (12 intervenciones) el 10/10/2006 09:25:35
Tengo en una aplicación un control Richtextbox. Es una aplicacion migrada de PB5 a PB10.
Tiene un botón la ventana para copiar el text del richtextbox al portapapeles. El texto esta en modo DisplayOnly = True para que no se pueda editar.
el problema viene, que temporalmente se desbloquea el texto , se selecciona y se hace un copy, pero luego al hacer un paste en el word, por ejemplo no lo tiene en el portapapeles.
Esto funcionaba, antes, correctamente en el PB5, ahora en PB10 no funciona.
Este es el codigo del botón de copiar texto:
long ll_ret
rte_resolucio.DisplayOnly = FALSE
ll_ret = rte_resolucio.selecttextall()
if ll_ret = -1 then
MessageBox('Atenció',"No s'ha copiat el texte al Porta Retalls (selectall) .",Exclamation!)
return
end if
ll_ret = rte_resolucio.copy()
if ll_ret < 0 then
MessageBox('Atenció',"No s'ha copiat el texte al Porta Retalls. Error copy: " + string(ll_ret) ,Exclamation!)
else
MessageBox('Atenció',"S'ha copiat el texte al Porta Retalls.",Information!)
end if
rte_resolucio.DisplayOnly = TRUE
Hay alguna otra manera de hacerlo?
por cierto el rte_resolucio.copy() devuelve 0 , que se ha realizado correctamente.
Tiene un botón la ventana para copiar el text del richtextbox al portapapeles. El texto esta en modo DisplayOnly = True para que no se pueda editar.
el problema viene, que temporalmente se desbloquea el texto , se selecciona y se hace un copy, pero luego al hacer un paste en el word, por ejemplo no lo tiene en el portapapeles.
Esto funcionaba, antes, correctamente en el PB5, ahora en PB10 no funciona.
Este es el codigo del botón de copiar texto:
long ll_ret
rte_resolucio.DisplayOnly = FALSE
ll_ret = rte_resolucio.selecttextall()
if ll_ret = -1 then
MessageBox('Atenció',"No s'ha copiat el texte al Porta Retalls (selectall) .",Exclamation!)
return
end if
ll_ret = rte_resolucio.copy()
if ll_ret < 0 then
MessageBox('Atenció',"No s'ha copiat el texte al Porta Retalls. Error copy: " + string(ll_ret) ,Exclamation!)
else
MessageBox('Atenció',"S'ha copiat el texte al Porta Retalls.",Information!)
end if
rte_resolucio.DisplayOnly = TRUE
Hay alguna otra manera de hacerlo?
por cierto el rte_resolucio.copy() devuelve 0 , que se ha realizado correctamente.
Valora esta pregunta


0