Steema Central

Code: Select all

  
procedure AddFrom(Component:TComponent; const Prefix:String);
  var t : Integer;
  begin
    with Component do
       for t:=0 to ComponentCount-1 do
           if Components[t] is TChartSeries then
{$ifdef HH_PATCH_TC_FILLSOURCES}
         begin
{$endif}
             if Components[t] is TChartSeries then
                AddSource(TChartSeries(Components[t]),Prefix);
{$ifdef HH_PATCH_TC_FILLSOURCES}
            // HH: recurse because actually series may be owned by other components as well!
            AddFrom(Components[t],'');
         end;
{$endif}
  end;


  procedure AddMDISources;
  var t : Integer;
  begin
    with Application.MainForm.ActiveMDIChild do  // 8.0 TV52012071
      for t:=0 to ComponentCount-1 do
{$ifdef HH_PATCH_TC_FILLSOURCES}
        // HH: Charts may, off course, also reside on frames of MDI forms
        if (Components[t] is TCustomChart) or (Components[t] is TCustomFrame) then
{$else}
        if Components[t] is TCustomChart then
{$endif}
        begin
          if Assigned(TheSeries.Owner) then
                AddFrom(TheSeries.Owner,'');
          break;
        end;
  end;