Steema Central

Code: Select all

    // Dummy Chart erzeugen
    tmpEmpty := TChart.Create(nil);    { Create an empty chart }
    tmpEmpty.Parent := Self;
    try
      LoadChartFromStream(TCustomChart(tmpEmpty), Stream);     // Dummy Chart mit Stream füllen
      // Serien kopieren
      while Serien <> '' do
      begin
        Serie  := StrToInt(Copy(Serien, 1, pos('#', Serien) - 1));
        Serien := Copy(Serien, Pos('#', Serien) + 1, length(Serien));
        TargetChart.AddSeries(CloneChartSeries(tmpEmpty[Serie]));
        TargetChart[TargetChart.SeriesCount - 1].Assign( tmpEmpty[Serie] ) ;
      end;
    finally
      Stream.Free;
      tmpEmpty.Free;                   // Dummy Chart löschen
      TargetListBox.UpdateSeries;
      TargetChart.Refresh;
    end;

Code: Select all

    tmpEmpty := TChart.Create(nil);    { Create an empty chart }
    tmpEmpty.Parent := Self;
    try
      LoadChartFromStream(TCustomChart(tmpEmpty), Stream);     // Dummy Chart mit Stream füllen
      // Serien kopieren
      while Serien <> '' do
      begin
        Serie  := StrToInt(Copy(Serien, 1, pos('#', Serien) - 1));
        Serien := Copy(Serien, Pos('#', Serien) + 1, length(Serien));

        tmpEmpty[Serie].ParentChart := TargetChart;

      end;
    finally
      Stream.Free;
      tmpEmpty.Free;                   // Dummy Chart löschen
      TargetListBox.UpdateSeries;
      TargetChart.Refresh;
    end;

Code: Select all

var
  SerieCopy : TChartSeries;
......
    tmpEmpty := TChart.Create(nil);    { Create an empty chart }
    tmpEmpty.Parent := Self;
    try
      LoadChartFromStream(TCustomChart(tmpEmpty), Stream);     // Dummy Chart mit Stream füllen
      // Serien kopieren
      while Serien <> '' do
      begin
        Serie  := StrToInt(Copy(Serien, 1, pos('#', Serien) - 1));
        Serien := Copy(Serien, Pos('#', Serien) + 1, length(Serien));

        SerieCopy := CloneChartSeries(tmpEmpty[Serie]);
        SerieCopy.ParentChart := TargetChart;
        TargetChart.AddSeries(SerieCopy );
      end;
    finally
      Stream.Free;
      tmpEmpty.Free;                   // Dummy Chart löschen
      TargetListBox.UpdateSeries;
      TargetChart.Refresh;
    end;

Code: Select all

uses series, teestore, teeeditpro;

var Stream: TMemoryStream;
    tmpEmpty: TChart;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i:=0 to 3 do
  begin
    Chart1.AddSeries(TLineSeries.Create(self));
    Chart1[i].FillSampleValues(25);
    Chart1[i].Title := 'Series' + IntToStr(i);
  end;

  Stream := TMemoryStream.Create;
  SaveChartToStream(TCustomChart(Chart1), Stream, true, false);
end;

procedure TForm1.Button1Click(Sender: TObject);
var SerieCopy: TChartSeries;
begin
  tmpEmpty := TChart.Create(self);

  try
    Stream.Position := 0;
    LoadChartFromStream(TCustomChart(tmpEmpty), Stream);
    SerieCopy := CloneChartSeries(tmpEmpty[0]);
    Chart2.AddSeries(SerieCopy);
  finally
    Stream.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  tmpEmpty.Free;
end;

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var SerieCopy: TChartSeries;
    tmpStream: TMemoryStream;
begin
  tmpEmpty := TChart.Create(self);

  try
    Stream.Position := 0;
    LoadChartFromStream(TCustomChart(tmpEmpty), Stream);
    SerieCopy := CloneChartSeries(tmpEmpty[0]);
    Chart2.AddSeries(SerieCopy);
    tmpStream := TMemoryStream.Create;
    SaveChartToStream(TCustomChart(Chart2), tmpStream, true, false);
    tmpStream.Position := 0;
    LoadChartFromStream(TCustomChart(Chart2), tmpStream);
  finally
    Stream.Free;
    tmpStream.Free;
    tmpEmpty.Free;
  end;
end;

