Autor Thema: RichText und Tabellen  (Gelesen 2050 mal)

Offline bikerboy

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.155
  • Geschlecht: Männlich
RichText und Tabellen
« am: 24.06.09 - 15:38:39 »
AHHHHHHHH  ich könnte gerade ins Essen brechen.....


Ich versuche hier gerade per selbst geschriebener Klasse Steuertexte im im RTFeld durch eine Tabelle zu ersetzen.

Hab das die Klasse dazu Etappenweise erstellt. ICh habe ein Funktion mit der Ich Tabellen erstelle und eine Funktion die Steuertexte sucht den Cursor dort hinsetzt und dann die Funktion zum erstellen der Tabelle aufruft.

Wie geht ihr bei sowas vor ?  Was sind so die Fettnäpchen in die man treten kann ?

Robert Kreutzer

Anwendungsentwicklung

"Jeder Idiot kann was kompliziertes bauen, es Bedarf eines Genie für etwas einfaches"

Offline bikerboy

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.155
  • Geschlecht: Männlich
Re: RichText und Tabellen
« Antwort #1 am: 24.06.09 - 15:46:08 »
Hier ein bisschen Code....

rtNavigator gehört zur Klasse und ist in beiden Funktionen verfügbar


Public Function createTable(_
   docInput As NotesUiDocument,_
   FieldName As String,_
   Typ As String,_
   Rows As Integer,_
   Colums As Integer)As NotesRichTextTable

....


   Call Me.rtItem.AppendTable(intRows,intColumns,,2.540 * TWIPS,rtpsStyle)
   
   If Me.rtNavigator Is Nothing Then
      Set Me.rtNavigator = Me.rtItem.Createnavigator
   End If
   
   Me.rtNavigator.GetLastElement(RTELEM_TYPE_TABLE)
   
   Set createTable = Me.rtNavigator.GetElement
      
End Function   ' createTable


Public Function Refresh(docTarget As NotesUIDocument,_
   strFieldName As String,_
   dbProduct As NotesDatabase)
      

...

If Me.rtNavigator.FindFirstString(strTag, RT_FIND_CASEINSENSITIVE) Then
   ' Position ist auf das Steuertag gesetzt
   ' Setzt eine Tabelle ein
   Call Me.rtNavigator.SetPosition(Me.createTable(docTarget,FLDRTITEM,docTarget.Document.GetItemValue("Art")(0), 0, 0))
   ' Füllen der Tabelle
   ' Focus in die erste Zelle setzen
   Me.rtNavigator.FindNextElement(RTELEM_TYPE_TABLECELL)
   Call Me.rtItem.BeginInsert(rtNavigator)
   ' Inhalt einfügen
   Call Me.rtItem.AppendText("Hipp Hipp Hurra")
   ' End der "Eingabe"
   Call Me.rtItem.EndInsert()
   Call Me.rtItem.Update()
End If

...

Call Me.rtItem.Compact()
   
End Function
Robert Kreutzer

Anwendungsentwicklung

"Jeder Idiot kann was kompliziertes bauen, es Bedarf eines Genie für etwas einfaches"

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz