Only first row is painted with ShowCurrent Color in Mode.PlannerType = plDay and GetCurrentTime is assigned. If GetCurrentTime is not assigned all rows are painted correct regarding ShowCurrent.
Suggestion: TimeIndicator is using time from GetCurrentTime if assigned.