Domino 9 und frühere Versionen > ND8: Entwicklung

Fusszeile per Skript setzen

<< < (3/6) > >>

eknori:
EC = Entwickler Camp

bikerboy:
 :-[

Ja zu offensichtlich.

eknori:
Ein anderer Weg als über die API ist der "Window Title" In den Footer kommt dann ein &W. Das wird dann automatisch befüllt. Und im Windows Title kannst du ja Formeln verwenden. Weiss nicht, ob es auf deine Anforderungen passt, aber wäre ein Weg.

eknori:
@Robert:
Hier mal die Routine, um den Inhalt von $Footer auszulesen:


--- Code: ---Function GetFooter (doc As NotesDocument) As String
TRY:
Dim ITEM_OBJ As String
Const FOOTER_TEXT_START = 43
ITEM_OBJ = "$Footer"
If Not (doc.HasItem(ITEM_OBJ)) Then
GetFooter = "ERROR: No Footer"
Exit function
End If

irc = NSFItemInfo _
(doc.handle, ITEM_OBJ, Len(ITEM_OBJ),_
item_blockid, idatatype, value_blockid, value_len )
If irc = 0 then
pBuff = OSLockObject _
(value_blockid.pool) + (CLng(value_blockid.block) And &H0FFFF&)

Call ODSReadMemory (pBuff+4, ODS_WORD, ODS_LENGTH, 1)

bufferlen = ODS_LENGTH - FOOTER_TEXT_START
bufferText = Space(bufferLen)

Call ODSReadMemoryStr (pbuff+2 + FOOTER_TEXT_START, _
ODS_WORD, bufferText, CLng(bufferlen))

OSUnLockObject (value_blockid.pool)

GetFooter = buffertext
Else
GetFooter = "ERROR:"
End if
EXIT_HERE:
Exit Function
CATCH:
GetFooter = "ERROR:"
Resume EXIT_HERE
End Function
--- Ende Code ---

bikerboy:
Danke !!! Schaue ich mir gleich mal an

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete