Paebdb
asked on
4.5: Font problem in RTFs
Following constellation on a 4.5 client:
-we have 5 richtext field in a table, each in a different column. All of them are computed and helv 8
-those fields are filled through the method getitemvalue from notesdocument class. It gets data from different fields of different sizes
- the richtext fields are defined as notesrichtextitems and data is append through the appendtext and addnewline methods from notesrichtextitem class.
Now this data is always appended as helv 10, even that the fields are defined as helv 8.
Anyone has an idea what we can do to show it in the correct fontsize ?
-we have 5 richtext field in a table, each in a different column. All of them are computed and helv 8
-those fields are filled through the method getitemvalue from notesdocument class. It gets data from different fields of different sizes
- the richtext fields are defined as notesrichtextitems and data is append through the appendtext and addnewline methods from notesrichtextitem class.
Now this data is always appended as helv 10, even that the fields are defined as helv 8.
Anyone has an idea what we can do to show it in the correct fontsize ?
Hello friends,
rich test style does not work with Notes 4.5. This feature was introduced in notes 4.6.
So u will g\have to live with it, or upgrade to 4.6 or above.
rich test style does not work with Notes 4.5. This feature was introduced in notes 4.6.
So u will g\have to live with it, or upgrade to 4.6 or above.
ASKER
I know that richtextstyle does not work for 4.5.
Upgrading is not an option, we have several thousands of installations which are surely not upgraded for this reason.
I wonder from where this helv 10 comes. Is it the standard setting ?
Upgrading is not an option, we have several thousands of installations which are surely not upgraded for this reason.
I wonder from where this helv 10 comes. Is it the standard setting ?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Gus, finally I can give you some points too :)
Thanx, my programmer just told me it worked perfectly !
How is live ? Did you persuade the british lady by now that germans are not that bad ? Hey and Bayern became champion this weekend !
Thanx, my programmer just told me it worked perfectly !
How is live ? Did you persuade the british lady by now that germans are not that bad ? Hey and Bayern became champion this weekend !
Hi Bernd,
Thanx for the pts:))
Ummm life is fine, although I ditched the German babe, Im now very attached to a new Leb girl, I think its about time to hang out with someone of my own skin! lol
It was amazing how Bayern clinched that title, I personally was very shocked, it was unbelievable...u know even Beckenbaur was too, he was in Singapore and his wife told him on the mobile, the guy couldnt believe it too.
Anyway, how r u? How is DB? Still in Spain?
Take care,
-Gus
Thanx for the pts:))
Ummm life is fine, although I ditched the German babe, Im now very attached to a new Leb girl, I think its about time to hang out with someone of my own skin! lol
It was amazing how Bayern clinched that title, I personally was very shocked, it was unbelievable...u know even Beckenbaur was too, he was in Singapore and his wife told him on the mobile, the guy couldnt believe it too.
Anyway, how r u? How is DB? Still in Spain?
Take care,
-Gus
ASKER
Yup, last 5 days of work, then 1 month beach, from 1.July on I will work in Germany again.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue _
("From", session.UserName)
Call doc.AppendItemValue _
("Subject", Inputbox("Subject?"))
Call doc.AppendItemValue _
("Categories", Inputbox("Category?"))
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyl
richStyle.NotesFont = FONT_COURIER
richStyle.FontSize = 14
Dim richText As New NotesRichTextItem(doc, "Body")
Call richText.AppendStyle(richS
newPara = Inputbox _
("Paragraph of text for ""Body"" item")
firstPara = True
While newPara <> ""
If firstPara Then
firstPara = False
Else
Call richText.AddNewLine(2)
End If
Call richText.AppendText(newPar
newPara = Inputbox _
("Paragraph of text for ""Body"" item")
Wend
Call doc.Save(True, False)
End Sub