Discussion:
TChart
(Wiadomość utworzona zbyt dawno temu. Odpowiedź niemożliwa.)
adam myszor
2007-11-12 17:18:32 UTC
Permalink
Witam.
Potrzebuję dynamicznie, zamiast ręcznego dodawania w okienku Editing Chart
tworzyć 'Series' na komponecie TChart
Raz ich będzie 5 a raz może być 20 serii danych do wykresu.

Jak to zrobić w kodzie z poziomu Dephi tak aby każda iteracja pętli tworzyła
nową 'Series'?
Jak się do tego odwoływać?
Może tak...... Chart1.SeriesList.Series[i].Add(); ??

Pozdrawiam
Adam
Marek
2007-11-13 13:07:22 UTC
Permalink
Post by adam myszor
Witam.
Potrzebuję dynamicznie, zamiast ręcznego dodawania w okienku Editing Chart tworzyć 'Series' na komponecie TChart
Raz ich będzie 5 a raz może być 20 serii danych do wykresu.
Jak to zrobić w kodzie z poziomu Dephi tak aby każda iteracja pętli tworzyła nową 'Series'?
Jak się do tego odwoływać?
Może tak...... Chart1.SeriesList.Series[i].Add(); ??
Uses Series;

Var
Seria: TLineSeries;

procedure TForm1.Button1Click(Sender: TObject);
Begin
Seria:=TLineSeries.Create(Self); //tu tworzysz serie
Chart1.AddSeries(Seria); //dodajesz nowa serie do Charta
Seria.FillSampleValues(20); //wypelnienie serii losowymi danymi
End;

Kazde nastepne kliniecie Button1 spowoduje dodanie nowej serii. Powyzszy
kod miedzy Begin i End mozesz wrzucic w jakas petle.
Po stworzeniu nowej serii i przed dodaniem jej do Charta wypadaloby
uformowac jej design :)
--
Pzdr.
Marek
adam myszor
2007-11-13 16:48:29 UTC
Permalink
Post by Marek
Post by adam myszor
Witam.
Potrzebuję dynamicznie, zamiast ręcznego dodawania w okienku Editing
Chart tworzyć 'Series' na komponecie TChart
Raz ich będzie 5 a raz może być 20 serii danych do wykresu.
Jak to zrobić w kodzie z poziomu Dephi tak aby każda iteracja pętli
tworzyła nową 'Series'?
Jak się do tego odwoływać?
Może tak...... Chart1.SeriesList.Series[i].Add(); ??
Uses Series;
Var
Seria: TLineSeries;
procedure TForm1.Button1Click(Sender: TObject);
Begin
Seria:=TLineSeries.Create(Self); //tu tworzysz serie
Chart1.AddSeries(Seria); //dodajesz nowa serie do Charta
Seria.FillSampleValues(20); //wypelnienie serii losowymi danymi
End;
Kazde nastepne kliniecie Button1 spowoduje dodanie nowej serii. Powyzszy
kod miedzy Begin i End mozesz wrzucic w jakas petle.
Po stworzeniu nowej serii i przed dodaniem jej do Charta wypadaloby
uformowac jej design :)
--
Pzdr.
Marek
Serdeczne dzięki........
Czy można by prosić jeszcze o pomoc w 'uformowaniu design' ??
Potrzebuję typ FastLine
Może poda mi pan jakiś ogólny wzorzec, przykład do formoania podstawowych
własności ??

