|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вывод графика в отдельный файл
Добрый день, возник такой вопрос.
Как на delphi вывести простенький график по типу y=x^2-2x+1 как картинку без использования Tcanvas и прочих? То есть, на форме ничего вообще не должно быть, а после завершения программы картинка с графиком должна лежать в той же папке, где находится программа. Спасибо. |
#2
|
||||
|
||||
без Device Context никак.
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Цитата:
Код:
chart1.visible:=false; Код:
if SaveDialog1.Execute = true then Chart1.SaveToBitmapFile(savedialog1.FileName); Я за здоровый экстрим! Спасибо за "спасибо") |
#4
|
|||
|
|||
можно текстовый svg файл генерировать https://googledrive.com/host/0B2KUbe...ngxRE04UXA0MDg
>woweook< |
#5
|
||||
|
||||
Код:
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-шник проекта Я за здоровый экстрим! Спасибо за "спасибо") Последний раз редактировалось Mrak, 08.04.2013 в 16:34. |