values into frx.Chart1.Contour1

Comments

• EccoBravo

  February 2010 edited 12:42PM

  Hello,
  
  
  What means:
  
  TfrxChartView().SaveToMetaFile,
  TfrxChartView().SaveToStream
  
  or
  
  TfrxChartView().LoadMetaFile,
  TfrxChartView().LoadStraem
  
  
  Thanks
  
  EB.
• gordk St.Catherines On. Canada.

  February 2010 edited 12:42PM

  EccoBravo wrote: »

  Hallo,
  
  I don??t get any data/values into frxReport1.Chart1.Contour1.
  I intend to show 3D charts in the report in kind of
  
  A = function(x,y)
  
  Furthermore, I intend to show a sequence of k charts in the report,
  k is the number of shown charts. from a 3D matrix in kind of
  
  A(x,y,z)
  
  x : 1...m
  y : 1...n
  z : 1...k
  
  That means, I will enter k matricies AA(x,y) into the report
  That should lead to k Charts in frx.
  
  How the code is to interface the data between program code and frxReport1 ?
  
  A lot of own tests had been without of success.
  
  Many thanks
  
  EB.

  
  typical fixed data
  procedure Chart1OnBeforePrint(Sender: TfrxComponent);
  begin
  Chart1.SeriesData[0].Source1 := 'A;B;C'; //labels
  Chart1.SeriesData[0].Source2 := '1;2;3'; //x
  Chart1.SeriesData[0].Source3 := '4;5;6';//y
  Chart1.SeriesData[0].Source4 := '10;20;30';//offset
  Chart1.SeriesData[0].Values5 := 'clred;clyellow;clblue';//color end;
• EccoBravo

  February 2010 edited 12:42PM

  I can give You my Code, where ste Data for the k Charts in frx should be inserted.
  
  
  ...
  
  //................................................................................................................................................................................................
  procedure TF_Haupt.frxReport1BeforePrint(Cr: TfrxReportComponent);
  var
  Cross: TfrxCrossView;
  i, j: integer;
  begin
  if Cr is TfrxCrossView then
  begin
  Name := TfrxCrossView(Cr).Name;
  if Name = 'Cr_Pat' then
  begin
  Cross := TfrxCrossView(Cr);
  for i := 0 to 1 do
  for j := 0 to 13 do
  if SG_Plan.Cells[i, j + 1] <> '' then
  Cross.AddValue([j], , [SG_Plan.Cells[i, j + 1]]);
  end;
  if Name = 'Cr_Plan' then
  begin
  Cross := TfrxCrossView(Cr);
  for i := 0 to 1 do
  for j := 0 to 13 do
  if SG_Plan.Cells[i, j + 1] <> '' then
  Cross.AddValue([j], , [SG_Plan.Cells[i, j + 1]]);
  end;
  if Name = 'Cr_Felder' then
  begin
  Cross := TfrxCrossView(Cr);
  for i := 0 to Plan.FeldZahl do
  for j := 0 to 23 do
  if SG_Felder.Cells[i, j + 1] <> '' then
  Cross.AddValue([j], , [SG_Felder.Cells[i, j + 1]]);
  end;
  end;
  end;
  
  //................................................................................................................................................................................................
  procedure TF_Haupt.frxUserDataSet1CheckEOF(Sender: TObject; var Eof: Boolean);
  begin
  eof := frxUserDataSet1.Tag > _{??? which number ?}??;
  end;
  
  //................................................................................................................................................................................................
  procedure TF_Haupt.frxUserDataSet1First(Sender: TObject);
  begin
  frxUserDataSet1.Tag := 1;
  end;
  
  //................................................................................................................................................................................................
  procedure TF_Haupt.frxUserDataSet1GetValue(const VarName: string;
  var Value: Variant);
  var
  i, j, k: integer;
  ...
  begin
  //
  // My datas are A(i,j,k)
  // or k x AA(i,j)
  // for k Charts in frx
  //
  // here ste data
  // for k Charts
  // should be inserted
  //
  // _{HOW ??}
  //
  //
  end;
  //................................................................................................................................................................................................
  procedure TF_Haupt.frxUserDataSet1Next(Sender: TObject);
  begin
  frxUserDataSet1.Tag := frxUserDataSet1.Tag + 1;
  end;
  
  //................................................................................................................................................................................................
  procedure TF_Haupt.frxUserDataSet1Prior(Sender: TObject);
  begin
  frxUserDataSet1.Tag := frxUserDataSet1.Tag - 1;
  end;
  
  //................................................................................................................................................................................................
  
  ...
  
  
  Many thanks
  
  EB.
• EccoBravo

  February 2010 edited 12:42PM

  Thank You,
  
  but I don??t need fixed values, My values should be a 2D matrice.
  
  thanks EB