Hi ho!
kleines Designproblem.
ich importiere einen String Website in ein richtext Feld
und er bringt mir einen klickbaren Hyperlink (dank Dominoforum :))
Nun muss der Hyperlink aber in Verdana erscheinen.
Das Feld im Form ist auf Verdana gestellt, aber per Import
setzt er die Schrift auf StandardSansSerif
was muss ich noch einbauen, damit ich hier Verdana bekomme
THX snorkie
------------------------------Quelltext-----------------------
If Datatype(GetDoc.WebSite) = 8 Then
If WebSite$ <> "" Then
If Strcompare(GetDoc.WebSite,WebSite$,1) <> 0 Then
aktlog$ = aktlog$ & " *** [WebSite] " & GetDoc.WebSite & " überschrieben mit " & WebSite$
Call GetDoc.RemoveItem("WebSite")
Dim rtitem As New NotesRichTextItem(GetDoc,"WebSite")
Call rtitem.AppendText(WebSite$)
End If
End If
Else
If WebSite$ <> "" Then
If Strcompare(GetDoc.WebSite(0),WebSite$,1) <> 0 Then
aktlog$ = aktlog$ & " *** [WebSite] " & GetDoc.WebSite(0) & " überschrieben mit " & WebSite$
Call GetDoc.RemoveItem("WebSite")
Dim rt_item As New NotesRichTextItem(GetDoc,"WebSite")
Call rt_item.AppendText(WebSite$)
End If
End If
End If
------------------------------Quelltext-----------------------