Activity.LoadLayout("Resultats")
Activity.Title="RESULTATS"
Dim VertPos As Int
'descsample_txt is the last textfield
VertPos= descsample_txt.Top +descsample_txt.Height -50dip
VertPos= VertPos + 5dip
HSV.Initialize(100%x)
Activity.AddView(HSV, 0dip, VertPos, 100%x, 100%y )
Try
Dim jHSV As JavaObject = HSV
jHSV.RunMethod("setOverScrollMode", Array As Object(2)) '2 = OVER_SCROLL_NEVER
Catch
'Not allowed by the OS
Log("Cannot disable the over-scroll")
End Try
pnlHeader.Initialize("")
Dim LeftPos As Int =0dip
For i = 0 To Widths.Length -1
Dim cd As ColorDrawable
cd.Initialize(Colors.RGB(255,170,0), 0dip)
cd.Initialize(Main.SGS_GREY_COLOR, 0dip)
Dim tFace As Typeface
tFace = Typeface.CreateNew(Typeface.SANS_SERIF, Typeface.STYLE_BOLD)
lblH(i).Initialize("titre")
lblH(i).Color = Colors.Transparent
lblH(i).Background = cd
lblH(i).TextColor = Colors.White
lblH(i).Typeface= tFace
lblH(i).TextSize = 18
lblH(i).Gravity = Gravity.CENTER_HORIZONTAL + Gravity.CENTER_VERTICAL
Select i
Case 0:
lblH(i).Text = "N°"
lblH(i).Tag = "numero"
Case 1:
lblH(i).Text = "Analyse"
lblH(i).Tag = "analyse"
Case 2:
lblH(i).Text = "Resultat"
lblH(i).tag = "resultat"
Case 3:
lblH(i).Text = "Type/Unité"
lblH(i).tag = "Unite"
End Select
lblH(i).Tag = i
pnlHeader.AddView(lblH(i), LeftPos + Bit.ShiftRight(DividerWidth, 1), 0, Widths(i) - DividerWidth, HeaderHeight)
LeftPos = LeftPos + Widths(i)
Next
HSV.Panel.AddView(pnlHeader, 0, HeaderHeight, nTotWidth , 50dip)
'Initializes an ULV_FixedCol and enables its fast scroller
ULV_FixedCol.Initialize(0, 0, "", "ULV_FixedCol")
ULV_FixedCol.SetStyle(ULV_FixedCol.STYLE_HOLO_LIGHT)
ULV_FixedCol.DividerHeight = 0
ULV_FixedCol.FastScroller(False)
ULV_FixedCol.AddRowLayout("VIEW_FIXED", "Fixed_RowLayoutCreator", "Fixed_RowContentFiller", 60dip, 1, Array As Int(100dip), DividerWidth , Colors.gray, True)
ULV_FixedCol.BulkAddItems(ListResults.Size, "VIEW_FIXED", 0)
Dim MenuHeader =0dip As Int
ULV.Initialize(0, 0, "", "ULV")
ULV.DividerHeight = 0
ULV.FastScroller(True)
ULV.SetStyle(ULV.STYLE_HOLO_LIGHT)
'Creates a layout for the header
ULV.AddLayout("TABLE_HEADER", "Header_LayoutCreator", "Header_ContentFiller", HeaderHeight, False)
ULV.AddRowLayout("TABLE_ROW", "Cell_RowLayoutCreator", "Cell_RowContentFiller", 60dip,4, Widths, DividerWidth, Colors.Black, True)
VertPos = VertPos + HeaderHeight + 50dip
HSV.Panel.AddView(ULV, 0dip, HeaderHeight+ pnlHeader.Height, nTotWidth , 100%y - VertPos )