Проблема С Rich-text Полями

  • Автор темы elesha-k
  • Дата начала
Статус
Закрыто для дальнейших ответов.
E

elesha-k

#1
Есть 2 формы в одной базе, на каждой форме вставлены подформы, на подформах есть одинаковое Rich-text поле "AgendaBody". при открытии формы на Postopen отрабатывает функция заполнения поля. Но почему то отображение текста на этих формах разное, т.е. шрифт и размер отличаются...
Поля полностью одинаковые, заполняются по одной функции, но отображение разное

как можно решить проблему?

вот кусок кода
Dim rti As notesRichTextItem

If ndoc.HasItem({AgendaBody}) Then
Call ndoc.RemoveItem({AgendaBody})
End If
Set rti = New NotesRichTextItem (ndoc, {AgendaBody})

Dim rtiStyleNorm As NotesRichTextStyle

Set rtiStyleNorm = ses.createRichTextStyle

With rtiStyleNorm
.notesfont = rti.GetNotesFont("Times",True)
.fontsize = 11
.bold = False
.notescolor=COLOR_BLACK
End With
If ndPoint Is Nothing Then
Msgbox "документ Вопрос с DocID: " + RealPointID + " не взялся",, "Странная ошибка"
Else
Сall rti.AppendStyle (rtiStyleNorm)
Call rti.AppendText (strCount(setCountFromDoc(ndPoint)))
Call rti.AppendText ({. })

Call rti.AppendText (ndPoint.Title(0))
Call rti.AppendStyle (rtiStyleNorm)

далее идет еще добавление строк....

если изменяю шрифт Times на Arial например, то изменений никаких нет.
 

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#2
ну вообще-то RT поля "на лету" не отображаются.
Читай форум. Таких тем валом
 
Статус
Закрыто для дальнейших ответов.