cheveguerra/Durakelo_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo_Reparto.git synced 2026-04-17 19:37:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/KeymonSoft/Durakelo_Reparto

Browse Source 
# Conflicts:
#	Durakelo_reparto.b4a
#	Durakelo_reparto.b4a.meta
#	Starter.bas
This commit is contained in:
cvaldes1201
2023-11-06 20:19:17 -06:00
parent 3004841676 6489696bf3
commit d94b8f2e77
6 changed files with 37 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
colonia.bas
View File

@@ -68,11 +68,13 @@ skmt.Initialize(ruta,"kmt.db", True)
Dim label1 As Label
label1 = ListView1.TwoLinesLayout.Label
label1.TextSize = 22
label1.TextColor = Colors.White
' label1.TextColor = Colors.White
label1.TextColor = Colors.Black
Dim label2 As Label
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 22
label2.TextColor = Colors.White
' label2.TextColor = Colors.White
label2.TextColor = Colors.Black
ListView1.AddTwoLines(c.GetString("CAT_CL_RUTA"),c.GetString("cuantos"))
Next
End If
@@ -139,11 +141,11 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
Dim label1 As Label
label1 = ListView1.TwoLinesLayout.Label
label1.TextSize = 22
label1.TextColor = Colors.White
label1.TextColor = Colors.Black
Dim label2 As Label
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 22
label2.TextColor = Colors.White
label2.TextColor = Colors.Black
ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE: "& c2.GetString("CAT_CL_CALLE"))
Next
End If
@@ -193,11 +195,11 @@ Sub BUSCA_TextChanged (Old As String, New As String)
Dim label1 As Label
label1 = ListView1.TwoLinesLayout.Label
label1.TextSize = 22
label1.TextColor = Colors.White
label1.TextColor = Colors.Black
Dim label2 As Label
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 22
label2.TextColor = Colors.White
label2.TextColor = Colors.Black
ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE: "& c2.GetString("CAT_CL_CALLE"))
Next
End If