Private Sub SetTextViewLinkAttributes(view As TextView, Foreground As Int, LineColor As Int) Dim no As NativeObject = view Dim m As Map = CreateMap("NSColor": no.ColorToUIColor(Foreground), "NSUnderlineColor": no.ColorToUIColor(LineColor)) no.SetField("linkTextAttributes"...
www.b4x.com