Spanish Duda HorizontalScroll en Panel??

TheFalcon

Active Member
Licensed User
Longtime User
Buenas tengo una duda, tengo un panel con 8 botones 2 filas de 4, y lo tengo ajustado, ahora quiero ampliarlo a 16 con lo cual los botones serian muy chicos, y no se que método usar para hacerlo con scroll, es decir que vea los 8 y desplace derecha o izquierda para mostrar los otros.

Ahora los tengo en un panel y no se si desde hay se puede o debería cambiar el modo en que los muestro.

Gracias
 

josejad

Expert
Licensed User
Longtime User
Hola,

Creo que el scroll horizontal es una buena solución.
 

TheFalcon

Active Member
Licensed User
Longtime User
sabes de algún sitio en el que lo expliquen José por que busque y probé y no hay manera. Gracias
 

IdasI4A

Active Member
Licensed User
Longtime User
Puedes usar un CLV. Lo pones con orientacion Horizontal si quieres que los botones se muevan horizontalmente. Y los puedes crear con una función de este estilo:
B4X:
Private Sub CargarBotones(Cuantos As Int)
    Dim L As Int
    
    CLV.Clear
    For L=1 To Cuantos
        Dim Pn As B4XView=xui.CreatePanel("")
        Pn.SetLayoutAnimated(0,0,0,120dip,CLV.AsView.Height)
        Pn.LoadLayout("lyMiBoton")
        Dim sBtn As SwiftButton=Pn.GetView(0).Tag
        sBtn.xLBL.Text="Boton bonito " & L
        CLV.Add(Pn,CLV.Size)
    Next
End Sub

Tienes que crear un layout donde pones el botón. Te adjunto un pequeño proyecto de ejemplo.
Espero que te sirva
 

Attachments

  • PruebaBotones.zip
    11.5 KB · Views: 23

TheFalcon

Active Member
Licensed User
Longtime User
Lo voy a probar por que estaba intentándolo hacer con scroll por que los botones los tengo dentro de un panel, pero voy a probar esto a ver si me deja mas control de posicionar y mover
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…