Форум: "Основная";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];
Вниз
Помогите !! Первый раз столкнулся с TChart ... Найти похожие ветки
← →
Alpine (2003-01-31 12:05) [0]Как линию хоть рисовать то ... Я Сериес добавил ... Делаю Chart1.Series[0].AddXY(10,10) она мне ничего не рисует (( !
Помогите ... Если можно примеры ... У меня в демосах нету !
← →
Axis_of_Evil (2003-01-31 12:18) [1]рисуем нечто:
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;
ЗЫ в демосах есть, но я в них ниче не понял.
← →
Axis_of_Evil (2003-01-31 12:19) [2]Сериес линией сделать не забудь (лучше не 3Д)
← →
pifpaf (2003-01-31 12:20) [3]Series какой? Если это например Line, то правильно, что не рисует, точка-то одна.
← →
Alpine (2003-01-31 12:22) [4]Огромное Програмистическое Спасибо ...
← →
Axis_of_Evil (2003-01-31 12:22) [5]не
Chart1.Series[0].AddXY(10,10),
а
Chart1.SeriesList[0].AddXY
← →
Alpine (2003-01-31 17:56) [6]Ребята как мне нарисовать паралелограмм ...
Коороче такая беда надо найти сумму векторов ... Надо нарисовать паралеграмм по данным координатам а затем провести в нём диоганаль !! Помогите плиззззззз
← →
gsu (2003-01-31 18:00) [7]нарисуй на канвасе линиями и все
← →
Alpine (2003-01-31 18:03) [8]Координаты будут постоянно меняться следовательно рисунок тоже !!
← →
Илайдж (2003-01-31 18:18) [9]Вопрос в тему: есть некая последовательность данных (скажем массив из 20 значений) и идет постоянных сдвиг данных (данные дополняются, замещая собой предыдущие элементы массива).
Каким образом отрисовать на TChart график изменения? (чтобы старые данные уходили за горизонт [пусть даже без возможности просмотра], а новые отрисовывались)
← →
gsu (2003-01-31 18:23) [10]Clear и перерисовывать ?
← →
Alpine (2003-01-31 18:30) [11]КАК НАРИСОВАТЬ ТРЕУГОЛЬНИК ИЗ ЗАДАННЫХ КООРДИНАТ КОТОРЫЕ БУДУТ МЕНЯТЬСЯ В ПРОЦЕССЕ ??????????????????????
← →
Alpine (2003-01-31 18:54) [12]Аааааааааааааааааааууууууууууууууууууу
← →
Alpine (2003-01-31 22:24) [13]Мастера выручайтеееее !!!! Плизззззз !!!
← →
Илайдж (2003-02-03 10:45) [14]2 gsu:
если это для меня, хотелось бы кусочек кода.
Я никогда с ним не работал просто
← →
Илайдж (2003-02-04 08:57) [15]С вашего позволения "тему наверх".
← →
Someone (2003-02-04 10:52) [16]Илайдж:
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), но все равно, зачем память забивать. Удачи!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.013 c
