Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

Добавление TChartSeries во время выполнения программы   Найти похожие ветки 

 
Artem K.   (2002-01-12 13:51) [0]

Подскажите пожалуйста как добавлять новые Series"ы к TChart"у во время выполнения программы, и сколько их можно добавить.
Я делал так:
...
var
ns:TChartSeries;
begin
ns:=tchartseries.Create(self);
ns.AddXY(10,10);
ns.AddXY(20,20);
ns.AddXY(10,30);
сhart1.AddSeries(ns);
end;
...
, но графика не видно.


 
Mbo   (2002-01-13 08:28) [1]

Удалено модератором


 
ikra   (2002-01-13 17:03) [2]

И чарту (если чарт тоже создается в runtime)и сериесу необходимо указать родителя, только после этого график виден:

type
TForm1 = class(TForm)
Panel1: TPanel;
{...}
public
Chart1 : TChart;
Series1 : TFastLineSeries;
end;
//-------------------------------------
{по кнопке Button1 создаем чарт и натягиваем его на Panel1, которая уже создана в Design-time}
procedure TForm1.Button1Click(Sender: TObject);
begin
Chart1:=TChart.Create(Panel1);
With Chart1 do
begin
Align:=alClient;
View3D:=False;
Parent:=Panel1;
end;
end;
//-------------------------------------
{по кнопке Button2 создаем сериес и натягиваем его на Chart1}
procedure TForm1.Button2Click(Sender: TObject);
var MaxSer : integer;
i,j : integer;
tmp : double;
PointCount : Integer;
begin
if Chart1=Nil then
Begin
ShowMessage("Необходимо сначала создать Chart");
Exit;
End;
Series1:=TChartSeries.Create(Self);
Series1.ParentChart:=Chart1;
Series1:=TChartSeries.Create(Self);
Series1.ParentChart:=Chart1;
Series1:=TChartSeries.Create(Self);
Series1.ParentChart:=Chart1;

Randomize;
MaxSer:=3;
PointCount:=200;
for j:=0 to MaxSer-1 do
Begin
tmp:=Random(1000);
TChartSeries(Chart1[j]).Clear;
// TChartSeries(Chart1[j]).SeriesColor:=clRed;

for i:=1 to PointCount do
begin
tmp:=tmp+Random(1000)-500;
TChartSeries(Chart1[j]).AddXY(i,tmp,"", clBlue);
end;
end;
end;



 
ikra   (2002-01-13 17:08) [3]

2) Maximum 134217727 points per Series and same for Series per Chart.
Все есть в Хелпе :)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
7-100092
DOMINATOR
2001-09-27 05:53
2002.01.31
Братья ПРОГРАМЕРЫ помогите кто может!!!!!!


14-100050
Orest
2001-12-05 22:28
2002.01.31
GifAnimator, ОЧЕНЬ НУЖНО!!!!!!!!!!!!!!!!!!!


1-99994
Анатолий
2002-01-14 22:57
2002.01.31
Проблемы с картинками


3-99909
Igor_thief
2001-12-28 15:53
2002.01.31
BDE


1-99976
Georg
2002-01-14 15:56
2002.01.31
Проблемулька...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский