Teksteffecten met opmaak toepassen in Visual FoxPro-rapporten


Samenvatting


Van tijd tot tijd kan het handig zijn om opmaakeffecten toe te voegen aan afzonderlijke woorden binnen Microsoft Visual FoxPro-rapporten. U kunt dit doen met het ActiveX-besturingselement rijke tekst, een algemeen veld en een OLE-afhankelijk besturingselement in een visueel FoxPro-rapport.

Meer informatie


In dit voorbeeld ziet u hoe u delen van een veld uit een tabel kunt onderstrepen en de opmaak in een rapport kunt weergeven. U kunt elk effect of elke combinatie van effecten in tekst met opmaak overal toepassen.
  1. Open Visuele FoxPro en maak een nieuw rapport.
  2. Een afbeelding/ActiveX afhankelijk besturingselement toevoegen aan de detail band van het rapport. Zet de veldeigenschap op Dcolor. gcolor.
  3. Sla het rapport op als rtfDemo.
  4. Plak de volgende code in een nieuw programma. Sla dit programma op in dezelfde map als het rapport en voer het uit.
    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
    Wanneer het rapport wordt afgedrukt, wordt de kleur onderstreept in de tekst.Opmerking: in sommige gevallen is het afdrukvoorbeeld van tekst in RTF-indeling niet goed. Wanneer de tekenreeks wel wordt afgedrukt, wordt de uitvoer wel correct weergegeven.Tip: als u een tekenreeks wilt genereren die vergelijkbaar is met de tekenreeks in de bovenstaande code, maakt u een sjabloon voor uw expressie in Microsoft WordPad (of een andere toepassing waarmee u tekst met opmaak kunt maken). U kunt alle andere opmaak onderstrepen, kleur en toepassen op uw tekst en de opmaak ervan toepassen. RTF-bestand. Open de. RTF-bestand in Kladblok en kopieer en plak de tekst met opmaak in uw Visuele FoxPro-programma. (Voor deze toepassing is het besturingselement RichTX32. OCX vereist. Visual FoxPro 3,0 en 3.0 b worden niet met RichTX32. OCX meegeleverd.