TPlanner. CreateItem. Duplicate call of "assign(DefaultItem)" slows down performance.

VCL TMS VCL UI Pack
1

You call assign(DefaultItem) two times when creating a new item.

First time in

constructor TPlannerItem.Create(Collection: TCollection);
...
if Assigned(FPlanner.DefaultItem) then
    Self.Assign(FPlanner.DefaultItem);
...

Second Time in

function TPlannerItems.Add: TPlannerItem;
...
  Result.Assign(FOwner.DefaultItem);
...

Please remove one.

2

Thanks for reporting.
We moved the 2nd assignment.