Zoom In/Out bug

VCL TMS VCL UI Pack
1

Hi there

 
I have created a planner (Day mode) that has a DisplayUnit of 5 mins ie 12 per hour etc.
 
I then create an PlannerItem with :-
 
ItemStartTime := 10:05
ItemStartTime := 11:05
 
If I then change the DisplayUnit to say 15min and then back to 5min, the ItemStartTime has been changed, ie changing the DisplayUnit to Zoom In/Out of the Planner changes all the Item Start/end Times.
 
It should'nt!!!
 
Thanks
 
Lee
2

Was retested here with the following code used on a default TPlanner (latest version)




procedure TForm1.FormCreate(Sender: TObject);
begin
  planner1.Display.DisplayUnit := 5;
  with planner1.CreateItem do
  begin
    itemstarttime := encodetime(10,45,0,0);
    itemendtime :=  encodetime(10,55,0,0);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  planner1.Display.DisplayUnit := 15;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  planner1.Display.DisplayUnit := 5;
end;

and pressing first button1 , then button2 results in the same item displayed at the original start/end time.
So, it is unclear how you see a problem.