Amélioration de look des masques Lotus Notes

[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

[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..)

[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.