function TSELECTFLOWOUTUNITFORM.CreateFlowChartObject(AProcUnit: TProcUnit): TFlowChartObject;
begin
case BizFlowChart.BizFlowChartDefaultViewStyle of
TFlowChartViewStyle.vsProfessional:
Result := DoCreateFlowChartObjectProfessional(AProcUnit);
TFlowChartViewStyle.vsImage:
Result := DoCreateFlowChartObjectImage(AProcUnit);
end;
end;