TDBPlanner.Sidebar.DateTimeFormat Not work

VCL TMS VCL UI Pack
1

I'm trying to change the time format to 12h, I use the SideBar.DateTimeFormat := 'hh:mm AM/PM' property but it doesn't work. It keeps showing me the 24 hour format.

The format in my Windows operating system is already 12hr.

The dbDaySource component also already has the format in 12hr.

Additional comment: I am using my own dbPlanner class derived from TDBPlanner and everything works perfectly, except this detail.

The version of my DBPLanner component is 3.4.6.0

Thanks in advance.

2

I guess you use an time-only time-axis, i.e. where the time is split into an hour (in big font) + minutes string (in small font). In this case, the format string is not used but you can use the event handler Planner.OnPlannerGetSideBarLines with code like:

procedure TForm1.Planner1PlannerGetSideBarLines(Sender: TObject; Index,
  Position: Integer; var HourString, MinuteString, AmPmString: string);
var
  h:integer;
begin
  TryStrToInt(HourString, h);

  if h>12 then
    HourString := (h-12).ToString;
end;
3

Thanks Bruno! It works for me.