Cómo aplicar efectos de texto enriquecido en los informes de Visual FoxPro


Resumen


De vez en cuando, sería conveniente poder agregar efectos de formato a palabras individuales dentro de los informes de Microsoft Visual FoxPro. Esto se puede llevar a cabo con el control ActiveX de texto enriquecido, un campo general y un control dependiente de OLE en un informe de Visual FoxPro.

Más información


En este ejemplo se muestra cómo subrayar partes de un campo de una tabla y mostrar ese formato en un informe. Puede aplicar cualquier efecto o combinación de efectos posibles en texto enriquecido a su ejemplo.
  1. Abra Visual FoxPro y cree un nuevo informe.
  2. Agregue un control dependiente de imagen o Active-X a la banda de detalles del informe. Establezca su propiedad FIELD en Dcolor. gcolor.
  3. Guarde el informe como rtfDemo.
  4. Pegue el siguiente código en un programa nuevo. Guarde ese programa en el mismo directorio que el informe y, a continuación, ejecútelo.
    CLOSE ALLCLEAR ALLtSafety = SET("safety") &&Store SET status of Safety to a variableSET SAFETY OFF &&Check to see if the Dcolor table existsIF FILE("dcolor.dbf")USE dcolor EXCLUSIVEELSECREATE TABLE dcolor (dcolor c(20),gcolor g) &&Create and add records if DColor table doesn't existINSERT INTO dcolor (dcolor) VALUES ("Red")INSERT INTO dcolor (dcolor) VALUES ("Green")INSERT INTO dcolor (dcolor) VALUES ("Blue")INSERT INTO dcolor (dcolor) VALUES ("Purple")INSERT INTO dcolor (dcolor) VALUES ("Orange")INSERT INTO dcolor (dcolor) VALUES ("Yellow")ENDIF_rtfFile = SYS(3)+".rtf" &&Create a legal file name with a .RTF extension*NOTE: The file must have a .RTF extension to work properlySCAN &&Create a Richtext OLE bound control in the general field of the dColor tableSET TEXTMERGE TO &_rtfFile NOSHOWSET TEXTMERGE ON *!!IMPORTANT!! The following richtext formatting line(s) need to be          *included as one line in your program.         \\{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl         {\f0\fnil\fcharset0 Times New Roman;}}\viewkind4\uc1\pard\f0\fs20          The big \ul <<ALLT(dcolor.dcolor)>>\ulnone  dog\par}SET TEXTMERGE TOAPPEND GENERAL gcolor FROM &_rtfFile CLASS "RICHTEXT.RICHTEXTCTRL.1"ENDSCANSET SAFETY &tSafetyERASE &_rtfFileREPORT FORM rtfdemo PREVIEW NOCONSOLEUSECLOSE ALL
    Cuando se imprime el informe, el color se subraya en el texto.Nota: en algunos casos, la vista previa de impresión del texto con formato RTF no es correcta. Sin embargo, cuando se imprime la cadena, la salida tiene el formato correcto.Sugerencia: para generar una cadena similar a la del código anterior, cree una plantilla para la expresión en Microsoft WordPad (u otra aplicación capaz de crear archivos de texto enriquecido). Subrayado, color, y aplique otro formato al texto y, a continuación, guárdelo en un. Archivo RTF. Abra el. RTF en el Bloc de notas y Copie/pegue el código de texto enriquecido en el programa Visual FoxPro. (Esta aplicación requiere el control RichTX32. OCX. Visual FoxPro 3,0 y 3.0 b no se distribuyen con RichTX32. OCX).