Steema Central

Code: Select all

property DataSource:TComponent read GetDataSource write SetDataSource stored StoreDatasource;

Code: Select all

function TChartSeries.StoreDatasource:boolean;
begin
  Result:=DataSources.Count=1;
end;

Code: Select all

procedure TChartSeries.Notification( AComponent: TComponent;
                                     Operation: TOperation);
begin
  inherited;
  if Operation=opRemove then
{$ifdef HH_PATCH_TC_DATASOURCE}
  begin
{$endif}
     if AComponent=FTeeFunction then
        FTeeFunction:=nil
     else
{$ifdef HH_PATCH_TC_DATASOURCE}
      // Update Datasources list
      if assigned(Datasources) and (Datasources.IndexOf(AComponent)>=0) then
      begin
        DataSources.Remove(AComponent);
      end;
{$else}
      { if "AComponent" is the same as series datasource,
        then set datasource to nil }
     if AComponent=DataSource then
        InternalRemoveDataSource(AComponent);  // 7.0
{$endif}
{$ifdef HH_PATCH_TC_DATASOURCE}
  end;
{$endif}
end;

Code: Select all

Function TChartSeries.GetDataSource:TComponent;
VAR i:integer;
begin
  Result:=nil;
  if Assigned(FDataSources) and (FDataSources.Count>0) then
  begin
    for i:=0 to FDataSources.Count-1 do
    begin
      if TChartSeries(FDataSources[i]).Count>0 then
      begin
        Result:=TChartSeries(FDataSources[i]);
        break; // found a series with data
      end;
    end;
    if not assigned(Result) then 
      result:=FDataSources[0];
  end;
end;

Code: Select all

var Bar1, Bar2, Bar3: TBarSeries;
    Line1: TLineSeries;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.View3D := false;

  Bar1 := TBarSeries.Create(self);
  Bar2 := TBarSeries.Create(self);
  Bar3 := TBarSeries.Create(self);
  Chart1.AddSeries(Bar1);
  Chart1.AddSeries(Bar2);
  Chart1.AddSeries(Bar3);

  Line1 := TLineSeries.Create(self);
  Chart1.AddSeries(Line1);
  Line1.FunctionType := TAverageTeeFunction.Create(self);

  for I := 0 to 4 do
  begin
    Bar1.Add(100);
    Bar2.Add(200);
    Bar3.Add(300);
  end;

  Line1.DataSources.Add(Bar1);
  Line1.DataSources.Add(Bar2);
  Line1.DataSources.Add(Bar3);
  Line1.CheckDataSource;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Line1.DataSource := Bar3;
  Line1.CheckDataSource;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Bar1.Clear;
  Line1.CheckDataSource;
end;

Code: Select all

    object BarSum: TLineSeries
      Marks.Arrow.Visible = True
      Marks.Callout.Brush.Color = clBlack
      Marks.Callout.Arrow.Visible = True
      Marks.Visible = False
      DataSource = BarSeries1 
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.Name = 'X'
      XValues.Order = loAscending
      YValues.Name = 'Y'
      YValues.Order = loNone
      DataSources = (
        'BarSeries1'
        'BarSeries2'
        'BarSeries3')
      object TeeFunction1: TAddTeeFunction
      end
    end

Code: Select all

//...
object BarSum: TLineSeries
  //...
  DataSource = BarSeries1
  //...
  DataSources = (
        'BarSeries1'
        'BarSeries2'
        'BarSeries3')

Code: Select all

//...
object BarSum: TLineSeries
  //...
  DataSource = BarSeries2
  //...
  DataSources = (
        'BarSeries2'
        'BarSeries3')

Code: Select all

<snip>
      // Find datasource with bigger number of points... 5.02
      with ParentSeries do
      for t:=0 to DataSources.Count-1 do
      if Assigned(DataSources[t]) and
         (TChartSeries(DataSources[t]).Count>Source.Count) then
      begin
        Source:=TChartSeries(DataSources[t]);
        XList:=Source.NotMandatoryValueList;
      end;
<snip>

Code: Select all

procedure TChartSeries.Notification( AComponent: TComponent;
                                     Operation: TOperation);
begin
  inherited;
  if Operation=opRemove then
{$ifdef HH_PATCH_TC_DS_NOTIFY}
  begin
{$endif}
     if AComponent=FTeeFunction then
        FTeeFunction:=nil
     else
{$ifdef HH_PATCH_TC_DS_NOTIFY}
     if (FDatasources<>nil) and (FDatasources.Indexof(aComponent)>=0) then
        InternalRemoveDataSource(AComponent);
{$else}
      { if "AComponent" is the same as series datasource,
        then set datasource to nil }
     if AComponent=DataSource then
        InternalRemoveDataSource(AComponent);  // 7.0
{$endif}
{$ifdef HH_PATCH_TC_DS_NOTIFY}
  end;
{$endif}
end;