Hi,
ich experimentiere seit ein paar Tagen mit B4A und bin schwer begeistert.
Bisher hat alles, was ich ausprobiert habe, wunderbar funktioniert. Nur mit dem Listview habe ich ein Problem, für das ich keine Lösung finde:
Ich möchte das TwoLinesLayout verwenden und ganz einfach nur schwarzen Text auf weissem Grund anzeigen.
Das klappt nicht, egal ob ich das Listview im Designer erstelle oder im Programm erzeuge. Es wird immer weisse Schrift für das Label und graue Schrift für das Secondlabel angezeigt, egal wie ich die Textfarbe der beiden Label einstelle.
Ich würde mich freuen, wenn mir jemand von Euch erklärt, was ich falsch mache.
Hier der Code, der bei mir nicht funktioniert:
Sub Globals
Dim lv As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim bmp As Bitmap
lv.Initialize("lv")
lv.Color=Colors.White
lv.ScrollingBackgroundColor=Colors.White
lv.TwoLinesLayout.Label.TextColor=Colors.Black
lv.TwoLinesLayout.SecondLabel.TextColor=Colors.Black
bmp=LoadBitmapSample (File.DirAssets,"beispiel.png",36,36)
lv.AddTwoLinesAndBitmap( "White","Letters",bmp)
lv.AddTwoLinesAndBitmap("on","White",bmp)
lv.AddTwoLinesAndBitmap("Screens","are",bmp)
lv.AddTwoLinesAndBitmap("not","easy",bmp)
lv.AddTwoLinesAndBitmap("to","read.",bmp)
activity.AddView(lv,0,0,activity.Width,activity.Height)
End Sub
ich experimentiere seit ein paar Tagen mit B4A und bin schwer begeistert.
Bisher hat alles, was ich ausprobiert habe, wunderbar funktioniert. Nur mit dem Listview habe ich ein Problem, für das ich keine Lösung finde:
Ich möchte das TwoLinesLayout verwenden und ganz einfach nur schwarzen Text auf weissem Grund anzeigen.
Das klappt nicht, egal ob ich das Listview im Designer erstelle oder im Programm erzeuge. Es wird immer weisse Schrift für das Label und graue Schrift für das Secondlabel angezeigt, egal wie ich die Textfarbe der beiden Label einstelle.
Ich würde mich freuen, wenn mir jemand von Euch erklärt, was ich falsch mache.
Hier der Code, der bei mir nicht funktioniert:
Sub Globals
Dim lv As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim bmp As Bitmap
lv.Initialize("lv")
lv.Color=Colors.White
lv.ScrollingBackgroundColor=Colors.White
lv.TwoLinesLayout.Label.TextColor=Colors.Black
lv.TwoLinesLayout.SecondLabel.TextColor=Colors.Black
bmp=LoadBitmapSample (File.DirAssets,"beispiel.png",36,36)
lv.AddTwoLinesAndBitmap( "White","Letters",bmp)
lv.AddTwoLinesAndBitmap("on","White",bmp)
lv.AddTwoLinesAndBitmap("Screens","are",bmp)
lv.AddTwoLinesAndBitmap("not","easy",bmp)
lv.AddTwoLinesAndBitmap("to","read.",bmp)
activity.AddView(lv,0,0,activity.Width,activity.Height)
End Sub