Power Builder - RichTextEdit

Buenas a todos,

Alguien sabe como hacer para poner el tipo de letra (Courrier de 11, Arial 15...) automáticamente a un texto que este dentro de un control de tipo \"RichTextEdit\"???

Gracias y un Saludo :)

Puedes hacer el cambio con la función SetTextStyle, para mayor referencia de aplicación y parametros checa la ayuda de PB.

Suerte!

No es tan fácil. La única manera de cambiar el tipo de fuente y tamaño en un control richtext, es pegando un formateo de texto rte.

En el evento constructor del rte_1, pegas:

String ls_InitialRT

ls_InitialRT = '{\rtf1\ansi\deff0{\fonttbl{\f0\fcharset0 Courier New;}} &
{\colortbl\red0\green0\blue255}\paperw21\paperh0\margl0\margr0\margt0\ma &
{\f0\fs26\cf0\up0\dn0 }}'

This.SetRedraw ( False )
This.SelectTextAll ( )
This.Clear ( )
This.PasteRTF ( ls_InitialRT )
This.SetRedraw ( True )
//----------------

Donde:
\fcharset0 Courier New//Tipo fuente
\colortbl\red0\green0\blue255 //color
\fs30 //Tamaño de fuente. El tamaño real es 15 (30/2).

Nota: El único problema es que, cuando borras todo el texto, vuelve a la fuente por defecto. En este caso, tendrías que crear un nuevo evento que controle las teclas pulsadas y cuando se borre todo el texto, reiniciar el anterior código. O crear alguna función.

O Puedes bajarte una pbl (muy compleja) de:

http://members.tripod.com/~bruce_armstrong/bruce.armstrong/public/rte_font.zip

Dicen que funciona para PB 6.5. Para otras versiones, tendrías que abrir el objeto de usuario u_rte_demo, y modificar la variable de instancia:
classname = "PB60RichTextEdit"
por:
classname = "PB70RichTextEdit"

Nota: No tuve suerte con PB 9.

Hola

Tuve esta nececidad y hacia algo haci pero en PB9 como dice
Oscar No Tuve Suerte

Si alguien por alli, lo Hizo, Bienvenido !!

Saludosss