Раскрасить записи в Richtextitem

Тема в разделе "Lotus - Программирование", создана пользователем Dragon108, 28 янв 2011.

  1. Dragon108

    Dragon108 Well-Known Member

    Регистрация:
    19 янв 2010
    Сообщения:
    264
    Симпатии:
    0
    Есть поле RichTextItem в сабформе. В него необходимо вставлять текст и подкрашивать его, точнее даже не его, а всю строчку, в которой он написан.
    Пытаюсь вставлять в RichTextItem таблицы и подкрашивать их. Не хочет (часть из хелпа)

    Код (LotusScript):
     Dim session As New NotesSession
    ...
    Dim rti As NotesRichTextItem
    Set rti = doc.GetFirstItem("Body")
    rti.AppendTable "1", "1"
    Dim rtnav As NotesRichTextNavigator
    Set rtnav = rti.CreateNavigator
    Dim rtt As NotesRichTextTable
    Set rtt = rtnav.GetElement
    rtt.Style = TABLESTYLE_TOP
    Dim colorObject As NotesColorObject
    Set colorObject = session.CreateColorObject
    colorObject.NotesColor = COLOR_BLUE
    Call rtt.SetColor(colorObject)
    Call doc.Save(True, True)
    Просто вставляет таблицы, но не подкрашивает их. В чем может быть косяк?

    P.S. Еще пробовал устанавливать PassThruHTML = True к стилю, но тоже не хочет. При:

    Код (LotusScript):
    richStyle.PassThruHTML = True
    Call richText.AppendStyle(richStyle)
    Call richText.AppendText("<B>Hello</B>")
    выдает в результате <B>Hello</B>
     
  2. nvyush

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
Загрузка...

Поделиться этой страницей