Visual FoxPro raporlarına zengin metin efektleri uygulama

Bu makalede, zengin metin biçimlendirmesi içeren bir tablodan bir alanın bölümlerinin altını çizme ve bu biçimlendirmeyi raporda görüntüleme açıklanmaktadır.

Özgün ürün sürümü: Visual FoxPro
Özgün KB numarası: 246088

Özet

Zaman zaman, Visual FoxPro raporlarındaki tek tek sözcüklere biçimlendirme efektleri ekleyebilmek iyi olabilir. Bu, Visual FoxPro raporundaki Zengin Metin ActiveX denetimi, genel alan ve OLE bağlı denetimi ile gerçekleştirilebilir.

Daha Fazla Bilgi

Bu örnekte, bir tablodan bir alanın bölümlerinin altını çizme ve bu biçimlendirmeyi raporda görüntüleme gösterilmektedir. Örneğinize Zengin Metin'de mümkün olan herhangi bir efekti veya efekt birleşimini uygulayabilirsiniz.

1. Visual FoxPro'yu açın ve yeni bir rapor oluşturun.

2. Raporun ayrıntı bandına bir Resim/Active-X Bağlı Denetimi ekleyin. FIELD özelliğini Dcolor.gcolor olarak ayarlayın.

3. Raporu rtfDemo olarak kaydedin.

4. Aşağıdaki kodu yeni bir programa yapıştırın. Bu programı raporla aynı dizine kaydedin ve çalıştırın.

   CLOSE ALL
   CLEAR ALL
   tSafety = SET("safety") &&Store SET status of Safety to a variable
   SET SAFETY OFF &&Check to see if the Dcolor table exists
   IF FILE("dcolor.dbf")
   USE dcolor EXCLUSIVE
   ELSE
   CREATE TABLE dcolor (dcolor c(20),gcolor g) &&Create and add records if DColor table doesn't exist
   INSERT 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 properly
   SCAN &&Create a Richtext OLE bound control in the general field of the dColor table
   SET TEXTMERGE TO &_rtfFile NOSHOW
   SET 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 TO
   APPEND GENERAL gcolor FROM &_rtfFile CLASS "RICHTEXT.RICHTEXTCTRL.1"
   ENDSCAN
   SET SAFETY &tSafety
   ERASE &_rtfFile
   
   REPORT FORM rtfdemo PREVIEW NOCONSOLE
   USE
   CLOSE ALL
   

Rapor yazdırıldığında, metinde rengin altı çizili olarak gösterilir.

Not

Bazı durumlarda, RTF biçimlendirilmiş metnin baskı önizlemesi doğru görünmüyor. Ancak, dize yazdırıldığında çıkış doğru biçimlendirilir.

İpucu

Yukarıdaki koddakine benzer bir dize oluşturmak için WordPad'de (veya Zengin Metin Dosyaları oluşturabilen başka bir uygulamada) ifadeniz için bir şablon oluşturun. Metninizin altını çizin, renklendirin ve diğer biçimlendirmeleri uygulayın, ardından .RTF dosyasına kaydedin. RTF dosyasını Not Defteri'nde açın ve Zengin Metin kodunu kopyalayıp Visual FoxPro programınıza yapıştırın.

(Bu uygulama RichTX32.OCX denetimi gerektirir. Visual FoxPro 3.0 ve 3.0b, RichTX32.OCX ile birlikte gönderilmez.)