Index: ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb =================================================================== diff -u -r1697 -r1698 --- ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb (.../DataGridViewUserControl.vb) (revision 1697) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb (.../DataGridViewUserControl.vb) (revision 1698) @@ -243,14 +243,15 @@ Return End If - + 'Set status image based on timestamps. If activity.StartBeforeTimestamp < DateTime.Now Then cell.Figure = ConfigsLoader.ActivityBeforeStatusImage ElseIf activity.StartAlmostTimeStamp < DateTime.Now Then cell.Figure = ConfigsLoader.ActivityAlmostStatusImage ElseIf activity.StartTimeStamp < DateTime.Now Then - 'todo conDueOutStart + cell.Figure = ConfigsLoader.ActivityLateStatusImage Else + 'Default. cell.Figure = Nothing End If End Sub Index: ActiviteitenOpvolging/ActiviteitenOpvolging/configs/ConfigsLoader.vb =================================================================== diff -u -r1695 -r1698 --- ActiviteitenOpvolging/ActiviteitenOpvolging/configs/ConfigsLoader.vb (.../ConfigsLoader.vb) (revision 1695) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/configs/ConfigsLoader.vb (.../ConfigsLoader.vb) (revision 1698) @@ -252,6 +252,7 @@ Public ReadOnly Property AgColorTo As Color Public ReadOnly Property ActivityBeforeStatusImage As Image Public ReadOnly Property ActivityAlmostStatusImage As Image + Public ReadOnly Property ActivityLateStatusImage As Image Private ReadOnly Property _colorsActivities As New Dictionary(Of ActivityStateEnum, Color) Public ReadOnly Property ColorsActivities As Dictionary(Of ActivityStateEnum, Color) Get @@ -310,6 +311,10 @@ If File.Exists(value) Then _ActivityAlmostStatusImage = Image.FromFile(value) End If + ElseIf identifier.Equals("ImageLate") Then + If File.Exists(value) Then + _ActivityLateStatusImage = Image.FromFile(value) + End If ElseIf identifier.Contains("AgColorActivityReadOnly") Then AddColorActivity(identifier, value, True) ElseIf identifier.Contains("AgColorActivity") Then @@ -414,6 +419,11 @@ Throw New ConfigurationException("The activity almost status image is not correctly defined.") End If + 'Late activity status image. + If _ActivityLateStatusImage is Nothing Then + Throw New ConfigurationException("The activity late status image is not correctly defined.") + End If + 'Colors activities. If _colorsActivities.Keys.Count <> [Enum].GetValues(GetType(ActivityStateEnum)).Length Then 'Amount of enum values and entries in the dictionary differ.