Pozdrawiam
Adam
Marek
2007-11-13 22:38:02 UTC
Permalink
Post by adam myszor
Post by Marek
Post by adam myszor
Witam.
Potrzebuję dynamicznie, zamiast ręcznego dodawania w okienku Editing Chart tworzyć 'Series' na komponecie TChart
Raz ich będzie 5 a raz może być 20 serii danych do wykresu.
Jak to zrobić w kodzie z poziomu Dephi tak aby każda iteracja pętli tworzyła nową 'Series'?
Jak się do tego odwoływać?
Może tak...... Chart1.SeriesList.Series[i].Add(); ??
Uses Series;
Var
Seria: TLineSeries;
procedure TForm1.Button1Click(Sender: TObject);
Begin
Seria:=TLineSeries.Create(Self); //tu tworzysz serie
Chart1.AddSeries(Seria); //dodajesz nowa serie do Charta
Seria.FillSampleValues(20); //wypelnienie serii losowymi danymi
End;
Kazde nastepne kliniecie Button1 spowoduje dodanie nowej serii. Powyzszy
kod miedzy Begin i End mozesz wrzucic w jakas petle.
Po stworzeniu nowej serii i przed dodaniem jej do Charta wypadaloby
uformowac jej design :)
-- Pzdr.
Marek
Serdeczne dzięki........
Czy można by prosić jeszcze o pomoc w 'uformowaniu design' ??
Potrzebuję typ FastLine
Może poda mi pan jakiś ogólny wzorzec, przykład do formoania podstawowych własności ??
Np. jak chcesz, aby seria byla typu Fast Line, to zamiast TLineSeries piszesz TFastLineSeries.
Masz do wyboru kilka innych typow. Postepujesz z nimi analogicznie.
Wejdz do helpa Delphi, klik na zakladke "Znajdz" i wpisz: TeeChart Series Types, powinien sie
znalezc taki temat w helpie. Otworz go i tam bedziesz mial rodzaje wykresow. Klikajac
ktorys z nich dostaniesz jego Properties, co pozwoli Ci uformowac design wybranego typu
wykresu. Obok ikonki na samej gorze wybranego typu komponentu masz napisane duzymi
literami jakiej klasy jest to seria i taka nazwe wpisujesz w miejsce TLineSeries w kodzie,
ktory Ci podalem wczesniej, oczywiscie bez slowa "Component" :)
--
Pzdr.
Marek
adam myszor
2007-11-14 13:47:16 UTC
Permalink
Post by Marek
Post by adam myszor
Post by Marek
Post by adam myszor
Witam.
Potrzebuję dynamicznie, zamiast ręcznego dodawania w okienku Editing
Chart tworzyć 'Series' na komponecie TChart
Raz ich będzie 5 a raz może być 20 serii danych do wykresu.
Jak to zrobić w kodzie z poziomu Dephi tak aby każda iteracja pętli
tworzyła nową 'Series'?
Jak się do tego odwoływać?
Może tak...... Chart1.SeriesList.Series[i].Add(); ??
Uses Series;
Var
Seria: TLineSeries;
procedure TForm1.Button1Click(Sender: TObject);
Begin
Seria:=TLineSeries.Create(Self); //tu tworzysz serie
Chart1.AddSeries(Seria); //dodajesz nowa serie do Charta
Seria.FillSampleValues(20); //wypelnienie serii losowymi danymi
End;
Kazde nastepne kliniecie Button1 spowoduje dodanie nowej serii. Powyzszy
kod miedzy Begin i End mozesz wrzucic w jakas petle.
Po stworzeniu nowej serii i przed dodaniem jej do Charta wypadaloby
uformowac jej design :)
-- Pzdr.
Marek
Serdeczne dzięki........
Czy można by prosić jeszcze o pomoc w 'uformowaniu design' ??
Potrzebuję typ FastLine
Może poda mi pan jakiś ogólny wzorzec, przykład do formoania podstawowych
własności ??
Np. jak chcesz, aby seria byla typu Fast Line, to zamiast TLineSeries
piszesz TFastLineSeries.
Masz do wyboru kilka innych typow. Postepujesz z nimi analogicznie.
Wejdz do helpa Delphi, klik na zakladke "Znajdz" i wpisz: TeeChart Series
Types, powinien sie
znalezc taki temat w helpie. Otworz go i tam bedziesz mial rodzaje wykresow. Klikajac
ktorys z nich dostaniesz jego Properties, co pozwoli Ci uformowac design wybranego typu
wykresu. Obok ikonki na samej gorze wybranego typu komponentu masz napisane duzymi
literami jakiej klasy jest to seria i taka nazwe wpisujesz w miejsce TLineSeries w kodzie,
ktory Ci podalem wczesniej, oczywiscie bez slowa "Component" :)
--
Pzdr.
Marek
Dzięki...........
Działa jak należy :)

Pozdrawiam
Adam

Loading...