Autor Thema: Texteigenschaften im RichTextField ändern  (Gelesen 1483 mal)

Offline Freezer

  • Aktives Mitglied
  • ***
  • Beiträge: 161
  • Geschlecht: Männlich
  • Oinr isch emmr dr Arsch!
Texteigenschaften im RichTextField ändern
« am: 05.02.03 - 11:39:08 »
Hallo zusammen!
Ich würde gerne die Texteigenschaften von einzelnen Textteilen in einem RichText - Feld mit Lotus Skript ändern (also einzelne Passagen als "fett", "kursiv" und "unterstrichen" markieren).
Hat jemand eine Idee, wie sowas funktionieren könnte? Wenn ich die Schrifteigenschaften des RichText-Feldes ändere, so wird ja immer nur der gesamte Text entsprechend formatiert.

Danke,
Freezer
Client: R8.5.1 (deutsch)
Server: DOMINO 8.5.1
BS: Win2003

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:Texteigenschaften im RichTextField ändern
« Antwort #1 am: 05.02.03 - 12:28:53 »
Hi,

dass habe ich in der Notes-Hilfe gefunden:

Zitat
This example builds a rich-text item using text solicited from the user. Style attributes are set so that the text appears in 14-point Courier.
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.CreateRichTextStyle
     richStyle.NotesFont = FONT_COURIER
     richStyle.FontSize = 14
     Dim richText As New NotesRichTextItem(doc, "Body")
     Call richText.AppendStyle(richStyle)
     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(newPara)
          newPara = Inputbox _
          ("Paragraph of text for ""Body"" item")
     Wend
     Call doc.Save(True, False)
End Sub

Das funktioniert, wenn ich das richtig sehe, nur bei der Einqabe. Ein Weg für's nachträglich formatieren einzelner Textteile in Script ist mir nicht bekannt.

Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline Freezer

  • Aktives Mitglied
  • ***
  • Beiträge: 161
  • Geschlecht: Männlich
  • Oinr isch emmr dr Arsch!
Re:Texteigenschaften im RichTextField ändern
« Antwort #2 am: 06.02.03 - 12:13:12 »
Leider hilft mir dieses Beispiel in meinem Fall nicht wirklich weiter.
Trotzdem danke!!!
Hat jemand vielleicht eine andere Idee, wie ich Text, der aus der Windows-Zwischenablage kommt und in ein RichTextField eingefügt wird, teilweise formatieren (fett, kursiv, unterstrichen) kann?

Freezer
Client: R8.5.1 (deutsch)
Server: DOMINO 8.5.1
BS: Win2003

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Texteigenschaften im RichTextField ändern
« Antwort #3 am: 06.02.03 - 17:35:23 »
... ich habe nur etwas "perverse" Gedanken das über Word zu machen. In VBA hast du Zugriff auf Absätze und Formatierungen, aber wie gesagt - nicht gerade schön - könnte aber machbar sein...

ata
Grüßle Toni :)

Offline savage

  • Aktives Mitglied
  • ***
  • Beiträge: 166
  • Geschlecht: Männlich
  • Dat muss kesseln!
    • Bücker GmbH - IBM Gold Partner
Re:Texteigenschaften im RichTextField ändern
« Antwort #4 am: 28.02.03 - 13:13:43 »
Du könntest das RTF gegen ein WYSIWYG Editor austauschen. Dann kannst Du wie in Word die Texte bearbeiten und auch copy&paste funktioniert mit Formatierung. gibt es auf Java und DHTML/ActiveX. Schau mal unter www.lotusnotesdomino.de oder auf Java unter www.real-objects.de
Timo Michalik von https://bueckergmbh.de/

Offline wflamme

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 690
  • Geschlecht: Männlich
  • Irgendwie geht das schon...
    • wflamme
Re:Texteigenschaften im RichTextField ändern
« Antwort #5 am: 01.03.03 - 00:50:38 »
R6 oder unter R5 eine NotesAPI oder eine RichTextLibrary verwenden (MidasLSX/Geniisoft bzw. rtlib/Normunds Kalnberzins)

Ansonsten kannst Du natürlich den PlainText-auslesen, RTItem hard-löschen, neu anlegen und Inhalte mit dem jeweiligen RTStyle neu aufbauen.
Grüße,
Wolfgang

"I love deadlines. I love the whooshing sound they make as they pass by..."
DOUGLAS ADAMS

wflamme@mainz-online.de
http://www.sns1.de/partner/flamme/wflamme.nsf

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz