Source position: TplGanttUnit.pas line 623
type TplGanttStartMovingBarEvent = procedure(
aBar: TplGanttBarDatum
) of object;