Spanish Como cambiar los colores de los botones de un B4XDialog

[Juan edwin]

Saludos
Quisiera cambiar los botones de los B4XDialog tanto en show como custom, no he podido resolverlo necesito su ayuda por favor aunque no es necesario quisiera conservar todo con el color de la aplicacion..... he copiado un pequeño ejemplo de un tema aquí en el foro pero resulta que si lo hace pero luego de ciertas cosas que cambian en el código de otra parte de otro código que no tiene nada que hacer con lo del dialog pero resulta que hay error, porque
Pienso que es el hecho de enviar un B4XView a un receptor button . segun el codigo de aqui, el siguiente codigo

cs.Initialize.Color(Colors.RGB(220,220,220)).Alignment("ALIGN_NORMAL").Append(" Lista de reproducción tiene canciones").PopAll
diálogo.Título=cs
Wait For (dialog.Show("¡Hay canciones en la lista de reproducción!"&Chr(10) _
&"¿Desea borrarlos o mantenerlos?.","Mantenerlos","Borrarlos","")) Complete (Result As Int)

ponerstateListButtonDialog(diálogo.GetButton(xui.DialogResponse_Positive))
ponerstateListButtonDialog(diálogo.GetButton(xui.DialogResponse_Negative))
                    ...

                    
Sub ponerstateListButtonDialog(v Como botón)
    ' Define dos colores de degradado para el estado Habilitado
    Dim c1 como Int=Colores.RGB(30,30,30)
    Dim c2 como Int=Colores.RGB(90,90,90)
    Dim colsEnabled(2) como entero
    colsHabilitado(0) = c1
    colsHabilitado(1) = c2
    ' Definir un GradientDrawable para el estado Habilitado
    Atenuar gdwEnabled como GradientDrawable
    gdwEnabled.Initialize("INFERIOR_SUPERIOR",colsEnabled)
    gdwEnabled.CornerRadius = 5
    ' Define dos colores de degradado para el estado presionado
    Dim colsPressed(2) como entero
    colsPressed(0) = c2
    colsPressed(1) = c1
    ' Define un GradientDrawable para el estado presionado
    Dim gdwPressed como gradiente dibujable
    gdwPressed.Initialize("INFERIOR_SUPERIOR",colsPressed)
    gdwPressed.CornerRadius = 5
    ' Definir un StateListDrawable
    Dim stdGradient como StateListDrawable
    stdGradient.Inicializar
    Estados tenues (2) como Int
    estados(0) = stdGradient.estado_habilitado
    estados(1) = -stdGradient.state_pressed
    stdGradient.addState2(estados, gdwEnabled)
    Estados tenues (1) como Int
    estados(0) = stdGradient.estado_presionado
    stdGradient.addState2(estados, gdwPressed)
    ' Establecer stdRedGradient en el fondo del botón
    v.Fondo = stdGradient
End Sub

 

[Mariano Ismael Castro]

Esto te ayudará

[B4X] Share your B4XDialog + templates theming code

Have you created a nice dialog based on B4XDialog? Post it here. If you have any question then start a new thread.

www.b4x.com