Code: Select all

procedure CopyObject(ObjFrom, ObjTo: TObject);
var
  PropInfos: PPropList;
  PropInfo: PPropInfo;
  Count, Loop: Integer;
  OrdVal: Longint;
  StrVal: String;
  FloatVal: Extended;
  MethodVal: TMethod;
begin
  { Iterate thru all published fields and properties of source }
  { copying them to target }

  { Find out how many properties we'll be considering }
  Count := GetPropList(ObjFrom.ClassInfo, tkAny, nil);
  { Allocate memory to hold their RTTI data }
  GetMem(PropInfos, Count * SizeOf(PPropInfo));
  try
    { Get hold of the property list in our new buffer }
    GetPropList(ObjFrom.ClassInfo, tkAny, PropInfos);
    { Loop through all the selected properties }
    for Loop := 0 to Count - 1 do
    begin
      PropInfo := GetPropInfo(ObjTo.ClassInfo, PropInfos^[Loop]^.Name);
      { Check the general type of the property }
      { and read/write it in an appropriate way }
      case PropInfos^[Loop]^.PropType^.Kind of
        tkInteger, tkChar, tkEnumeration,
        tkSet, tkClass{$ifdef Win32}, tkWChar{$endif}:
        begin
          if UpperCase(PropInfos^[Loop]^.Name) <> 'PARENTCHART' then begin
            OrdVal := GetOrdProp(ObjFrom, PropInfos^[Loop]);
            if Assigned(PropInfo) then
              SetOrdProp(ObjTo, PropInfo, OrdVal);
          end;
        end;
        tkFloat:
        begin
          FloatVal := GetFloatProp(ObjFrom, PropInfos^[Loop]);
          if Assigned(PropInfo) then
            SetFloatProp(ObjTo, PropInfo, FloatVal);
        end;
        {$ifndef DelphiLessThan3}
        tkWString,
        {$endif}
        {$ifdef Win32}
        tkLString,
        {$endif}
        tkString:
        begin
          { Avoid copying 'Name' - components must have unique names }
          if UpperCase(PropInfos^[Loop]^.Name) = 'NAME' then
            Continue;
          StrVal := GetStrProp(ObjFrom, PropInfos^[Loop]);
          if Assigned(PropInfo) then
            SetStrProp(ObjTo, PropInfo, StrVal);
        end;
        tkMethod:
        begin
          MethodVal := GetMethodProp(ObjFrom, PropInfos^[Loop]);
          if Assigned(PropInfo) then
            SetMethodProp(ObjTo, PropInfo, MethodVal);
        end
      end
    end
  finally
    FreeMem(PropInfos, Count * SizeOf(PPropInfo));
  end;
end;

Code: Select all

var series1: TFastLineSeries; 
begin
  series1 := TFastLineSeries.Create(nil);
  Chart2.AddSeries(series1);

Code: Select all

var series1: TChartSeries; 
begin
  series1 := TXXXXXXXXXXXSeries.Create(nil);
  Chart2.AddSeries(series1);

Code: Select all

  var series: TChartSeries;
  //...
  series := TChartSeriesClass(Chart1[0].ClassType).Create(self);
  Chart1.AddSeries(series);

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.AddSeries(TPointSeries.Create(self));
  Chart1[0].FillSampleValues(25);
  Chart1[0].Color := clRed;
  Chart1[0].Labels[10] := 'my custom label';
end;

procedure TForm1.Button1Click(Sender: TObject);
var SeriesSource, SeriesCopy: TChartSeries;
    i: Integer;
begin
  SeriesSource := Chart1[0];
  SeriesCopy := TChartSeriesClass(SeriesSource.ClassType).Create(self);
  Chart2.AddSeries(SeriesCopy);
  SeriesCopy.FillSampleValues(25);

  for i:=0 to SeriesSource.ValuesList.Count-1 do
    with SeriesCopy.ValuesList[i] do
    begin
      Value:=SeriesSource.ValuesList[i].Value;
      Count:=SeriesSource.ValuesList[i].Count;
      Modified:=true;
    end;


  for i:=0 to SeriesSource.Count-1 do
  begin
    SeriesCopy.ValueColor[i] := SeriesSource.ValueColor[i];
    SeriesCopy.Labels[i] := SeriesSource.Labels[i];
  end;

  SeriesCopy.Repaint;
end;