iLogic: Browsername (Displayname) überschreiben, auf Überschreibung prüfen, Überschreibung entfernen

Basierend auf einem Kommentar bei diesem verwandten Beitrag, hier ein weiteres kleines Codebeispiel. Beschreibung in den Kommentaren im Code. Die Änderung des Displaynames kann verfolgt werden, wenn man den Code in eine Regel einfügt, auf den Modellbrowser wechselt und dann mittels den iTriggerknopfes die Regel ausführt.

'Funktion des iTriggerknpfes aktivieren
trigger = iTrigger0
'Displayname ändern
strText = "Hallo!"
ThisDoc.Document.Displayname = strText
'Mshbox, damit gewartet wird
MsgBox ("Warte auf OK!")

'Prüfen, ob Displayname überschrieben würde
If ThisDoc.Document.DisplayNameOverridden = True Then
	MsgBox ("Displayname überschrieben:" & ThisDoc.Document.Displayname)
End If

'Überschreibung Displayname zurücksetzen
ThisDoc.Document.DisplayNameOverridden = False

'Nochmals prüfen, ob der Displayname überschrieben wurde
If ThisDoc.Document.DisplayNameOverridden = True Then
	MsgBox ("Displayname überschrieben")
Else 
	MsgBox ("Displayname NICHT überschrieben")
End If