Главная страница
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.073 c
15-1173957819
alex_***
2007-03-15 14:23
2007.04.08
System error. Code 1410. Class already exists


2-1173894070
Shand
2007-03-14 20:41
2007.04.08
Чат


15-1173784031
Карелин Артем
2007-03-13 14:07
2007.04.08
Отделить Газели пассажирские от других машин. Как?


2-1173984401
вероника148
2007-03-15 21:46
2007.04.08
заполнение массива...


2-1173782342
novill
2007-03-13 13:39
2007.04.08
Вопрос по созданию/уничтожению форм