Private Sub FillCronoTimer(Timerlist As List, IsListChanged As Boolean)
Dim racetime1 As RaceProperty
Dim pnl As Panel
ClvIndex = ClvIndex + 1 'global int variable
Dim MyIndex As Int = ClvIndex
scvCronoTimer.Panel.Height = 0
scvCronoTimer.Panel.RemoveAllViews
ShowProgressBar(True, 0)
For i = 0 To Timerlist.Size -1
racetime1 = Timerlist.get(i)
...
AddCronoTimer(racetime1,False)
If Timerlist.Size > 10 And (i Mod 4) = 0 Then
ShowProgressBar(True, i / Timerlist.Size)
Sleep(0)
End If
If MyIndex <> ClvIndex Then Return
Next
ColorAllPanel
For i = 0 To scvCronoTimer.Panel.NumberOfViews - 1
pnl = scvCronoTimer.Panel.GetView(i)
Racetime = pnl.Tag
If Racetime.Visible Then
Dim tbtn As fsToggleButton = pnl.GetView(13).Tag
tbtn.Checked = Racetime.Checked
End If
Next
'Keine Änderung bis jetzt
Starter.IsListCronoTimerChanged = IsListChanged
ShowProgressBar(False, 0)
End Sub
#Region ProgressBar
Private Sub ShowProgressBar(Visible As Boolean, Value As Double)
pnlProgressBar.BringToFront
pnlProgressBar.Visible = Visible
lblProgress.Width = Value * (ProgressBar.Width - 2dip)
End Sub
Private Sub pnlProgressBar_Click
'Platzhalter
End Sub
#End Region