Juan edwin
Member
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
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
B4X:
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
