Во-первых, можно выделить все объекты и перетащить их на ShiftCalendar. Правда, в выделении должны быть только объекты материалопотока. Если случайно вместе со всеми выделить, допустим, Chart - перетаскивание не сработает.
Иногда нужно подходить более дифференцированно - например, добавлять в календарь лишь объекты определенного класса. Тогда проще написать метод, который перебирает все объекты во фрейме и назначает им календарь, типа такого:
var i : integer
For i := 1 to current.numNodes loop
If current.Node(i).class = .MaterialFlow.Station OR
current.Node(i).class = .Mate