Richtextfeld/item formatieren

[Gruenkohl]

Hallo zusammen,

ich habe aus mehreren Richtextfeldern ein Richtextitem erstellt und dann in ein RT-Feld geschrieben.
Der Text sollte eigentlich links angeordnet sein und nur durch Leerzeilen getrennt sein.
Aber es sind einzelne Zeile nach rechts eingerückt.
Ich habe es schon mit dem "alignment" und dem "LeftMargin".
Dies bringt aber nix.
Kann mir jehmand sagen, wie ich das RT-Item formatieren kann???

THX

Andreas

[Meff]

Hi Andreas,

da hast Du schlechte Karten unter R5. Du kannst zwar die Formatierung von Elementen in einem RichTextfeld bei der Erstellung anpacken, aber im Anschluss
Das einzige, was mir noch einfallen würde sind Tabs in dem Feld zu definieren.

Meff

[Gruenkohl]

Morgen Meff,

das meinte ich eigentlich! (bei der Erstellung formatieren)
Ich habe zwar keine Änderungen vorgenommen aber wenn ich die ganzen RT-Felder zusammen fasse in eins, dann sind einige Zeilen eingerückt.

Ich habe keine Ahnung wo er die Formatierungen herbekommt.

Andreas

[hOtze]

Hi!

Überprüf mal ob die zeilen die eingerückten Zeilen auch in dem Ursprungs RT Feld eingerückt sind?

Wir hatten hier schon öfters das er sich bei RT Feldern irgendwie die Formatierung aus dem vorherigen (also aus dem RT Feld aus dem kopiert wurde) beibehält.

Sprich: Is' der Text dort eingerückt, war er es bei dem neu erstellten ebenfalls!

[Meff]

Hi Andreas,

wie übernimmst Du die Werte aus den anderen RichTextFeldern ?

Dim rItem as new NotesRichTextItem(doc, "Name des Feldes")

call rItem.AppendText(Ursprungsdoc.NameDesFeldes)
call rtem.AddNewLine(1)
call rItem.AppendText(nächstesDoc.NameDesFeldes)



Oder machst Du es auf einer anderen Ebene, z.B. das Du Dir die Items aus dem anderen Dokument holst und dann item.Text in das andere Dokument schreibst ?
Schau Dir das mal im Debugger an, vielleicht hat das Ursprungsfeld irgendeine Formatierung die Du im UI nicht sehen kannst !?

Meff

[Gruenkohl]

Also ich erstelle zuerst das Feld, in dem später alles stehen soll:

Set RTItemBody = New NotesRichTextItem( Maildoc, "Body" )

und dann hänge ich die anderen Felder  wie folgt an:

Dim RTItxt As NotesRichTextItem
Call RTItemBody.AppendRTItem(RTItxt)

Und so mache ich es mit den Restlichen auch.
Zwischendrin hänge ich noch ein paar Strings mit an, (Call RTItemBody.AppendText("Normaler Text"))