rtLib — Notes Rich Text Management Library Documentation of rtLib — Notes Rich Text Management Library Download rtLib — Notes Rich Text Management Library FAQ of rtLib — Notes Rich Text Management Library Purchase rtLib — Notes Rich Text Management Library Feedback about rtLib — Notes Rich Text Management Library

Cookbook

Caption

Start search Mail feedback Back to Description


rTextRange rtGraphic

add (rtContainer) Add (rtCollection) Add (rTextParagraph) Bold Caption CaptionPosition FirstLineLeftMargin Font FontSize getRichTextItem LeftMargin Paragraph Style

Code fragment from sample "Caption"; see full running samples in downloadable help.
ctxDump.getRichTextItem doc, "Body"

if ses.platform = "Macintosh" then
path = strLeft(ndb.FilePath,":") + ":"' default place(?) where it stores things without path (exported to in export sample)
Else
path = Environ("TEMP")
if path<>"" then path = path + "\"' it's a W32 client
End if

Dim
r As rTextRange
' if you've run export sample image should be there
Dim ins As New rtGraphic(path &"flagEN.gif")

ins.Caption = "This is England with caption"
Set ins.Style = New rtStyle(9)
Set ins.Style.Font = New rtFontStyle(0)
Set ins.Style.Paragraph = New rtParagraphStyle(0)
ins.Style.Paragraph.LeftMargin = DEFAULT_LEFT_MARGIN
ins.Style.Paragraph.FirstLineLeftMargin = DEFAULT_FIRST_LINE_LEFT_MARGIN
ins.Style.Font.Bold = True
ins.Style.Font.FontSize = 18
ins.CaptionPosition = CAPTION_POSITION_BELOW_CENTER ' CAPTION_POSITION_MIDDLE_CENTER.
ctxDump.add ins