Скачать: CL | DM;

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

← →
Лебедев ©   (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]

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

---

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

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

---

← →
eXPell ©   (2007-03-18 13:19) [18]


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


---

← →
eXPell ©   (2007-03-18 13:20) [19]

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

textout что ли?

PS. лучше юзай chart))

---

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

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

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

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

---

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

Извиняюсь за навязчивость но думаю что это мой последний вопрос просмотрел кучу сайтов но не смог найти ни примера использования ни синтаксиса метода 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

---

← →
Kolan ©   (2007-03-18 17:15) [23]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.028 c