iOS Question Change segment control text color

tufanv said:

I dont think it is possible to add image to segmented control and remove borders. You can implement your own segmented control with 2 panels standing next to each other.

Click to expand...

Erel said:

You can use FontAwesome to add icons to the text:

B4X:

Private Sub Application_Start (Nav As NavigationController)
   NavControl = Nav
   Page1.Initialize("Page1")
   Page1.RootPanel.LoadLayout("1")
   NavControl.ShowPage(Page1)
   SetSegmentedControlFont(SegmentedControl1, Font.CreateFontAwesome(16))
   SegmentedControl1.SetItems(Array("Apple " & Chr(0xF179), "Google " & Chr(0xF1A0)))
End Sub

Sub SetSegmentedControlFont(seg As SegmentedControl, fnt As Font)
   Dim no As NativeObject = seg
   Dim dict As NativeObject
   dict = dict.Initialize("B4IAttributedString").RunMethod("createAttributes::", Array(fnt, dict.ColorToUIColor(Colors.Black)))
   no.RunMethod("setTitleTextAttributes:forState:", Array(dict, 0))
End Sub

Click to expand...

Erel said:

You can use FontAwesome to add icons to the text:

B4X:

Private Sub Application_Start (Nav As NavigationController)
   NavControl = Nav
   Page1.Initialize("Page1")
   Page1.RootPanel.LoadLayout("1")
   NavControl.ShowPage(Page1)
   SetSegmentedControlFont(SegmentedControl1, Font.CreateFontAwesome(16))
   SegmentedControl1.SetItems(Array("Apple " & Chr(0xF179), "Google " & Chr(0xF1A0)))
End Sub

Sub SetSegmentedControlFont(seg As SegmentedControl, fnt As Font)
   Dim no As NativeObject = seg
   Dim dict As NativeObject
   dict = dict.Initialize("B4IAttributedString").RunMethod("createAttributes::", Array(fnt, dict.ColorToUIColor(Colors.Black)))
   no.RunMethod("setTitleTextAttributes:forState:", Array(dict, 0))
End Sub

Click to expand...

Erel said:

https://www.b4x.com/android/forum/threads/b4x-fontawesome-material-icons-fonts.72908/#content

Click to expand...