Делфи: сохранить график из TChart в BMP

[Krendel']

Необходимо сохранить график, который получен в TChart в BMP (или другой графический формат)

как можно добиться этого ?

(ну или подскажите хотя бы )

[Mad_Cat]

Chart1.SaveToBitmapFile(FileName);

[vovk]

Chart1.SaveToBitmapFile();

?

[Krendel']

Mad_Cat, vovk, огромное Вам спасибо не думал что будет так просто

[Krendel']

еще появился вопрос - можно ли задать сохранение графика в более большом разрешении чем он оригинально в Chart'е ?

[vovk]

можно увеличить chart потом сохранить а потом опять вернуть размер, но чтото мне так не очень нравится.
Можно дополнительно создать chart скопировать в него все диаграммы, увеличить, сохранить в файл, а потом уничтожить.

var
tmp_chrt: TChart;
tmp_ClassType:TChartSeriesClass;
tmp_series:TChartSeries;
i:integer;
begin
tmp_chrt := TChart.Create(nil);
try
for I := 0 to Chart1.SeriesCount - 1 do
 begin
 tmp_ClassType:=TChartSeriesClass(Chart1.Series[i].ClassType);
 tmp_series:=tmp_ClassType.Create(tmp_chrt);
 tmp_series.Assign(Chart1.Series[i]);
 tmp_chrt.AddSeries(tmp_series);
 end;
tmp_chrt.Width:=Chart1.Width*3;
tmp_chrt.Height:=Chart1.Height*3;
tmp_chrt.SaveToBitmapFile(filename_);
finally
  tmp_chrt.Free;
end;
end;

мне это тоже не очень нравится, скорее всего можно и проще, но я с TChart практически не рабатал.

[Krendel']

vovk, спасибо за код, попробую

и у меня возникает очередной вопрос)

как задать сохранение файла под определенным названием, допустим чтобы при нажатии кнопки сохранения

procedure TFormMain.ButtonClick(Sender: TObject);
begin
ChartSpec.SaveToBitmapFile('spectr.bmp');
end;

картинка сохранялась под названием текущей даты и времени, допустим 21.01.2011_1102.bmp

[vovk]

Сообщение от Krendel'

vovk, спасибо за код, попробую

и у меня возникает очередной вопрос)

как задать сохранение файла под определенным названием, допустим чтобы при нажатии кнопки сохранения

procedure TFormMain.ButtonClick(Sender: TObject);
begin
ChartSpec.SaveToBitmapFile('spectr.bmp');
end;

картинка сохранялась под названием текущей даты и времени, допустим 21.01.2011_1102.bmp

а тут вообще просто))

ChartSpec.SaveToBitmapFile(FormatDateTime('dd.mm.yyyy_hh.mm', now)+'.bmp');

[Krendel']

vovk! вот не ожидал)) думал как нибудь через DateToStr надо, но не получалось

к сожалению не могу добавить еще один плюсик Вам, выходит сообщение что прежде я должен поставить его еще какому нибудь пользователю)

[vovk]

Можно и DateToStr, а потом Timetostr, только FormatDateTime проще)