Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

График

Страницы: 1 2 >
Лебедев © (2007-03-18 11:38:00)
Добрый день
Не подскажете как можно реализовать построение графика на форме?

Kolan (2007-03-18 17:15:00) [1]
> Сам график оси координат и т.д. сделал оталось только подписи
> и вот завис. :)

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

RASkov (2007-03-18 14:49:00) [2]
> [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

Лебедев (2007-03-18 14:37:00) [3]
Извиняюсь за навязчивость но думаю что это мой последний вопрос просмотрел кучу сайтов но не смог найти ни примера использования ни синтаксиса метода textout, если не сложно подскажите плз. Сам график оси координат и т.д. сделал оталось только подписи и вот завис. :)

RASkov (2007-03-18 13:26:00) [4]
> [16] Лебедев © (18.03.07 13:14)

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

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

eXPell (2007-03-18 13:20:00) [5]

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

textout что ли?

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

eXPell (2007-03-18 13:19:00) [6]
paintbox1.Canvas.Pen.Color:=clgreen; paintbox1.Canvas.MoveTo(0,0); paintbox1.Canvas.LineTo(form1.PaintBox1.Width,form1.PaintBox1.Height);

Лебедев (2007-03-18 13:18:00) [7]
Да и еще можно ли на paintbox добавлять символы?

Лебедев (2007-03-18 13:14:00) [8]
Спасибо большое. А как можно изменить цвет линий например на зеленый.

eXPell (2007-03-18 12:49:00) [9]

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

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

а так?%)

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

Kolan (2007-03-18 12:45:00) [11]
> помогите плз с аналогичными командами для TPaintBox.

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

eXPell (2007-03-18 12:32:00) [12]

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

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

Лебедев (2007-03-18 12:28:00) [13]
помогите плз с аналогичными командами для TPaintBox.

Лебедев (2007-03-18 12:20:00) [14]
там аналогично???

DrPass (2007-03-18 12:19:00) [15]

> 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

Kolan (2007-03-18 12:19:00) [16]
Возьми TChart, имхо, тебе хватит…

RASkov (2007-03-18 12:14:00) [17]
> [6] Лебедев © (18.03.07 12:13)

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

Лебедев (2007-03-18 12:13:00) [18]
а то же самое на TPageControl сделать можно? или лучш форму привязать???

eXPell (2007-03-18 12:05:00) [19]
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 11:56:00) [20]
а пример какой нить есть? надо построить график прямой и 8 точек отдельных.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »