Steema Central

Just another question (i don't have a Delphi version available here at the moment): Is it possible to create a chart, fill different series with data and load these specifications thereafter?


Is the code that easy as I imaging at the moment? (I have ben thinking about an own routine for 3 days now!) Will have a closer look into the on-line help tonight...

procedure TfrmGraphic.btSaveTemplateClick(Sender: TObject);
Var tmpChart : TCustomChart;
begin
Chart1.OnZoom := NIL; //All events have to be disconnected!!!
Chart1.OnUndoZoom := NIL;

tmpChart := TChart.Create (Self); //Create a tmp chart,
tmpChart.Assign (Chart1); // copy the whole chart and ..
tmpChart.Parent := Self;
tmpChart.FreeAllSeries(); // ..delete the series -> we got a template

With SaveChartTemplateDialog do
Begin
Filter:='Teefiles|*.tee';
if Execute then SaveChartToFile (tmpChart, FileName, False, True); // save the template, name, no data, as text
end;

FreeAndNil (tmpChart); // finally free the temp chart

Chart1.OnZoom := Chart1Zoom; // and reconnct the events!
Chart1.OnUndoZoom := Chart1UndoZoom;
end;


procedure TfrmGraphic.btLoadTemplateClick(Sender: TObject);
Var tmpChart : TChart;
begin
Chart1.OnZoom := NIL; // the events have to be disconnected!!!
Chart1.OnUndoZoom := NIL;

tmpChart := TChart.Create (Self); // create a temp chart

With LoadChartTemplateDialog do
Begin
Filter := 'Teefiles|*.tee';
if Execute then LoadChartFromFile (TCustomChart(tmpChart), FileName); // and load the template
end;

// tmpChart.PArent := Chart1;
Chart1.Assign (tmpChart as TChart); // now we copy everything to our chart

With Chart1 do
Begin
Parent := Self;
end;

FreeAndNil (tmpChart); // free the temp chart

Chart1.OnZoom := Chart1Zoom; // and reconnect the events
Chart1.OnUndoZoom := Chart1UndoZoom;
end;