Das Notes Forum

Lotus Notes / Domino Sonstiges => Tipps und Tricks => Thema gestartet von: TMC am 02.11.03 - 15:51:40

Titel: $PaperColor - Hintergrundfarbe der Maske per Formel/Script ändern
Beitrag von: TMC am 02.11.03 - 15:51:40
Hi,

hatte ich mal im Web gefunden:
das Feld $PaperColor beeinflusst die Hintergrundfarbe der Maske.
Nett, z.B. wenn man Docs archiviert, kann man dieses Feld setzen.
z.B. 2 = rot.

Sollte als Zahl (nicht Text) übergeben werden.

Was ich noch nicht weiß:
Welche Zahl einsetzen z.B. für den Hintergrund Hellgrau (RGB 225-225-225)....

TMC
Titel: Re:$PaperColor - Hintergrundfarbe der Maske per Formel/Script ändern
Beitrag von: TMC am 02.11.03 - 15:56:34
ach ja, hier hab ich noch nen Artikel dazu gefunden:
http://searchdomino.techtarget.com/tip/1,289483,sid4_gci901860,00.html (http://searchdomino.techtarget.com/tip/1,289483,sid4_gci901860,00.html)

Demnach wäre aber rot "3".  ???
Unter R5011 ist es bei mir 2.

TMC
Titel: Re:$PaperColor - Hintergrundfarbe der Maske per Formel/Script ändern
Beitrag von: meichhorner am 03.11.03 - 09:08:20
Hy,

rot = 2  ;)

Code
@Member(ColorName;
"black":"white":"red":"green":"blue":"magenta":"yellow":"cyan":"dark red":
"dark green":"dark blue":"dark magenta":"dark yellow":"dark cyan":"gray":
"light gray":"white":"vanilla":"parchment":"ivory":"pale green":"sea mist":
"ice blue":"powder blue":"arctic blue":"lilac mist":"purple wash":"violet frost":
"seashell":"rose pearl":"pale cherry":"white":"blush":"sand":"light yellow":
"honeydew":"celery":"pale aqua":"pale blue":"crystal blue":"light cornflower":
"pale lavender":"grape fizz":"pale plum":"pale pink":"pale rose":"rose quartz":
"5% gray":"red sand":"buff":"lemon":"pale lemon lime":"mint green":"pastel green":
"pastel blue":"sapphire":"cornflower":"light lavender":"pale purple":"light orchid":"pink orchid":
"apple blossom":"pink coral":"10% gray":"light salmon":"light peach":"yellow":"avocado":
"leaf green":"light aqua":"light turquoise":"light cerulean":"azure":"lavender":"light purple":
"dusty violet":"pink":"pastel pink":"pastel red":"15% gray":"salmon":"peach":"mustard":
"lemon lime":"neon green":"aqua":"turquoise":"cerulean":"wedgewood":"heather":
"purple haze":"orchid":"flamingo":"cherry pink":"red coral":"20% gray":"dark salmon":"dark peach":
"gold":"yellow green":"light green":"caribbean":"dark pastel blue":"dark cerulean":"manganese blue":"lilac":"purple":"light red violet":"light magenta":"rose":"carnation pink":"25% gray":"watermelon":
"tangerine":"orange":"chartreuse":"green":"teal":"dark turquoise":"light slate blue":
"medium blue":"dark lilac":"royal purple":"fuchsia":"confetti pink":"pale burgundy":"strawberry":
"30% gray":"rouge":"burnt orange":"dark orange":"light olive":"kelly green":"sea green":"aztec blue":
"dusty blue":"blueberry":"violet":"deep purple":"red violet":"hot pink":"dark rose":"poppy red":
"35% gray":"crimson":"red":"light brown":"olive":"dark green":"dark teal":"spruce":
"slate blue":"navy blue":"blue violet":"amethyst":"dark red violet":"magenta":"light burgundy":
"cherry red":"40% gray":"dark crimson":"dark red":"hazelnut":"dark olive":"emerald":
"malachite":"dark spruce":"steel blue":"blue":"iris":"grape":"plum":"dark magenta":
"burgundy":"cranberry":"50% gray":"mahogany":"brick":"dark brown":"deep olive":"dark emerald":
"evergreen":"baltic blue":"blue denim":"cobalt blue":"dark iris":"midnight":"dark plum":"plum red":"dark burgundy":
"scarlet":"60% gray":"chestnut":"terra cotta":"umber":"amazon":"peacock green":"pine":"seal blue":"dark slate blue":
"royal blue":"lapis":"dark grape":"aubergine":"dark plum red":"raspberry":"deep scarlet":"70% gray":"red gray":
"tan":"khaki":"putty":"bamboo green":"green gray":"baltic gray":"blue gray":"rain cloud":"lilac gray":
"light purple gray":"light mauve":"light plum gray":"light burgundy gray":"rose gray":"80% gray":"dark red gray":"dark tan":"safari":"olive gray":"jade":"dark green gray":"spruce gray":"dark blue gray":
"atlantic gray":"dark lilac gray":"purple gray":"mauve":"plum gray":"burgundy gray":"dark rose gray":"black") - 1 

