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.