Italian Spinner - trucco

[pwme]

E' anni che programmo, ma devo dire che Basic4PCC è davvero potente. Nello sviluppo della mia app (worldshoppinglist) ho scoperto come personalizzare l'aspetto delle voci nello "spinner" ricorrendo alla libreria RichString (non si può fare tramite le sue proprietà ).

Eccovi un esempio:

Dim Spinner_List_Value() As List
Dim Spinner_ListID As Int

For i = 0 To cursor1.RowCount - 1

cursor1.Position = i

' Set ID
Spinner_List_ID(0).add(cursor1.GetString2(0))

' Set String to view

Dim rs As RichString

rs.Initialize(cursor1.GetString2(1))
rs.Style(Typeface.STYLE_ITALIC,0, rs.Length)
Spinner_List_value(0).Add(rs)
​

Next

e poi:

Dim S As Spinner
S.Initialize("spinner")
MyEditView.Panel.AddView(......)
S.AddAll(Spinner_List_Value(Spinner_ListID))

Ciao

William