FoxPro/Visual FoxPro - NEGRITAS & ALINEADO

HOLA....OTRA VEZ...

MI DUDA ES SI EXISTE LA FORMA DE PONER ALGUNA OPCION EN MI PROGRAMA, ALINEAR, SUBRAYAR, NEGRITAS, ETC.....COMO EN WORD.....PERO DENTRO DE LOS TEXTBOX O EDITBOX.......

Y SI SE EXISTE LA FORMA DE "JUSTIFICAR" EL TEXTO EN LOS REPORTES.......JUSTIFICAR NO ALINEAR....

VFPRO6

GRACIAS

Buen dia... Encontré esto, a lo mejor te puede servir...

http://www.lawebdelprogramador.com/codigo/enlace.php?idp=692&id=34&texto=FoxPro/Visual+FoxPro

Además revisa el codigo, para probarlo copialo a un prg...

Truquito muy bueno que permite poder justificar textos en los reportes utilizando el control RTF.

Para probar el ejemplo crea un reporte llamadortfdemo.frx y agrégale un control RTF, le colocas como control source ctext.gText y le marcas la opción que dice "Campo general de una tabla"

Local cStr
cStr="Note that there is a limit of 32 characters "+;
"total for the sum of text before and text "+;
"after for simple numbering. Multilevel numbering "+;
"has a limit of 64 characters total for the sum "+;
"of all levels.NOTE: The file must have a"+;
".RTF extension to work properly."+;
"Note that there is a limit of 32 characters "+;
"total for the sum of text before and text "+;
"after for simple numbering. Multilevel numbering "+;
"has a limit of 64 characters total for the sum "+;
"of all levels.NOTE: The file must have a"+;
".RTF extension to work properly."

Create Cursor ctext (lctext m,gText g)
Insert Into ctext (lctext) Values (cStr)

_rtfFile = "c:"+Sys(3)+".rtf"

Scan
Set Textmerge To &_rtfFile Noshow
Set Textmerge On
\{ tf1ansiqj <<ALLT(cText.lcText)>>}
Set Textmerge To
Append General gText From &_rtfFile Class "RICHTEXT.RICHTEXTCTRL.1"
EndScan

Report Form rtfdemo.frx Preview Noconsole

**********FIN*************

Si tienes dudas, nada mas lo posteas aqui mismo. Te recuerdo que cualquier cosa nada mas tienes que pedirmelo...Saludos a Queretaro...