To make this I would like to open one .tee file (already thanks to forum support I have mange this) and ten I would like to add second one .tee file to the Chart.
I will be appriciated for help to find right methodology how to realize that
![Smile :)](./images/smilies/icon_smile.gif)
![]() | Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) |
![]() ![]() ![]() ![]() ![]() ![]() |
Please read our Bug Fixing Policy |
Code: Select all
uses Series, TeeStore;
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
tmpChart: TChart;
oldX, oldY, oldW, oldH: Integer;
const temp1: array[0..23] of Integer = (9, 9, 8, 8, 7, 6, 6, 4, 7, 11, 13, 15, 16, 16, 17, 17, 15, 14, 14, 14, 14, 13, 11, 10);
temp2: array[0..23] of Integer = (8, 7, 6, 6, 6, 6, 6, 5, 7, 9, 13, 14, 18, 20, 21, 20, 19, 18, 17, 16, 15, 13, 12, 12);
fileName1='E:\tmp\Temp_01052017.tee';
fileName2='E:\tmp\Temp_02052017.tee';
begin
Chart1.Legend.Visible:=False;
Chart1.View3D:=false;
with Chart1.AddSeries(TLineSeries) as TLineSeries do
begin
Pointer.Visible:=True;
for i:=0 to High(temp1) do
AddXY(i, temp1[i]);
end;
Chart1.Title.Text.Text:='01/05/2017';
Chart2.Legend.Visible:=False;
Chart2.View3D:=false;
with Chart2.AddSeries(TLineSeries) as TLineSeries do
begin
Pointer.Visible:=True;
for i:=0 to High(temp2) do
AddXY(i, temp2[i]);
end;
Chart2.Title.Text.Text:='02/05/2017';
SaveChartToFile(Chart1, fileName1);
SaveChartToFile(Chart2, fileName2);
//Load Charts
RegisterTeeStandardSeries;
oldX:=Chart3.Left;
oldY:=Chart3.Top;
oldW:=Chart3.Width;
oldH:=Chart3.Height;
LoadChartFromFile(Chart3, fileName1);
Chart3.Left:=oldX;
Chart3.Top:=oldY;
Chart3.Width:=oldW;
Chart3.Height:=oldH;
tmpChart:=TChart.Create(Self);
LoadChartFromFile(tmpChart, fileName2);
CloneChartSeries(tmpChart[0], Chart3);
Chart3[0].Title:=Chart3.Title.Text.Text;
Chart3[1].Title:=tmpChart.Title.Text.Text;
Chart3.Legend.Visible:=True;
Chart3.Title.Text[0]:=Chart3.Title.Text[0] + ' vs ' + tmpChart.Title.Text[0];
Chart3[0].Color:=OperaPalette[1];
Chart3[1].Color:=OperaPalette[2];
FreeAndNil(tmpChart);
end;
![]() | Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) |
![]() ![]() ![]() ![]() ![]() ![]() |
Please read our Bug Fixing Policy |
Code: Select all
LoadChartFromFile(TmpChart,
SDIAppForm->ListView3->Items->Item[SDIAppForm->ListView3->Selected->Index]->Caption
);
CloneChartSeries(TmpChart[0], SDIAppForm->Chart6);
Code: Select all
#include <VCLTee.Chart.hpp>
#include <VclTee.TeeGDIPlus.hpp>
#include <VCLTee.TeEngine.hpp>
#include <VCLTee.TeeProcs.hpp>
#include <VCLTee.Series.hpp>
#include <VCLTee.DBChart.hpp>
#include <VCLTee.TeeDBCrossTab.hpp>
#include <Vcl.CheckLst.hpp>
#include <VCLTee.TeeData.hpp>
#include "VCLTee.TeeSeriesTextEd.hpp"
#include <VCLTee.TeeURL.hpp>
#include <VCLTee.Teestore.hpp>
Code: Select all
double temp1[24] = {9, 9, 8, 8, 7, 6, 6, 4, 7, 11, 13, 15, 16, 16, 17, 17, 15, 14, 14, 14, 14, 13, 11, 10};
double temp2[24] = {8, 7, 6, 6, 6, 6, 6, 5, 7, 9, 13, 14, 18, 20, 21, 20, 19, 18, 17, 16, 15, 13, 12, 12};
AnsiString fileName1 = "E:\\tmp\\Temp_01052017.tee";
AnsiString fileName2 = "E:\\tmp\\Temp_02052017.tee";
Chart1->Legend->Visible=False;
Chart1->View3D=false;
Chart1->AddSeries(new TLineSeries(this));
dynamic_cast <TLineSeries*>(Chart1->SeriesList->Items[0])->Pointer->Visible=True;
for (int i=0; i<24; i++)
Chart1->SeriesList->Items[0]->AddXY(i, temp1[i]);
Chart1->Title->Text->Text="01/05/2017";
Chart2->Legend->Visible=False;
Chart2->View3D=false;
Chart2->AddSeries(new TLineSeries(this));
dynamic_cast <TLineSeries*>(Chart2->SeriesList->Items[0])->Pointer->Visible=True;
for (int i=0; i<24; i++)
Chart2->SeriesList->Items[0]->AddXY(i, temp2[i]);
Chart2->Title->Text->Text="02/05/2017";
SaveChartToFile(Chart1, fileName1);
SaveChartToFile(Chart2, fileName2);
//Load Charts
RegisterTeeStandardSeries();
int oldX=Chart3->Left;
int oldY=Chart3->Top;
int oldW=Chart3->Width;
int oldH=Chart3->Height;
LoadChartFromFile(Chart3, fileName1);
Chart3->Left=oldX;
Chart3->Top=oldY;
Chart3->Width=oldW;
Chart3->Height=oldH;
TChart *tmpChart = new TChart(this);
LoadChartFromFile(tmpChart, fileName2);
Chart3->AddSeries(CloneChartSeries(tmpChart->SeriesList->Items[0]));
Chart3->SeriesList->Items[0]->Title=Chart3->Title->Text->Text;
Chart3->SeriesList->Items[1]->Title=tmpChart->Title->Text->Text;
Chart3->Legend->Visible=True;
Chart3->Title->Text->Text=Chart3->Title->Text->operator [](0) + " vs " + tmpChart->Title->Text->operator [](0);
Chart3->SeriesList->Items[0]->Color=OperaPalette[1];
Chart3->SeriesList->Items[1]->Color=OperaPalette[2];
![]() | Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) |
![]() ![]() ![]() ![]() ![]() ![]() |
Please read our Bug Fixing Policy |
Code: Select all
LoadChartFromFile(TmpChart, File2.tee);
for (int i = 5; i < 10; i++)
{
SDIAppForm->Chart6->AddSeries (new TLineSeries (SDIAppForm->Chart6));
}
for (int i = 5; i < 10; i++)
{
SDIAppForm->Chart6->Series[i]->Assign (TmpChart->Series[i-5]);
}
Chart6->Series[9]->CustomVertAxis=Chart6->Series[4]->CustomVertAxis; // Assigning custom axis to new series :)