[adzaker]

Добрый день, возник такой вопрос.
Как на delphi вывести простенький график по типу y=x^2-2x+1 как картинку без использования Tcanvas и прочих? То есть, на форме ничего вообще не должно быть, а после завершения программы картинка с графиком должна лежать в той же папке, где находится программа.
Спасибо.

[NumLock]

без Device Context никак.

[Mrak]

Сообщение от adzaker

Добрый день, возник такой вопрос.
Как на delphi вывести простенький график по типу y=x^2-2x+1 как картинку без использования Tcanvas и прочих? То есть, на форме ничего вообще не должно быть, а после завершения программы картинка с графиком должна лежать в той же папке, где находится программа.
Спасибо.

а если, например в чарте построить, а потом

Код:

chart1.visible:=false;

а потом

Код:

if SaveDialog1.Execute = true then Chart1.SaveToBitmapFile(savedialog1.FileName);

[Pyro]

можно текстовый svg файл генерировать https://googledrive.com/host/0B2KUbe...ngxRE04UXA0MDg

[Mrak]

Код:

procedure TForm14.Button13Click(Sender: TObject);
var y: real;
    x: integer;
begin
chart1.visible:=false; // где-то раньше
Series1.Clear;
Series1.LinePen.Width:=2;
chart1.Title.Text.Clear;
chart1.Title.Text.Add('y=x^2-2x+1');
for x:=1 to 10 do
begin
  y:=x*x-2*x+1;
  Series1.AddXY(x, y, inttostr(x), clred );
end;

Chart1.SaveToBitmapFile(GetCurrentDir + '\diagramma.jpg');
end;

ну вот собственна)
осталось только добавить TCHART с series1, поставить его visible в false, на кнопку повешать этот код и... искать картинку в папке, где лежит exe-шник проекта