Cu
Martin
Titel: Re:$PaperColor - Hintergrundfarbe der Maske per Formel/Script ändern
Beitrag von: ata am 03.11.03 - 20:09:34
... ich habe mit den Möglichkeiten etwas gespielt.
Ich habe kein feld $PaperColor in der Maske verankert, sondern das feld $PaperColor über einen Agenten oder eine Aktion gesetzt.
Dabei bin ich auf folgende Besonderheiten gestossen:

... wenn das Feld $PaperColor existiert lässt es sich nicht überschreiben. Dabei wird auch ein Feld $PaperColorEx angelegt. Die Felder müssen zunächst gelöscht werden. Erst dann kann man die Farbe wechseln, indem man das Feld $PaperColor neu belegt.

... mit Formeln kann man nicht im geöffneten Dokument OnTheFly die Farbe wechseln, da hier das Löschen der Felder nicht greift, bzw. das Dokument nicht erneut geöffnet werden kann.

... OnTheFly im geöffneten Dokument funktioniert nur mit LotusScriipt. $PaperColor und $PaperColorEx müssen zunächst gelöscht werden, dem Feld $PaperColor eine neue Farbe zugewiesen werden. Nach einem ReOpen (schließen und öffnen des aktuellen Dokumentes über das Backend) ist die Maskenfarbe dann gewechselt.

ata
Titel: Re:$PaperColor - Hintergrundfarbe der Maske per Formel/Script ändern
Beitrag von: TMC am 15.11.03 - 20:19:25
@Ata:
Wenn ich das Feld in der Maske verankert habe, geht es einwandfrei.

Ein Reopen ist erforderlich, das hab ich auch festgestellt. Was m.E. aber nicht tragisch ist, wenn man z.B. ein Dok archiviert. Bei einem Optionsfeld zur Darstellung in der Maske müsste man da dann halt ein wenig spielen....

@Martin:
Schön und gut, Deine Liste  :)
Verstehe aber immer noch nicht, warum searchdomino.techtarget.com/tip/ (http://searchdomino.techtarget.com/tip/1,289483,sid4_gci901860,00.html) meint Rot = 3, ich aber 2 nehmen muss.

TMC
Titel: Re:$PaperColor - Hintergrundfarbe der Maske per Formel/Script ändern
Beitrag von: TMC am 06.05.04 - 13:54:36
Unten angehängt ist eine umgesetzte Lösung.

Dabei steht folgendes im Postsave:

Code
Sub Postsave(Source As Notesuidocument)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   
   Set doc = Source.Document   
   
   While (doc.HasItem("$PaperColorEx"))
      Set item = doc.GetFirstItem("$PaperColorEx")
      Call item.Remove
   Wend
   
   While (doc.HasItem("$PaperColor"))
      Set item = doc.GetFirstItem("$PaperColor")
      Call item.Remove
   Wend
   
   Dim iPaperColor As Integer
   iPaperColor = Cint ( doc.ColorName(0))
   
   Dim itemPaper As New NotesItem( doc, "$PaperColor", iPaperColor )
   Call doc.save(True,True,True)
End Sub