For o = 0 To driverlist.Size-1
Dim driver As RaceDriver = driverlist.Get(o)
'0 Pos
'1 Fahrer
'2 Team
'3 Grid
'4 Stopps
'5 BestLap
'6 Sektor1
'7 Sektor2
'8 PKT
Dim lblPos, lblPlusMinus, lblFahrer, lblTeam, lblGrid, lblStops, lblBestLap, lblSektor1, lblSektor2, lblPKT As Label
lblPos.Initialize("")
lblPos.Text = driver.pos
lblPos.Font = fx.DefaultFont(12)
lblPos.TextColor = fx.Colors.Black
Dim verbesserung As Int = 0
Dim gridpos As Int = driver.pos
If o=gridpos Then
verbesserung = 0
else if o > gridpos Then
verbesserung = gridpos-o
else if o < gridpos Then
verbesserung = gridpos-o
End If
lblPlusMinus.Initialize("")
lblPlusMinus.Font = fx.CreateFontAwesome(12)
If driver.pos < driver.Grid Then
lblPlusMinus.TextColor = fx.Colors.Green
'lblPlusMinus.Style = $"-fx-background-image: url(${File.GetUri(File.DirAssets, "up.png")});"$
Else If driver.pos > driver.Grid Then
lblPlusMinus.TextColor = fx.Colors.Red
'lblPlusMinus.Style = $" -fx-background-image: url(${File.GetUri(File.DirAssets, "down.png")});"$
End If
If verbesserung > 0 Then
lblPlusMinus.Text = "+"&verbesserung
Else
lblPlusMinus.Text = verbesserung
End If
Dim color As String
If o Mod 2 = 0 Then color = "palegreen" Else color = "skyblue"
lblPos.Style = "-fx-background-color: " & color & ";"
lblFahrer.Initialize("")
lblFahrer.Text = driver.Driver
lblFahrer.Font = fx.DefaultFont(12)
lblFahrer.TextColor = fx.Colors.Blue
lblTeam.Initialize("")
lblTeam.Text = driver.Team
lblTeam.Font = fx.DefaultFont(12)
lblTeam.TextColor = fx.Colors.Green
lblGrid.Initialize("")
lblGrid.Text = driver.Grid
lblGrid.Font = fx.DefaultFont(12)
lblGrid.TextColor = fx.Colors.Black
lblStops.Initialize("")
lblStops.Text = driver.stopps
lblStops.Font = fx.DefaultFont(12)
lblStops.TextColor = fx.Colors.Black
lblBestLap.Initialize("")
lblBestLap.Text = driver.BestLap
lblBestLap.Font = fx.DefaultFont(12)
lblBestLap.TextColor = fx.Colors.Magenta
lblSektor1.Initialize("")
lblSektor1.Text = driver.Sector1Time
lblSektor1.Font = fx.DefaultFont(12)
lblSektor1.TextColor = fx.Colors.Yellow
lblSektor2.Initialize("")
lblSektor2.Text = driver.Sector2Time
lblSektor2.Font = fx.DefaultFont(12)
lblSektor2.TextColor = fx.Colors.Black
lblPKT.Initialize("")
lblPKT.Text = driver.Punkte
lblPKT.Font = fx.DefaultFont(12)
lblPKT.TextColor = fx.Colors.Black
rd.GetTable.Items.Set(o,Array As Object(WrapLabel(lblPos, "CENTER"), WrapLabel(lblPlusMinus, "CENTER"), WrapLabel(lblFahrer, "CENTER_LEFT"), WrapLabel(lblTeam, "CENTER_LEFT"), WrapLabel(lblGrid, "CENTER_LEFT"), WrapLabel(lblStops, "CENTER_LEFT"), WrapLabel(lblBestLap, "CENTER_LEFT"), WrapLabel(lblSektor1, "CENTER_LEFT"), WrapLabel(lblSektor2, "CENTER_LEFT"), WrapLabel(lblPKT, "CENTER_LEFT")))
'rd.GetTable.Items.Set(o,Array As Object(WrapLabel(lblPos, "CENTER"), WrapLabel(lblFahrer, "CENTER LEFT"), WrapLabel(lblTeam, "CENTER LEFT"), WrapLabel(lblGrid, "CENTER LEFT"), WrapLabel(lblStops, "CENTER LEFT"), WrapLabel(lblBestLap, "CENTER LEFT"), WrapLabel(lblSektor1, "CENTER LEFT"), WrapLabel(lblSektor2, "CENTER LEFT"), WrapLabel(lblPKT, "CENTER LEFT")))
'rd.GetTable.Items.Set(i,driver)
Next
