Tplanner don't start at desired time

VCL TMS VCL UI Pack
1
Hello:

I try this code with for displaystart at 08:00:00:
  Agenda= Tplanner
   wndprincipal.configuracion.HORA_INICIO_AGENDA  = '08:00:00'
   wndprincipal.configuracion.HORA_FIN_AGENDA) = '21:00:00'
   wndprincipal.configuracion.unidad_tiempo = 15


      agenda.ActiveDisplay:=true;
      with agenda.Display do begin
         DisplayUnit := wndprincipal.configuracion.unidad_tiempo;
         RowsPerHour := 60 div DisplayUnit;

         DisplayStart :=round(HourOf(wndprincipal.configuracion.HORA_INICIO_AGENDA  *               RowsPerhour));

         DisplayEnd :=round(HourOf(wndprincipal.configuracion.HORA_FIN_AGENDA)) * RowsPerhour;
         ActiveStart := round((HourOf(wndprincipal.configuracion.HORA_INICIO_AGENDA)-8) * RowsPerHour);
         ActiveEnd :=round((HourOf(wndprincipal.configuracion.HORA_fin_AGENDA)-8 ) * RowsPerHour+1);
         colornonactive:=clRed;
         colorActive:=clMoneyGreen;
      end;
     agenda.Mode.Date := date;
     agenda.GridTopRow:=(HourOf(time)-7)* RowsPerHour;


but  agenda displaystart at 02:00:00


Thank's

Alfonso
2

When I do the following on a default Planner, I get the Planner to start at 8:00


begin
  planner1.Display.DisplayUnit := 15;
  planner1.Display.DisplayStart := 4 * 8;
end;

Are these effectively the values that are being set in code for a Planner with Planner.Mode.PlannerType = plDay?