Buen día muchachos,
mi problema es que tengo un listview y cuando cambio el color a una Singleline no hay problema, pero cuando intento hacer lo mismo con TwoLines no pasa nada, no cambia el color, intento hacer una aplicacion en fondo blanco y necesito cambiar el color de los Labels a negro pero no lo hace. alguien le a pasado?
Ya intente con esto:
vnoticias.TwoLinesLayout.Label.TextColor = Colors.Blue
lvnoticias.TwoLinesLayout.SecondLabel.TextColor=Colors.Blue
Dim label1 As Label
label1= lvnoticias.TwoLinesLayout.Label
label1.TextSize = 20
label1.TextColor = Colors.Blue
lv.Initialize("lv")
Activity.AddView(lv,0,0,100%X,50%Y)
lv.AddTwoLines("AAAA","BBBB")
lv.AddTwoLines("CCCC","DDDD")
Dim lb1 As Label = lv.TwoLinesLayout.Label
Dim lb2 As Label = lv.TwoLinesLayout.SecondLabel
lb1.TextColor=Colors.Green
lb2.TextColor=Colors.Red
lo unico que se me ocurre es que hagas un lvnoticias.invalidate o Activity.invalidate
lv.Initialize("lv")
Activity.AddView(lv,0,0,100%X,50%Y)
lv.AddTwoLines("AAAA","BBBB")
lv.AddTwoLines("CCCC","DDDD")
Dim lb1 As Label = lv.TwoLinesLayout.Label
Dim lb2 As Label = lv.TwoLinesLayout.SecondLabel
lb1.TextColor=Colors.Green
lb2.TextColor=Colors.Red
lo unico que se me ocurre es que hagas un lvnoticias.invalidate o Activity.invalidate
Hola Jordi tienes razón, pero esto me esta pasando con AddTwoLinesAndBitmap, no se si me falta un parametro o estoy haciendo algo mal. siento no haber sido mas especifico.
Cambia el "TwolinesLayout" por un "TwoLinesAndBitmap" (la verdad, el nombre no es intuitivo, deberia ser "TwoLinesAndBitmapLayout")
B4X:
lv.AddTwoLinesAndBitmap("AAAA","BBBB",LoadBitmap(File.DirAssets,"redstar.png"))
lv.AddTwoLinesandbitmap("CCCC","DDDD",LoadBitmap(File.DirAssets,"redstar.png"))
Dim lb1 As Label = lv.TwoLinesAndBitmap.Label
Dim lb2 As Label = lv.TwoLinesAndBitmap.SecondLabel
Cambia el "TwolinesLayout" por un "TwoLinesAndBitmap" (la verdad, el nombre no es intuitivo, deberia ser "TwoLinesAndBitmapLayout")
B4X:
lv.AddTwoLinesAndBitmap("AAAA","BBBB",LoadBitmap(File.DirAssets,"redstar.png"))
lv.AddTwoLinesandbitmap("CCCC","DDDD",LoadBitmap(File.DirAssets,"redstar.png"))
Dim lb1 As Label = lv.TwoLinesAndBitmap.Label
Dim lb2 As Label = lv.TwoLinesAndBitmap.SecondLabel