Spanish (SOLUCIONADO) Ajuste de pantalla

[J M Movilla Cuadrado]

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 :

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.

 

[Descartex]

Muy buenas.
Solo como idea... Y si los haces a % de pantalla??? Quedan muy feos???

Un saludo.

 

[J M Movilla Cuadrado]

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]

Cierto, los haces en funcion del ancho total del panel y, si la pantalla es mas pequeña, que haga scroll.
Un saludo.