Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.08;
Скачать: 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 вся ветка

Текущий архив: 2007.04.08;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.051 c
15-1174000637
Германн
2007-03-16 02:17
2007.04.08
Хреновая работа F1


15-1173880561
GeLLeR
2007-03-14 16:56
2007.04.08
Графический эквалайзер


3-1169093469
Ольга
2007-01-18 07:11
2007.04.08
фильтр по нулевой дате


2-1174317857
Malik
2007-03-19 18:24
2007.04.08
Вопрос по StringGrid y


15-1173460202
Zhjaeve
2007-03-09 20:10
2007.04.08
Касательно языка