Domino 9 und frühere Versionen > ND8: Entwicklung

Richtextfield Tabelle formatieren bold, Rahmen ausblenden...

(1/3) > >>

padkey:
Hallo zusammen,

habe mir in einem richtextfield eine Tabelle erstellt, welche dann per Email versendet werden soll.

--- Code: ---Dim rtnavBody As NotesRichTextNavigator
Dim rtt As NotesRichTextTable
Dim rtrange As NotesRichTextRange
Set rtnavBody = Memobody.CreateNavigator

If rtnavBody.FindFirstElement(RTELEM_TYPE_TABLE) Then
Set rtt = rtnavBody.GetElement
Call rtt.AddRow()
End If

Dim styles(1 To 5) As NotesRichTextParagraphStyle

Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle


Call Memobody.AppendTable(1,5)
Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,2)
Call Memobody.BeginInsert(rtnavBody)
Call Memobody.AppendStyle(richStyle)
richStyle.Bold = True
Call Memobody.AppendText("Datum")
richStyle.Bold = False
Call Memobody.EndInsert


--- Ende Code ---

Jedoch habe ich Formatierungsprobleme:
Laut meinem Tutorial (http://www.ibm.com/developerworks/lotus/library/ls-ND6_LSrichtext/index.html) sollte das Feld Datum "fett/bold" sein, ist es aber leider nicht.

Kann mir jemand sagen, waruM?

weiß jemand wo ich eine auflistung von Formatierungsmöglichkeiten finde? Bspw. Ausblenden vom Rahmen?

Vielen Dank

Tode:
so geht das nicht... in dem Moment, wo Du den Style anwendest, wird die Information in den Body geschrieben. Das muss also so aussehen:

--- Code: ---Call Memobody.AppendTable(1,5)
Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,2)
Call Memobody.BeginInsert(rtnavBody)
richStyle.Bold = True
Call Memobody.AppendStyle(richStyle)
Call Memobody.AppendText("Datum")
richStyle.Bold = False
Call Memobody.AppendStyle(richStyle)
Call Memobody.EndInsert
--- Ende Code ---

m3:
Wie Tode schon ausführte, erst Style definieren, dann "Appenden", nicht umgekehrt.

Peter Klett:
Zur Übersichtlichkeit würde ich mir verschiedene richstyles definieren (z.B. einen für Überschriften, einen für normalen Text, einen für Zahlen usw.) und die dann zuordnen (append), anstatt nur eines zu nehmen und dann im laufenden Script ständig die Eigenschaften des Styles zu ändern. Spätestens, wenn Du mehrere Eigenschaften steuerst (Farbe, Größe, Fett, Schriftart usw.) blickt dann "keine Sau" mehr durch.

koehlerbv:
Das ist ein Weg, Peter. Eleganter finde ich aber noch eine Routine, die das mit definierten Parameter für mich übernimmt:

Call SetStyle (rti, BOLD#FONT=TIMES#SIZE=14#COLOUR=DEEPBLUE)

Das liest sich noch besser  ;)

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite