fixed UI issue with 1 task and no configured steps

Author: jochenwezel

CompuMaster.TaskManagement.UI.WinForms/CompuMaster.TaskManagement.UI.WinForms.vbproj

@@ -1,8 +1,8 @@
 <Project Sdk="Microsoft.NET.Sdk">
 
   <PropertyGroup>
-    <Version>2024.11.12.102</Version>
-    <Copyright>2023-2024 CompuMaster GmbH</Copyright>
+    <Version>2026.01.26.0</Version>
+    <Copyright>2023-2026 CompuMaster GmbH</Copyright>
     <Title>CompuMaster.TaskManagement.UI.WinForms - MIT license edition</Title>
     <Company>CompuMaster GmbH</Company>
     <Authors>Jochen Wezel</Authors>

CompuMaster.TaskManagement.UIDemoApp/DummyTaskBundles.vb

@@ -2,6 +2,16 @@
 
 Public NotInheritable Class DummyTaskBundles
 
+    ''' <summary>
+    ''' Dummy Task Bundle with exception in first steps and rollback
+    ''' </summary>
+    ''' <returns></returns>
+    Public Shared Function DummyTaskBundleWith1TaskButWithoutAnySteps() As ProgressingTaskBundle
+        Dim Result As New ProgressingTaskBundle("Dummy Task Bundle with 1 task and no steps")
+        Dim Task1 As ProgressingTaskItem = Result.CreateAndAddNewTask("Dummy Task 1")
+        Return Result
+    End Function
+
     ''' <summary>
     ''' Dummy Task Bundle with exception in first steps and rollback
     ''' </summary>

CompuMaster.TaskManagement.UIDemoApp/MainForm.vb

@@ -44,6 +44,8 @@ Public Class MainForm
                    Dim f As MultiTaskProgessForm
 
                    'Run tasks which doesn't use result data
+                   f = New MultiTaskProgessForm(DummyTaskBundles.DummyTaskBundleWith1TaskButWithoutAnySteps)
+                   f.Show()
                    f = New MultiTaskProgessForm(DummyTaskBundles.DummyTaskBundleFailingWithRollback)
                    f.Show()
                    f = New MultiTaskProgessForm(DummyTaskBundles.DummyTaskBundleFailingWithRollbackFailingWithThrownException)

CompuMaster.TaskManagement/CompuMaster.TaskManagement.vbproj

@@ -1,7 +1,7 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
-    <Version>2024.11.12.102</Version>
-    <Copyright>2023-2024 CompuMaster GmbH</Copyright>
+    <Version>2026.01.26.0</Version>
+    <Copyright>2023-2026 CompuMaster GmbH</Copyright>
     <RootNamespace>CompuMaster.TaskManagement</RootNamespace>
     <TargetFrameworks>netstandard2.0;net6.0;net48</TargetFrameworks>
     <Title>CompuMaster.TaskManagement - MIT license edition</Title>

CompuMaster.TaskManagement/ProgressingTaskItem.vb

@@ -202,7 +202,7 @@ Public Class ProgressingTaskItem
     ''' <returns></returns>
     Public ReadOnly Property RunningStep As ProgressingTaskStepBase
         Get
-            If RunningTotalStepIndex.HasValue Then
+            If RunningTotalStepIndex.HasValue AndAlso RunningTotalStepIndex >= 0 Then
                 Return TotalStepItem(RunningTotalStepIndex.Value)
             Else
                 Return Nothing
@@ -405,7 +405,7 @@ Public Class ProgressingTaskItem
     ''' <returns></returns>
     Public ReadOnly Property EstimatedTimeOfArrival() As TimeSpan?
         Get
-            If Me.RunningTotalStepIndex.HasValue = False Then
+            If Me.RunningTotalStepIndex.HasValue = False OrElse Me.RunningTotalStepIndex < 0 OrElse Me.TotalStepsCount = 0 Then
                 'Task has not started yet -> return estimated time to run
                 If Me.Status = ProgressingTaskStep.ProgressingTaskStepStatus.NotStarted Then
                     Return Me.EstimatedTimeToRun