Cookbook	Area Hotspots
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	rtGraphic rtMap rtHotLink rtLabel add (rtContainer) addLink addNewLine (rtContainer) addNewLine (rTextParagraph) appendText (rtContainer) appendText (rTextParagraph) ActionFormula Add (rtCollection) Add (rTextParagraph) deleteLink getFirstElement (rtCollection) getFirstElement (rtContainer) getRichTextItem hasMoreElements Link Links Map NextElement Resource (rtGraphic) Resource (rtHotLink) Shape Text (rtHotLink) Text (rtLabel) Code fragment from sample "Area Hotspots"; see full running samples in downloadable help. ctxDump.getRichTextItem doc, "Body" dim img as rtGraphic dim map as rtMap, lnk as rtHotlink set img = ctxDump.getFirstElement(RT_OBJ_GRAPHIC) set Map = img.Map if Not Map is Nothing then dim en as rtEnumeration, obj set en = Map.Links do while en.hasMoreElements set lnk = en.NextElement ctxDump.addNewLine 1 ctxDump.appendText "Name: " &lnk.IDName &", formula: " &lnk.ActionFormula Loop set lnk = Map.Link ("LINK1") if lnk is Nothing then Print "link 1 is nothing" Else if lnk.Resource is Nothing then Print "Link 1: resource is nothing" Else Print "Link 1: " &lnk.Resource.Text End if End if set lnk = Map.Link ("LINK2") ctxDump.addNewLine 1 ctxDump.appendText "Removing: " &lnk.IDName Call Map.deleteLink (lnk.IDName) ' add one link set lnk = new rtHotlink(0) lnk.IDName = "Stranger" ctxDump.addNewLine 1 ctxDump.appendText "Adding link: " &lnk.IDName Map.addLink lnk ' we can manipulate object also after adding -- any time before writing to item lnk.ActionFormula ={@prompt([OK];"Hotspot Name";"} + lnk.IDName + {");""} dim shape(3) shape(0) = 20:shape(1)=80:shape(2)=180:shape(3)=200 lnk.Shape (shape) = AREA_SHAPE_RECT ' add URL link set lnk = new rtHotlink(0) set lnk.Resource = new rtLabel("http://www.ibm.com") lnk.IDName = "Url Link to " &lnk.Resource.Text ctxDump.addNewLine 1 ctxDump.appendText "Adding link: " &lnk.IDName Map.addLink lnk shape(0) = 280:shape(1)=80:shape(2)=380:shape(3)=400 lnk.Shape (shape) = AREA_SHAPE_CIRCLE End if