Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите !! Первый раз столкнулся с TChart ... [D6, Win2k]


Alpine ©   (2003-01-31 12:05:00) 

Как линию хоть рисовать то ... Я Сериес добавил ... Делаю Chart1.Series[0].AddXY(10,10) она мне ничего не рисует (( !
Помогите ... Если можно примеры ... У меня в демосах нету !


Someone   (2003-02-04 10:52:00) [1]

Илайдж:

with Series[0] do
if Count<Dim then //Dim=20 в твоем случае
AddXY(BottomAxis.Minimum+Count,Value) //просто добавляем
else begin // первый ушел, последний пришел ;-)
BottomAxis.Maximum:=BottomAxis.Maximum+1; //сдвинули ось
BottomAxis.Minimum:=BottomAxis.Minimum+1;
AddXY(BottomAxis.Maximum,Value); //добавили новый
Delete(0); //удалили из списка первый
end;

Удалять не забывай :-), там максимальное число элементов помоему High(Integer), но все равно, зачем память забивать. Удачи!!!


Илайдж   (2003-02-04 08:57:00) [2]

С вашего позволения "тему наверх".


Илайдж   (2003-02-03 10:45:00) [3]

2 gsu:
если это для меня, хотелось бы кусочек кода.
Я никогда с ним не работал просто


Alpine   (2003-01-31 22:24:00) [4]

Мастера выручайтеееее !!!! Плизззззз !!!


Alpine   (2003-01-31 18:54:00) [5]

Аааааааааааааааааааууууууууууууууууууу


Alpine   (2003-01-31 18:30:00) [6]

КАК НАРИСОВАТЬ ТРЕУГОЛЬНИК ИЗ ЗАДАННЫХ КООРДИНАТ КОТОРЫЕ БУДУТ МЕНЯТЬСЯ В ПРОЦЕССЕ ??????????????????????


gsu   (2003-01-31 18:23:00) [7]

Clear и перерисовывать ?


Илайдж   (2003-01-31 18:18:00) [8]

Вопрос в тему: есть некая последовательность данных (скажем массив из 20 значений) и идет постоянных сдвиг данных (данные дополняются, замещая собой предыдущие элементы массива).

Каким образом отрисовать на TChart график изменения? (чтобы старые данные уходили за горизонт [пусть даже без возможности просмотра], а новые отрисовывались)


Alpine   (2003-01-31 18:03:00) [9]

Координаты будут постоянно меняться следовательно рисунок тоже !!


gsu   (2003-01-31 18:00:00) [10]

нарисуй на канвасе линиями и все


Alpine   (2003-01-31 17:56:00) [11]

Ребята как мне нарисовать паралелограмм ...
Коороче такая беда надо найти сумму векторов ... Надо нарисовать паралеграмм по данным координатам а затем провести в нём диоганаль !! Помогите плиззззззз


Alpine   (2003-01-31 12:22:00) [12]

Огромное Програмистическое Спасибо ...


Axis_of_Evil   (2003-01-31 12:22:00) [13]

не
Chart1.Series[0].AddXY(10,10),
а
Chart1.SeriesList[0].AddXY


pifpaf   (2003-01-31 12:20:00) [14]

Series какой? Если это например Line, то правильно, что не рисует, точка-то одна.


Axis_of_Evil   (2003-01-31 12:19:00) [15]

Сериес линией сделать не забудь (лучше не 3Д)


Axis_of_Evil   (2003-01-31 12:18:00) [16]

рисуем нечто:

procedure TForm1.Chart1Click(Sender: TObject);
var
x: Real;
begin
x := -5.0;
while (x <= 5.0) do
begin
Chart1.SeriesList[0].AddXY(x, x*x - sin(x)*x, "", ClRed);
x := x + 0.1;
end;

end;


ЗЫ в демосах есть, но я в них ниче не понял.


Наверх

Титульная страница Поиск, карта сайта Написать письмо