Page 1 sur 1

Amélioration de look des masques Lotus Notes

MessagePublié: 23 Jan 2007 à 14:37
par JYR
Bonjour,

voici un petit truc que je ne connaissais pas.

http://jyriver.blogspot.com/2007/01/pou ... ur-de.html

En passant, c'est un blog que je n'avais jamais continué mais je vais essayer de m'y mettre.

JYR

MessagePublié: 13 Fév 2007 à 17:45
par kerozen
bien sympa cette astuce.

Moi qui suis justement en train de redessiner toutes les interfaces des bases du boulot, ce peut être bien pratique (bien que le noir par défaut passe assez bien partout..)

MessagePublié: 28 Mars 2007 à 16:28
par kerozen
@helloz

est-il possible d'afficher le code généré par ce champ $BorderColor dans un autre champ lors du changement de couleur ?

Edit:

je me répond:

il faut copier ceci dans l'événement "OnChange" du champ $BorderColor:

Sub Onchange(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.Refresh
End Sub

et dans un autre champ de type texte modifiable, lui mettre comme valeur par défaut $BorderColor.

le seul souci ici est que le code n'apparait dans ce dernier champ que lorsque je clique sur ce champ, pas lorsque j'effectue le changement de couleur.