Cookbook	Rulers
Anchors Area Hotspots Caption Change image size Color squares (rulers) Convert images to/from resources Convert DocLinks to Hotspots Create Image Resource Doclink info in sections II Embedded Table Sort Export images Format passthru text Format simple text Generate HTML Hotlink retrieval Hotspot creation Import JPEG/GIFs Insert text/object in particular place Java Applet Read and Modify Parameters Process sections Replace attachment icon resource references Retrieve info from doclinks rTextRange.Insert RTF import Rulers Simple table Simple table - bars Sort text (horizontal bars) Sort text (II) - bar chart Substitute fonts Table - Merged cells Table - vertical alignment in cell Table processing - check for Merged cells Table processing - dynamic table Quick replace Quick table Table Sort Table Transpose Table with rulers Table, create a tabbed table Table processing - tabbed table	rtHRule rtColor add (rtContainer) Add (rtCollection) Add (rTextParagraph) Collection (rtContainer) Collection (rtEnumeration) Color (rtFontstyle) Color (rtHRule) fitToWindow getRichTextItem hasGradient (rtColor) hasGradient (rtHRule) hasMoreElements NextElement RuleHeight RuleWidth setAltRGB setRGB Code fragment from sample "Rulers"; see full running samples in downloadable help. Dim i As Integer, rule As rtHRule call ctxDump.getRichTextItem(doc,"Body") Set hotcoll = ctxDump.Collection(PARSE_GROUP_GRAPHIC) Dim enum As New rtEnumeration(hotcoll), o Do While enum.hasMoreElements Set o = enum.nextelement o.RuleHeight= Cint(8000*Rnd) Mod 5*ONE_CM' set it random height (up to 5 cm) and random (gradient) color o.Color.setAltRGB Cint(10000*Rnd) Mod 255,Cint(10000*Rnd) Mod 255,Cint(10000*Rnd) Mod 255 Loop ' let's create 10 random size random color rulers! For i=0 To 10 Set rule = New rtHRule(Cint(10000*Rnd) Mod 5*ONE_CM) Set rule.Color = New rtColor(0) rule.fitToWindow=True rule.hasGradient = True rule.Color.setAltRGB Cint(10000*Rnd) Mod 255,Cint(10000*Rnd) Mod 255,Cint(10000*Rnd) Mod 255 rule.Color.setRGB Cint(10000*Rnd) Mod 255,Cint(10000*Rnd) Mod 255,Cint(10000*Rnd) Mod 255 rule.RuleWidth=Cint(10000*Rnd) Mod 60 ctxDump.add rule Next