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.
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…