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.

Hello,


What means:

TfrxChartView().SaveToMetaFile,
TfrxChartView().SaveToStream

or

TfrxChartView().LoadMetaFile,
TfrxChartView().LoadStraem


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;

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], [i], [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], [i], [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], [i], [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.

Thank You,

but I don´t need fixed values, My values should be a 2D matrice.

thanks EB