Controles sin salto de línea

Acceder Darse de alta He olvidado la contraseña

Este debate tiene 5 respuestas, 3 mensajes y ha sido actualizado por última vez el 4 años, 1 mes por Xevi. This post has been viewed 690 times

Mostrando 5 respuestas a los debates

Autor

Entradas

14-01-2021 a las 12:01 #1682

Participante

Estoy intentando poner unos botones, seguidos uno detrás de otro, sin que me haga el salto de línea, ocupando cada uno las 12 columnas del oParent

Dado este código...

      WITH OBJECT WPanel():New(:WO)
         WITH OBJECT WLabel():New(:WO)
            :nFontSize  := 5
            :lBold      := .T.
            :cAlign     := xc_Left
            :cText      := "TestSMSs"
            :Create()
         END WITH

         WITH OBJECT WButton():New(:WO)
            :cText      := "Boton1"
            :cPosition := "left"
            :oStyle:cWidth := 110
            :Create()
         END WITH //WButton

         WITH OBJECT WButton():New(:WO)
            :cText      := "Boton2"
            :cPosition := "left"
            :oStyle:cWidth := 110
            :Create()
         END WITH //WButton

         WITH OBJECT WButton():New(:WO)
            :cText      := "Boton3"
            :cPosition := "left"
            :oStyle:cWidth := 110
            :Create()
         END WITH //WButton

         :Create()
      END WITH

WITH OBJECT WPanel():New(:WO)

WITH OBJECT WLabel():New(:WO)

:nFontSize := 5

:lBold := .T.

:cAlign := xc_Left

:cText := "TestSMSs"

:Create()

END WITH

WITH OBJECT WButton():New(:WO)

:cText := "Boton1"

:cPosition := "left"

:oStyle:cWidth := 110

:Create()

END WITH //WButton

WITH OBJECT WButton():New(:WO)

:cText := "Boton2"

:cPosition := "left"

:oStyle:cWidth := 110

:Create()

END WITH //WButton

WITH OBJECT WButton():New(:WO)

:cText := "Boton3"

:cPosition := "left"

:oStyle:cWidth := 110

:Create()

END WITH //WButton

:Create()

END WITH

Obtengo esta página

El caso es que cada vez que añado un control (boton, label...) por defecto me añade/inserta un <div> lo cual produce un salto de línea, ocupando éste las 12 columnas.
Yo intento hacer unos botones de ancho establecido y que uno se ponga seguidamente del anterior, sin hacer caso al responsive.

Y lo que busco... Algo así .

Efecto deseado

Un Saludo,

Xevi

14-01-2021 a las 12:08 #1686
Alfredo Sanz
Superadministrador
Hola Xevi,

No tienes que utilizar :oStyle:cWidth sino :aWidth

revisa https://nefele.dev/wiki/propiedades/awidth
- Esta respuesta fue modificada 4 años, 1 mes por Alfredo Sanz.

14-01-2021 a las 13:36 #1688

Xevi

Participante

Gracias, pero con aWidth lo que hace es responder al "responsive" y me "aumenta" el tamaño a lo largo, cuando expando/reduzco el ancho de la ventana.

Lo que busco es que sin caso al responsive, poner los elementos/controles uno seguido del anterior.

Revisando, he visto que con :lContainer := .F. consigo lo que necesito, en este caso.

      WITH OBJECT WPanel():New(:WO)
         WITH OBJECT WLabel():New(:WO)
            :nFontSize  := 5
            :lBold      := .T.
            :cAlign     := xc_Left
            :cText      := "TestSMSs"
            :Create()
         END WITH

         WITH OBJECT WButton():New(:WO)
            :cText      := "LleidaNet/Saldo"
            :cOnClick   := "SMSsSaldoAjax"
            :cAjaxBevel := "nflcargo"
            :aParams := { { "lleidanet_descom", "lleidanet" } }
            :cPosition := "left"
            :oStyle:cWidth := 120
            :oStyle:cMargin_left := -4
            :oStyle:cMargin_bottom := 10
            :Create()
         END WITH //WButton

         WITH OBJECT WButton():New(:WO)
            :cText      := "Descom/Saldo"
            :cOnClick   := "SMSsSaldoAjax"
            :cAjaxBevel := "nflcargo"
            :aParams := { { "lleidanet_descom", "descom" } }
            :oStyle:cWidth := 120
            :oStyle:cMargin_bottom := 10
            :lContainer := .F.
            :Create()
         END WITH //WButton

         WITH OBJECT WButton():New(:WO)
            :cText      := "Descom/SMS"
            :cOnClick   := "SMSsSaldoAjax"
            :cAjaxBevel := "nflcargo"
            :aParams := { { "lleidanet_descom", "descomSMS" } }
            :oStyle:cWidth := 120
            :oStyle:cMargin_left := 10
            :oStyle:cMargin_bottom := 10
            :lContainer := .F.
            :Create()
         END WITH //WButton

         :Create()
      END WITH

WITH OBJECT WPanel():New(:WO)

WITH OBJECT WLabel():New(:WO)

:nFontSize := 5

:lBold := .T.

:cAlign := xc_Left

:cText := "TestSMSs"

:Create()

END WITH

WITH OBJECT WButton():New(:WO)

:cText := "LleidaNet/Saldo"

:cOnClick := "SMSsSaldoAjax"

:cAjaxBevel := "nflcargo"

:aParams := { { "lleidanet_descom", "lleidanet" } }

:cPosition := "left"

:oStyle:cWidth := 120

:oStyle:cMargin_left := -4

:oStyle:cMargin_bottom := 10

:Create()

END WITH //WButton

WITH OBJECT WButton():New(:WO)

:cText := "Descom/Saldo"

:cOnClick := "SMSsSaldoAjax"

:cAjaxBevel := "nflcargo"

:aParams := { { "lleidanet_descom", "descom" } }

:oStyle:cWidth := 120

:oStyle:cMargin_bottom := 10

:lContainer := .F.

:Create()

END WITH //WButton

WITH OBJECT WButton():New(:WO)

:cText := "Descom/SMS"

:cOnClick := "SMSsSaldoAjax"

:cAjaxBevel := "nflcargo"

:aParams := { { "lleidanet_descom", "descomSMS" } }

:oStyle:cWidth := 120

:oStyle:cMargin_left := 10

:oStyle:cMargin_bottom := 10

:lContainer := .F.

:Create()

END WITH //WButton

:Create()

END WITH

Así, pues, un boton, salto de línea y un par de botones uno al ladico del otro.

Gracias.

Un Saludo,

Xevi.

14-01-2021 a las 17:11 #1689

Xevi
Participante

Bien, esto en cuanto a botones, pero... ¿si quiero poner un Label y seguidamente un Botón, o una imagen ???

Label e Image no disponen de la propiedad :lContainer

Alguna forma???

Un Saludo,

Xevi.
15-01-2021 a las 19:10 #1690
Pedro Amaro
Superadministrador
Si asignas aWidth a {} dejara de utilizar las columnas de materialize.
- Esta respuesta fue modificada 4 años, 1 mes por Pedro Amaro.
15-01-2021 a las 20:55 #1692

Xevi
Participante

Perfecto!!!

Autor

Entradas

Mostrando 5 respuestas a los debates

Debes estar registrado para responder a este debate.