Raiškiojo teksto efektų taikymas "Visual FoxPro" ataskaitose


Suvestinė


Laikas nuo laiko būtų gerai turėti galimybę įtraukti formatavimo efektus į atskirus žodžius "Microsoft Visual FoxPro" ataskaitose. Tai galima atlikti naudojant raiškiojo teksto "ActiveX" valdiklį, bendrąjį lauką ir OLE susietąją "Visual FoxPro" ataskaitos valdiklį.

Daugiau informacijos


Šiame pavyzdyje parodyta, kaip pabraukti lauko dalį iš lentelės ir Rodyti tą ataskaitos formatavimą. Galite bet kokį efektą, kurį galite taikyti Raiškusis tekstas, galite taikyti bet kokiam poveikiui.
  1. Atidarykite Visual FoxPro ir sukurkite naują ataskaitą.
  2. Įtraukite paveikslėlio/Active-x valdikliuose susietą valdiklį į ataskaitos išsamios informacijos juostą. Nustatykite lauko ypatybę Dcolor. gcolor.
  3. Įrašykite ataskaitą kaip Rtfdemo.
  4. Įklijuokite šį kodą į naują programą. Įrašykite tą programą tame pačiame kataloge kaip ataskaita, tada ją paleiskite.
    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
    Išspausdinus ataskaitą, teksto spalva yra pabraukta.Pastaba: kai kuriais atvejais RTF formatuoto teksto spaudinio peržiūra neatrodo teisinga. Tačiau spausdinant eilutę, išvestis suformatuota tinkamai.Patarimas: jei norite generuoti eilutę, panašią į aukščiau nurodytą kodą, sukurkite savo reiškinio šabloną programoje "Microsoft WordPad" (arba kitą taikomąją programą, galinčią sukurti raiškiojo teksto failus). Pabraukti, nuspalvinti ir taikyti bet kokį kitą teksto formatavimą, tada įrašyti jį į a. RTF failas. Atidarykite. RTF failas Užrašinėje ir kopijuoti/įklijuoti raiškiojo teksto kodą į "Visual FoxPro" programą. (Šiai taikomajai programai reikalingas valdiklis RichTX32. OCX. Visual FoxPro 3,0 ir 3.0 b nesiųsti su RichTX32. OCX.)