Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: iceball am 15.04.10 - 08:25:25
-
Hallo Zusammen!
Ich bin gerade daran die Outlines automatisch via Script zu erstellen. Jedoch bin ich dabei auf ein Problem gestoßen. Und zwar legt er mir bei den übergeordneten Einträgen unter den Text ein Ordner-Symbol! Ich hab weder in der Hilfe noch im Web eine Lösung dafür gefunden.
Vielleicht kann mir hier jemand weiterhelfen.
Hier noch mein Code:
Option Public
Option Declare
Sub Initialize()
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim oe1 As NotesOutlineEntry
Dim oe2 As NotesOutlineEntry
Dim oe3 As NotesOutlineEntry
Dim oe4 As NotesOutlineEntry
Dim entry As NotesOutlineEntry
Dim customer As Variant
Set db = session.CurrentDatabase
'Anlegen der Gliederungseinträge aus den Dokumenten
customer = workspace.Prompt (PROMPT_OKCANCELEDIT, "new customer...", "Please provide the new customer name.")
If Not IsEmpty (customer) Then
'legt die outline Einträge an
Set outline = db.GetOutline("OutNavigation")
'Legt einen NavTitel an
Set entry = outline.Createentry(customer)
'Legt die einzelnen NavViews an
Set oe1 = outline.CreateEntry("XXentry1", entry, True, True)
Set oe2 = outline.CreateEntry("entry2", entry, True, True)
Set oe3 = outline.CreateEntry("entry3", entry, True, True)
Set oe4 = outline.CreateEntry("entry4", entry, True, True)
' Weist dem NavEintrag eine View hinzu
Call oe1.SetAction("@SetTargetFrame( 'NotesView' );@Command([OpenView];'ViewByTitleDE' )")
' Setzt die Hideformel des NavEintrages
oe1.HideFormula = "@IsNotMember('[Developer]';@UserRoles)"
'Aktiviert das Verstecken
oe1.UseHideFormula = True
'Speichert das Outline
Call outline.Save()
'Ende Anlegen Gliederungseinträge
End If
End Sub
Vielen Dank!
-
Was ist wenn du bei "Test" den ImagesText auf "" setzt? Vielleicht liegt das nur übereinander, weil die Gestaltung der Gliederung den Text entsprechend einrücken soll?
-
Hab es gerade probiert:
entry.Imagestext = ""
Jedoch ohne Erfolg! :'(
Hab mir schon überelegt, ob ich manuell einen pseudo Eintrag mache und diesen kopiere?
Aber wenn man dann bei Erweiterungen die Outlines neu anlegt (erst löschen), dann wäre dieser Eintrag auch wieder weg!
-
Zum Ansatz mit der Vorlage:
Eine unsichtbare Outline, die Dummys für die verschiedenen Ebene enthält, die du dann bei Bedarf rauskopierst und als Vorlage verwendest.
Zum überlagern des Bildes:
Die Outline ist ja sicher in eine Maske oder Seite eingebettet. Da kannst du die Einrückung der Ebenen vorgeben, somit sollte der Text zumindest neben dem Ordner stehen können.