Spanish (SOLUCIONADO) Ajuste de pantalla

J M Movilla Cuadrado

Member
Licensed User
He leído montones de post relacionados con este tema; finalmente he puesto un panel en el que he incluido un ScrollView... Me va muy bien en la mayoría de móviles; pero en un modelo de Samsung, que es algo más estrecho... ¡fatal!!!

Pongo esto :
B4X:
Y=2dip
Panel1.Width=100%x
...

    For i = 0 To nMaxLin-1
        Dim iv As Label
        iv.Initialize("EditoDato")

        ScrollView1.Panel.Width=100%x
        ScrollView1.Panel.AddView(iv,15dip,Y,ScrollView1.Width-30dip,10dip)
        iv.Gravity = Bit .Or( Gravity .CENTER_VERTICAL, Gravity .LEFT)
        ...
        SetLabelTextSize(iv, iv.Text,24,14)
        iv.Height = nu.MeasureMultilineTextHeight(iv, cDato)     ' ponemos la altura real
        Y=Y+iv.Height+2dip
    Next
    ScrollView1.Panel.Height=y + 15dip

En esos modelos en que falla, tanto el ancho de la Label como la altura del ScrollView se me quedan cortos. Y no pueden visualizarse los últimos caracteres de la label ni las últimas líneas del scrollview.

Agradezco vuestra, como siempre, efectiva ayuda.
 
Last edited:

Descartex

Well-Known Member
Licensed User
Longtime User
Muy buenas.
Solo como idea... Y si los haces a % de pantalla??? Quedan muy feos???

Un saludo.
 

J M Movilla Cuadrado

Member
Licensed User
Muchas gracias, amigo Descartex: lo he solucionado sustituyendo la línea

ScrollView1.Panel.AddView(iv,15dip,Y,ScrollView1.Width-30dip,10dip)

por

ScrollView1.Panel.AddView(iv,15dip,Y,ScrollView1.Panel.Width-30dip,10dip)
 

Descartex

Well-Known Member
Licensed User
Longtime User
Cierto, los haces en funcion del ancho total del panel y, si la pantalla es mas pequeña, que haga scroll.
Un saludo.
 
Top