iOS Question Image on SegmentedControl

[ciginfo]

HI,
Is there any way to put a little icon into a SegmentedControl item?
Thank you

 

[Erel]

Yes:

Private Sub Application_Start (Nav As NavigationController)   
   NavControl = Nav
   Page1.Initialize("Page1")
   Page1.RootPanel.LoadLayout("1")
   NavControl.ShowPage(Page1)
   SetImageItems(SegmentedControl1, Array (LoadBitmap(File.DirAssets, "image1.png"), _
     LoadBitmap(File.DirAssets, "image2.png")))
End Sub
Sub SegmentedControl1_IndexChanged (Index As Int)
   Log(Index)
End Sub

Sub SetImageItems(sc As SegmentedControl, Images As List)
   Dim no As NativeObject = sc
   no.RunMethod("removeAllSegments", Null)
   Dim index As Int = 0
   For Each bmp As Bitmap In Images
     no.RunMethod("insertSegmentWithImage:atIndex:animated:", _
       Array(bmp, index, False))
     index = index + 1
   Next
End Sub

If you want to keep the images colors: https://www.b4x.com/android/forum/threads/barbutton-image-color.52365/#post-328103

 

[ciginfo]

Like this to keep the images colors? But it doesn't work.

SetImageItems(segmentedcontrol1, Array KeepOriginalColors(LoadBitmap(File.DirAssets, "image1.png"), _
     LoadBitmap(File.DirAssets, "image2.png"),LoadBitmap(File.DirAssets, "image3.png")))

 

[Erel]

It works here:

Private Sub Application_Start (Nav As NavigationController)   
   NavControl = Nav
   Page1.Initialize("Page1")
   Page1.RootPanel.LoadLayout("1")
   NavControl.ShowPage(Page1)
   SetImageItems(SegmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley.png"))))
End Sub

Sub KeepOriginalColors(bmp As Bitmap) As Bitmap
  Dim no As NativeObject = bmp
  Return no.RunMethod("imageWithRenderingMode:", Array(1))
End Sub

 

[ciginfo]

Yes, but if I have a SegmentedControl with 2 items or more, compiling error. It seems '(' expected but I don't see where.
Here my code for 2 items.

SetImageItems(SegmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley.png"),LoadBitmap(File.DirAssets, "smiley2.png"))))

 

[Brian Robinson]

KeepOriginalColors is expecting a bitmap not an array of bitmaps.

You need to call KeepOriginalColors again for the second bitmap.

Cheers
Brian

 

[ciginfo]

I don't understand, these 2 codes do not work
1

SetImageItems(segmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley1.png"))), _
     Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley2.png"))) )

2

SetImageItems(segmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley1.png"))), _
     (KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley2.png"))) )

 

[Erel]

If you can please create a small project and upload it.

 

[Brian Robinson]

The second piece of code is very close. The brackets just aren't in the right place. Actually one set of brackets too many.

The code is expecting SetImageItems(segmentedControl1, Array(bitmap,bitmap))

SetImageItems(segmentedControl1, Array( _
            KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley1.png"))), _ '
             (KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley2.png"))) )

If you copy this code into your app and put the cursor on the ending brackets it will highlight the staring bracket and you will see where the problem is.

Cheers

 

[ciginfo]

Here small project joined. Parsing error
I want a segmented control with 3 items and an a different image on every item.
Images are attached because they no enter into the zip

 

[Erel]

There is a problem with one of the brackets and you used a dash instead of an underscore.

 

[ciginfo]

Ok for dash instead of underscore but I don't see problem with bbrackets in my code below

SetImageItems(SegmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "landes.png"))), _ '
             (KeepOriginalColors(LoadBitmap(File.DirAssets, "autour_moi.png"))), _ '
             (KeepOriginalColors(LoadBitmap(File.DirAssets, "pays_basque.png"))))

 

[Brian Robinson]

The third closing bracket on the top line is closing your array.

Put the cursor on the last closing bracket of the first line. You will see it is the closing bracket for the Array. You want an Array of bitmaps whereas you are currently passing SetImageItems(segmentedControl,Array,Bitmap,Bitmap)

Note you do not need the brackets around the KeepOriginalColors call.

cheers

 

[ciginfo]

Thank you for all the time you spend with my problem. But can you correct my code in th small project posted above, so that it works. Despite your explanations I can not.
Thank you very much.

 

[klaus]

Attached your modified project.

 

[ciginfo]

Thank you, now I understand. My poor knowledge of English did not help me to understand. With an example that is much simpler. Thank you again.