Steema Central

Code: Select all

procedure CloneChart(Dest, Origin: TCustomChart; AOwner: TComponent; ForceManualData: Boolean);

Code: Select all

var
	chartToolIterator, clonedTool: TTeeCustomTool;
begin
	// Copy the chart
	newChart := TChart.Create(self);
	VclTee.Chart.CloneChart(
		newchart,
		chart1,
		self,
		False
	);
	newChart.Parent := panel1;
	newChart.Align := TAlign.alClient;
	
	// Everything fine so far, let's copy the tools
	for chartToolIterator in chart1.Tools do begin
		clonedTool := VclTee.Chart.CloneChartTool(
			chartToolIterator,
			self
		);
		
		clonedTool.ParentChart := newChart;
		newChart.Tools.Add(clonedTool);
	end;
end;

Code: Select all

class procedure TTeeChartRenderer.cloneTools(
	const   fromChart:  TChart;
	const   toChart:    TChart
);
var
	axisLookupDict: IDictionary<TChartAxis, TChartAxis>;

	toolIterator: 	TTeeCustomTool;
	copiedTool:     TTeeCustomTool;
begin
	Assert( Assigned(fromChart) and Assigned(toChart) );

	// This is a lookup dictionary to find the matching axis of "toChart"
	// when we still have the "old" axis of "fromChart"
	axisLookupDict := createAxisDictionary(fromChart, toChart);
	
	for toolIterator in fromChart.Tools do begin

		copiedTool :=  VclTee.Chart.CloneChartTool(toolIterator, toChart);

		// Point tool to matching series of toChart
		if toolIterator is TTeeCustomToolSeries then
			(copiedTool as TTeeCustomToolSeries).Series :=
				toChart.Series[ (toolIterator as TTeeCustomToolSeries).Series.SeriesIndex ];

		// Point tool to matching axis of toChart
		if toolIterator is TTeeCustomToolAxis then
			(copiedTool as TTeeCustomToolAxis).Axis :=
				axisLookupDict[ (toolIterator as TTeeCustomToolAxis).Axis ];

		toChart.Tools.Add(copiedTool);

	end;
end;



class function TTeeChartRenderer.createAxisDictionary(
	const	originalChart: 	TChart;
	const	clonedChart: 	TChart
): IDictionary<TChartAxis, TChartAxis>;
var
	axisIndex: Integer;
begin
	Assert( Assigned(originalChart) and Assigned(clonedChart) );
	Result := TDictionary<TChartAxis, TChartAxis>.Create();

	try

		{TODO -oJM -cGeneral : Does that that also include "custom axes"?}
		for axisIndex := 0 to Pred(originalChart.Axes.Count) do
			Result.Add(
				originalChart.Axes.Items[axisIndex],
				clonedChart.Axes.Items[axisIndex]
			);

	except
		Result.Free();
		raise;
	end;
end;