|
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
|
|