Dal suggerimento di @LucaMs ho scritto questo piccolo frammento, ma non da i risultati desiderati, qui sotto la risposta voluta da me visto che sono 10 
1. Non avrai altri dèi all'infuori di me.
2. Non nominare invano il nome di Dio.
3. Ricordati di santificare le feste.
4. Onora il padre e la madre.
5. Non uccidere.
6. Non commettere atti impuri.
7. Non rubare.
8. Non dire falsa testimonianza.
9. Non desiderare la donna d'altri.
10. Non desiderare i beni d'altri.
qualcuno di voi mi da una sbirciata al codice, magari non vedo l'errore o mi da dei consigli.
1. Non avrai altri dèi all'infuori di me.
2. Non nominare invano il nome di Dio.
3. Ricordati di santificare le feste.
4. Onora il padre e la madre.
5. Non uccidere.
6. Non commettere atti impuri.
7. Non rubare.
8. Non dire falsa testimonianza.
9. Non desiderare la donna d'altri.
10. Non desiderare i beni d'altri.
code:
Private Sub CreateItem(Width As Int, m As Map) As Panel
Dim p As B4XView = xui.CreatePanel("")
Dim height As Int = 280dip
If GetDeviceLayoutValues.ApproximateScreenSize < 4.5 Then height = 310dip
p.SetLayoutAnimated(0, 0, 0, Width, height)
p.LoadLayout("frame1")
Label1.Text = m.Get("ms_gpt_01_04").As(String).ToUpperCase
Label2.Text = m.Get("ms_gpt_01_05").As(String).ToLowerCase
Dim su As StringUtils
Dim valueH As Int = su.MeasureMultilineTextHeight(Label2, Label2.Text)
If valueH > Label2.Height Then
Log("String h: " & valueH & "- label h: " & Label2.Height & " = " & (valueH-Label2.Height))
valueH = valueH-Label2.Height
For Each v As B4XView In p.GetAllViewsRecursive
If v Is Panel Then
If v.As(Panel).Tag ="pane1" Then
Log("old panel h: " & v.As(Panel).Height)
v.As(Panel).Height = (v.As(Panel).Height + valueH)
Log("new panel H: " & v.As(Panel).Height)
End If
End If
Next
End If
AS_TabMenuAdvanced1.AddTab("Love",Null,Null)
AS_TabMenuAdvanced1.AddTab("Copy",Null,Null)
AS_TabMenuAdvanced1.AddTab("Print",Null,Null)
AS_TabMenuAdvanced1.GetTab(2).xTab.Enabled = False
AS_TabMenuAdvanced1.AddTab("Speect",Null,Null)
AS_TabMenuAdvanced1.Refresh
AS_TabMenuAdvanced1.Tag = m
Return p
End Subqualcuno di voi mi da una sbirciata al codice, magari non vedo l'errore o mi da dei consigli.
Last edited:
]
