In the following code:
Sub Activity_Create(FirstTime As Boolean)
Label1.Initialize("")
Label1.Top=0dip
Label1.Left=0dip
EditText1.Initialize("")
EditText1.Top=10dip
EditText1.Left=Label1.Width
EditText1.Height=30dip
IME.Initialize("ime")
IME.AddHeightChangedEvent
Activity.LoadLayout("Tabla")
Activity.Title=Main.ProgName & " " & Main.ProgVersion
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Pulgadas", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Milimetros", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("DENOMINACION", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 380dip
StateColumn.Sortable = True
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Grains", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Gramos", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("CB", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V0", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V50", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V100", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V150", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V200", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V250", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V300", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Visor", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt50", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt100", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt150", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt200", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt250", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt300", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ0", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ50", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ100", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ150", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ200", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ250", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ300", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("DS", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Id", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Msgbox("So far alright","")
Sleep(0)
NumberColumn = B4XTable1.AddColumn("Interesting Number", B4XTable1.COLUMN_TYPE_NUMBERS)
NumberColumn.Width=1dip
B4XTable1.RowHeight=50dip
B4XTable1.MaximumRowsPerPage=10
B4XTable1.pnlHeader.Height=Activity.Height/8
Msgbox("Here does not come","")
On some mobile, not all, causes the following error:
Notificar error
java.lang.NoSuchFieldException: No field
mColorStateList in class Landroid/graphics/drawable/
GradientDrawable$GradientState; (declaration of 'andro
id.graphics.drawable.GradientDrawable$GradientState'
appears in /system/framework/framework.jar)
at java.lang.Class.getDeclaredField(Native Method)
at
anywheresoftware.b4a.objects.B4XViewWrapper.getColor(
B4XViewWrapper.java:388)
at
b4a.example3.customlistview._designercreateview(custom
listview.java:305)
at java.lang.reflect.Method.invoke(Native Method)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:196)
at
anywheresoftware.b4a.objects.CustomViewWrapper.After
DesignerScript(CustomViewWrapper.java:67)
at
anywheresoftware.b4a.keywords.LayoutBuilder.loadLayout
(LayoutBuilder.java:162)
at
anywheresoftware.b4a.objects.PanelWrapper.LoadLayout(
PanelWrapper.java:134)
at
anywheresoftware.b4a.objects.B4XViewWrapper.LoadLayo
ut(B4XViewWrapper.java:292)
at
deCazaV2.Monteria.b4xtable$ResumableSub_DesignerCre
ateView.resume(b4xtable.java:1371)
at
anywheresoftware.b4a.keywords.Common$13.run(Comm
on.java:1705)
at android.os.Handler.handleCallback(Handler.java:883)
at android.os.Handler.dispatchMessage(Handler.java:
100)
at android.os.Looper.loop(Looper.java:224)
at android.app.ActivityThread.main(ActivityThread.iava:
please could you help me?
a greeting
Sub Activity_Create(FirstTime As Boolean)
Label1.Initialize("")
Label1.Top=0dip
Label1.Left=0dip
EditText1.Initialize("")
EditText1.Top=10dip
EditText1.Left=Label1.Width
EditText1.Height=30dip
IME.Initialize("ime")
IME.AddHeightChangedEvent
Activity.LoadLayout("Tabla")
Activity.Title=Main.ProgName & " " & Main.ProgVersion
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Pulgadas", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Milimetros", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("DENOMINACION", B4XTable1.COLUMN_TYPE_TEXT)
StateColumn.Width = 380dip
StateColumn.Sortable = True
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Grains", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Gramos", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("CB", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V0", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V50", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V100", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V150", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V200", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V250", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("V300", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Visor", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt50", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt100", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt150", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt200", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt250", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Alt300", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ0", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ50", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ100", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ150", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ200", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ250", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Energ300", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("DS", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Dim StateColumn As B4XTableColumn = B4XTable1.AddColumn("Id", B4XTable1.COLUMN_TYPE_NUMBERS)
StateColumn.Width = 60dip
Msgbox("So far alright","")
Sleep(0)
NumberColumn = B4XTable1.AddColumn("Interesting Number", B4XTable1.COLUMN_TYPE_NUMBERS)
NumberColumn.Width=1dip
B4XTable1.RowHeight=50dip
B4XTable1.MaximumRowsPerPage=10
B4XTable1.pnlHeader.Height=Activity.Height/8
Msgbox("Here does not come","")
On some mobile, not all, causes the following error:
Notificar error
java.lang.NoSuchFieldException: No field
mColorStateList in class Landroid/graphics/drawable/
GradientDrawable$GradientState; (declaration of 'andro
id.graphics.drawable.GradientDrawable$GradientState'
appears in /system/framework/framework.jar)
at java.lang.Class.getDeclaredField(Native Method)
at
anywheresoftware.b4a.objects.B4XViewWrapper.getColor(
B4XViewWrapper.java:388)
at
b4a.example3.customlistview._designercreateview(custom
listview.java:305)
at java.lang.reflect.Method.invoke(Native Method)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:196)
at
anywheresoftware.b4a.objects.CustomViewWrapper.After
DesignerScript(CustomViewWrapper.java:67)
at
anywheresoftware.b4a.keywords.LayoutBuilder.loadLayout
(LayoutBuilder.java:162)
at
anywheresoftware.b4a.objects.PanelWrapper.LoadLayout(
PanelWrapper.java:134)
at
anywheresoftware.b4a.objects.B4XViewWrapper.LoadLayo
ut(B4XViewWrapper.java:292)
at
deCazaV2.Monteria.b4xtable$ResumableSub_DesignerCre
ateView.resume(b4xtable.java:1371)
at
anywheresoftware.b4a.keywords.Common$13.run(Comm
on.java:1705)
at android.os.Handler.handleCallback(Handler.java:883)
at android.os.Handler.dispatchMessage(Handler.java:
100)
at android.os.Looper.loop(Looper.java:224)
at android.app.ActivityThread.main(ActivityThread.iava:
please could you help me?
a greeting