Domino 9 und frühere Versionen > ND8: Entwicklung

Richtextfield Tabelle formatieren bold, Rahmen ausblenden...

<< < (2/3) > >>

Tode:
da fehlen aber Anführungszeichen, oder hast Du alle möglichen Variationen als Konstanten definiert? ;)

koehlerbv:
Sicher Konstanten (in der Lib) - sonst kann das ja übel werden. Sonst schreibt mir da noch jemand "[ move]" rein  ;D

Bernhard

Peter Klett:
Ich will mich ja nicht streiten, aber eleganter finde ich das nicht.

Wenn ich dann zentral (oder per Konfiguration) das Aussehen von bestimmten definierbaren Elementen (z.B. Überschriften usw.) ändern will, brauche ich bei den unterschiedlichen Styles nur an einer Stelle zu drehen, und nicht mitten im Script und immer wieder das gleiche. Ausser man definiert die Übergabeparameter in Variablen.

Call SetStyle (rti, ueberschrift)
Call SetStyle (rti, normalerText)

Allerdings muss der Übergabeparameter jedesmal geparst werden, und da wir sonst doch so pingelig mit jeder Millisekunde sind ...

padkey:
EDIT: Funktioniert mittlerweile!!!!!  :) :) :) :) :)

Okay ich blick jetzt ja (fast) schon nicht mehr durch und ich will nur fette Überschriften ::) dafür denke ich kann man es noch einfach so in den Code klatschen, sonst würde ich natürlich auf euere Vorschläge gerne zurückkommen...

Ich habe hier mal den ganzen Code reingestellt + die Ausgabe, da ich es auch mit Call Memobody.AppendStyle(richStyle) nach dem definieren leider nicht fett anzeigt bekomme...

Wie gesagt, es soll einfach nur eine einface Tabelle sein. Vorher war dies mit Tabstops gelöst, jedoch verschiebt sich das alles, da die Länge des Themas immer unterschiedlich lang ist.


--- Code: ---Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle

'Put body into richtext field
Set MemoBody = memo.CreateRichTextItem( "Body" )

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 richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle

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

Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,3)
Call Memobody.BeginInsert(rtnavBody)
richStyle.Bold = True
Call Memobody.AppendText("Thema")
richStyle.Bold = False
Call Memobody.AppendStyle(richStyle)
Call Memobody.EndInsert

Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,4)
Call Memobody.BeginInsert(rtnavBody)
richStyle.Bold = True
Call Memobody.AppendText("Sektion")
richStyle.Bold = False
Call Memobody.AppendStyle(richStyle)
Call Memobody.EndInsert

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

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

Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,6)
Call Memobody.BeginInsert(rtnavBody)
Call MemoBody.AppendDocLink(newDoc,"","")
Call Memobody.EndInsert

Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,7)
Call Memobody.BeginInsert(rtnavBody)
Call Memobody.AppendText(newDocDatum)
Call Memobody.EndInsert

Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,8)
Call Memobody.BeginInsert(rtnavBody)
Call Memobody.AppendText(newDocThema)
Call Memobody.EndInsert

Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,9)
Call Memobody.BeginInsert(rtnavBody)
Call Memobody.AppendText(newDocSektion)
Call Memobody.EndInsert

Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,10)
Call Memobody.BeginInsert(rtnavBody)
Call Memobody.AppendText(newDocSprache)
Call Memobody.AppendStyle(richStyle)
Call Memobody.EndInsert

--- Ende Code ---

[Hier die aktuelle Ausgabe:
[URL]
Vielen Dank nochmals für die netten Anregungen zur übersichtlichen Darstellung...

padkey:
naja neues problem:

"Illegal column width - check Left and Richt margins on line 83"


--- Code: ---Const COLUMN_COUNT = 5
Dim tableColStyles(1 To COLUMN_COUNT)  As NotesRichTextParagraphStyle
Dim i As Integer
For i = 1 To COLUMN_COUNT Step 1
Set tableColStyles(i) = session.CreateRichTextParagraphStyle ' Create the rt paragraph style for this column
tableColStyles(i).Alignment = ALIGN_CENTER
tableColStyles(i).FirstLineLeftMargin = 0 ' Set left margin for the first line of each cell in column
tableColStyles(i).LeftMargin = 0
Next

Call Memobody.AppendTable( 2, COLUMN_COUNT,,,tableColStyles)
[code]
Call Memobody.AppendTable( 2, COLUMN_COUNT,,,tableColStyles) ist Line 83

weiß jemand was ich gegen den Fehler machen kann?
--- Ende Code ---
[/code]

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete