График

← →
Лебедев © (2007-03-18 11:38) [0]

Добрый день
Не подскажете как можно реализовать построение графика на форме?

← →
DrPass © (2007-03-18 11:46) [1]

С помощью свойства Canvas

← →
RASkov (2007-03-18 11:51) [2]

MoveTo()
LineTo()
И еще разных штучек у канвы полно....
TChart...

← →
Лебедев © (2007-03-18 11:54) [3]

Через какой компонент?

← →
Лебедев © (2007-03-18 11:56) [4]

а пример какой нить есть? надо построить график прямой и 8 точек отдельных.

← →
eXPell © (2007-03-18 12:05) [5]

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin //linia form1.Canvas.MoveTo(290,280); form1.Canvas.LineTo(350,390); //tocki for i:=0 to 7 do form1.Canvas.Pixels[random(90)+50, random(90)+50]:=clred; end;

← →
Лебедев © (2007-03-18 12:13) [6]

а то же самое на TPageControl сделать можно? или лучш форму привязать???

← →
RASkov (2007-03-18 12:14) [7]

> [6] Лебедев © (18.03.07 12:13)

Есть TPaintBox для таких вещей....

← →
Kolan © (2007-03-18 12:19) [8]

Возьми TChart, имхо, тебе хватит&#133

← →
DrPass © (2007-03-18 12:19) [9]

> procedure TForm1.Button1Click(Sender: TObject);
> var
> i:integer;
> begin
> //linia
> form1.Canvas.MoveTo(290,280);
> form1.Canvas.LineTo(350,390);
> //tocki
> for i:=0 to 7 do
> form1.Canvas.Pixels[random(90)+50, random(90)+50]:=clred;
>
> end;

Так, отучаемся делать потенциальные глюки.
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin //linia Canvas.MoveTo(290,280); Canvas.LineTo(350,390); //tocki for i:=0 to 7 do Canvas.Pixels[random(90)+50, random(90)+50]:=clred; end;
И никаких form1

← →
Лебедев © (2007-03-18 12:20) [10]

там аналогично???

← →
Лебедев © (2007-03-18 12:28) [11]

помогите плз с аналогичными командами для TPaintBox.

← →
eXPell © (2007-03-18 12:32) [12]

> Лебедев © (18.03.07 12:28) [11]

ну тебе ж дали пример, в paint"e все также, имхо)

← →
Kolan © (2007-03-18 12:45) [13]

> помогите плз с аналогичными командами для TPaintBox.

Да возьми ты «чарт», там все уже сделано специально для рисования графиков. Увеличение, перемещение&#133

← →
Лебедев © (2007-03-18 12:45) [14]

я по-моему оч.сильно туплю но пишу в процедуре TForm1.Button1Click:
PaintBox1.Canvas.MoveTo(290,280); PaintBox1.Canvas.LineTo(350,390);
Ошибок не выдает но и ничего не меняется :( Все остальное работает

← →
eXPell © (2007-03-18 12:49) [15]

> Лебедев © (18.03.07 12:45) [14]

paintbox1.Canvas.MoveTo(0,0); paintbox1.Canvas.LineTo(form1.PaintBox1.Width,form1.PaintBox1.Height);

а так?%)

← →
Лебедев © (2007-03-18 13:14) [16]

Спасибо большое. А как можно изменить цвет линий например на зеленый.

Да и еще можно ли на paintbox добавлять символы?

paintbox1.Canvas.Pen.Color:=clgreen; paintbox1.Canvas.MoveTo(0,0); paintbox1.Canvas.LineTo(form1.PaintBox1.Width,form1.PaintBox1.Height);

← →
RASkov (2007-03-18 13:26) [20]

> [16] Лебедев © (18.03.07 13:14)

> [17] Лебедев © (18.03.07 13:18)

Посмотри свойства/методы канвы, почитай хелп, глянь примеры... и все будет понятно :)

Извиняюсь за навязчивость но думаю что это мой последний вопрос просмотрел кучу сайтов но не смог найти ни примера использования ни синтаксиса метода textout, если не сложно подскажите плз. Сам график оси координат и т.д. сделал оталось только подписи и вот завис. :)

← →
RASkov (2007-03-18 14:49) [22]

> [21] Лебедев © (18.03.07 14:37)

Canvas.TextOut(10,10,"Text");
http://www.yandex.ru/yandsearch?text=%28%CF%F0%E8%EC%E5%F0+%E8%F1%EF%EE%EB%FC%E7%EE%E2%E0%ED%E8%FF+TCanvas%29
http://infocity.kiev.ua/prog/delphi/content/delphi010.phtml

> Сам график оси координат и т.д. сделал оталось только подписи
> и вот завис. :)

Ты гений. За 3 часа почти «чарт» :)

График Найти похожие ветки