Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизПостроить график в - Chart Найти похожие ветки
← →
Оля (2002-12-12 13:00) [0]Помогите, заканчиваю проект почти все готово, вот только графики построить осталось.
Есть компонент Chart1 на вкладке Additional, но как с ним работать не совсем представляю. Неплохо было бы если кто ни будь объяснил на примере.
Есть 6 ячеек Edit, в 3х значения x1, x2, x3 в остальных y1, y2, y3. Вопрос как на основе этих значений построить график в Chart1. А уж по вашему ответу я разберусь, что мне делать в своем проекте (там все конечно посложнее будет). Заранее благодарю всех откликнувшихся.
Р.S. как-то я уже спрашивала о Chart1 и где в инете можно о нем почитать , но увы реального ничего не ответили .
← →
Бурундук (2002-12-12 14:10) [1]Создаёшь новую серию Series1 (дв. клик на Chart1,
выбираешь наиболее понравившийся стиль).
Далее
// Series1 - компонент, принадлежащий форме
Series1.Clear;
Series1.AddXY(x1, y1);
Series1.AddXY(x2, y2);
Series1.AddXY(x3, y3);
Всё.
← →
Оля (2002-12-12 15:09) [2]А почему на Series1.AddXY(x1, y1); при компиляции выскакивает
[Error] Unit1.pas(48): Not enough actual parameters?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, TeeProcs, TeEngine, Chart, Series;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Chart1: TChart;
BitBtn1: TBitBtn;
Series1: TFastLineSeries;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
x1,x2,x3,y1,y2,y3:real;
begin
x1:= StrToFloat(Edit1.Text);
x2:= StrToFloat(Edit2.Text);
x3:= StrToFloat(Edit3.Text);
y1:= StrToFloat(Edit4.Text);
y2:= StrToFloat(Edit5.Text);
y3:= StrToFloat(Edit6.Text);
Series1.Clear;
Series1.AddXY(x1, y1);
Series1.AddXY(x2, y2);
Series1.AddXY(x3, y3);
end;
end.
← →
Nikolai_S (2002-12-12 15:15) [3]Ну так вообще-то можно и в справке посмотреть. Там нужно после X и Y дать еще два параметра - подпись на точки оси х и цвет столбца/отрезка:
function AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; AColor: TColor) : Longint;
← →
Бурундук (2002-12-12 15:19) [4]У тебя какая версия Дельфей? D4 или меньше?
Попробуй так:
Series1.AddXY(x1, y1, "", Series1.SeriesColor);
← →
Оля (2002-12-12 16:02) [5]ОК Всем спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c