TChart - prikaz particija u obliku pite (Pie)?

TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 12:43 · pre 250 meseci #1

Postavio sam listview u kojem se na TForm.FormCreate ispišu redom particije, recimo:
DISK FILE SYSTEM SIZE ....
C NTFS 9.90GB

Sad bi hteo da se to prikaže u obliku pite na TChart? Zna li neko kako da ono što je u TListview bude u obliku pite predstavljeno u TChart?
Ili da izvučem te podatke u TChart bez TListView, logično, isti je hdd, poklopiće se podaci?!!!

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 12:52 · pre 250 meseci #2

Code:
C:\Program Files\Borland\Delphi7\Demos\TeeChart

:) Pozzz

Potpis

SERVIA NOSTRUM REGNUM!

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 14:40 · pre 250 meseci #3

Naišao sam na taj primer, hvala na odgovoru...
Ali nisam skontao kako da iz TListView prebacim u TChart, kao pita(pie)?!
Nešto tipa:

Code:
Chart1:=ListView.Items

Verovatno nije tako, ne znam, zato pitam...

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 15:31 · pre 250 meseci #4

Sorry,mislio sam da nisi pogledao te primere,ja sam nesto ranije radio sa chart-ovima i disk size,
sad cu pokusam da nadjem to sto sam radio!Pozz

Potpis

SERVIA NOSTRUM REGNUM!

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 16:41 · pre 250 meseci #5

Ajd, ako nadjes, treba mi za neki moj programcic, bas bi se lepo uklopilo...
Otpozdrav...

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 16:58 · pre 250 meseci #6

Evo nesto na brzinu,imam neki ispit,a tako mi se neuci,sve bi radio samo da neucim

nadam se da ce pomoci!Ti bi mogao nesto reci ListView.onClick da ti menja chart tj DiskSize(I),DiskFree(I),...
itd.Gde bi ti I bilo ta particija,tj ItemIndex tog ListView-a!
Pozz

PS.
U codu stoji :

Code:

Total := DiskSize(4);
AmtFree := DiskFree(4);

ti stavi :

Code:

Total := DiskSize(0);
AmtFree := DiskFree(0);

Potpis

SERVIA NOSTRUM REGNUM!

DiskSize.rar184.97k

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 17:34 · pre 250 meseci #7

Kod mene je Chart1:TChart; i kad odradim:

Code:
procedure TFrm.DrivesChange(Sender: TObject; Item: TListItem;
  Change: TItemChange);
var
  AmtFree: Int64;
  Total:   Int64;
  i:integer;
begin
  Total := DiskSize(i);
  AmtFree := DiskFree(i);
  for i:=0 to lvDrives.ItemIndex-1 do

  Chart.Value[0]:=AmtFree;
  Chart.Value[1]:=Total;

  Label1.Caption:='Slobodno je : '+IntToStr(Round(((AmtFree/1024)/1024)))+' mb.';
  Label2.Caption:='Ukupna velicina : '+IntToStr(Round(((Total/1204)/1024)))+' mb. ';

end;

izbaci da

Citat:

[Error] Form.pas(541): Undeclared identifier: 'Value'

i selektuje red:

Code:
Chart.Value[0]:=AmtFree;
Chart.Value[1]:=Total;

P.S. meni treba da ono sto je prikazano u TlistView bude prikazano i na TChart. Ako imam u TListView 2 particije, hteo bih da se to prikaže u TChart kao i zauzetost hdd, odnosno, koliko spada pod C a koliko spada pod D particiju... Ne treba, bar u ovoj fazi izrade, da se prikaže za svaku particiju, pojedinačno, nego samo za hdd i particije na Form.OnCreate , koliko koja zauzima od hdd-a

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 18:16 · pre 250 meseci #8

Ajde da pojednostavimo...
Da zanemarimo TListView, kako da TChart sa legendom mi prikaže hdd. Odnosno, ako imam dve particije da tako i predstavi, particija C zauzima 20% a particija D zauzima 80%?
U legendi bi trebalo pisati 'Naziv_Particije' i procenat koji zauzima!!!

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 19:50 · pre 250 meseci #9

Vrednosti dodajes odgovarajucem TChartSeries objektu, a ne samom grafikonu. U ovom slucaju verovatno:

PieSeries1.AddValue (AmtFree);
PieSeries1.AddValue (Total);

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 20:17 · pre 250 meseci #10

Ja mislim da on zeli samo da prikaze koliko koja particija mu zauzima prostor od ukupne velicine hard diska??
Definisi 2 promenjive,smesti u jednu promenjivu velicinu jedne particije,a u drugu promenjivu velicinu druge particije.
I prikazi ih preko charta.
Ja sam koristio Chartfx i Chart.Value[0]:=AmtFree; .... mi radi fino. Pozzzz

Potpis

SERVIA NOSTRUM REGNUM!

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 20:44 · pre 250 meseci #11

Citat:

Milos D: Vrednosti dodajes odgovarajucem TChartSeries objektu, a ne samom grafikonu. U ovom slucaju verovatno:
PieSeries1.AddValue (AmtFree);
PieSeries1.AddValue (Total);

Ovo mi je pomoglo da odradim, ali nije ono što mi treba... Možete pogledati, upload-ovao sam...
Ovo mi je za C particiju:

Code:

  Total := DiskSize(0);
  AmtFree := DiskFree(0);

  Series1.Add (AmtFree);
  Series1.Add (Total);

a za D:

Code:
Total := DiskSize(4);
  AmtFree := DiskFree(4);
  Series2.Add (AmtFree);
  Series2.Add (Total);

Na osnovu ovo ga, klikom na buton1 i button2, dobijam pie... nisam mislio na to... šta recimo, kad neko ima više particija????

Citat:

Ja mislim da on zeli samo da prikaze koliko koja particija mu zauzima prostor od ukupne velicine hard diska??

Da, upravo to...

Citat:

Definisi 2 promenjive,smesti u jednu promenjivu velicinu jedne particije,a u drugu promenjivu velicinu druge particije.
I prikazi ih preko charta.

Jel možete okačiti primer da vidim konkretno...

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Primer TChart.rar7.99k

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 21:23 · pre 250 meseci #12

Bacih pogleda... pa, rekoh da i ja nesto napisem :)

Ne znam da li sam dobro razumeo, ali mislim da ovo trazis?

P.S.
Program nema proceduru koja ce oderdiri koje su particije na kojem disku... jednostavno krene od diska C i ide sve dok postoji naredni validan disk (uzima i CD i DVD i virualne diskove... sve dok ne naidje na prvi disk koji ne postoji). Ti isparvi deo koji uzima podatke o diskovima kao sto si radio i za TListView.

Potpis

Play Store

Projects.zip1.95k

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 21:45 · pre 250 meseci #13

Da to je i mene malo zbunjivalo DiskSize(1) mi je flopi,pa pocne da krci kad probam da vidim njegovu velicinu!

Potpis

SERVIA NOSTRUM REGNUM!

Primer TChart.rar6.11k

Re: TChart - prikaz particija u obliku pite (Pie)? 04.04.2006. u 21:53 · pre 250 meseci #14

E sad, posle Srkija sam rešio problem...
Svima podjednako hvala na pomoći....

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Re: TChart - prikaz particija u obliku pite (Pie)? 05.04.2006. u 16:41 · pre 250 meseci #15

Kako bi se animacija odradila za BarSeries?
Prikačio sam pa ako neko zna nek pokaže na ovom primeru?!!!
pozzz

P.S. probao sam po primeru na C:\Program Files\Borland\Delphi7\Demos\TeeChart, Delphi 7, ali nekako mi nije jasno, pretrpali su primer sa svim i svačim...

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Primer.rar2.2k

Forum kao aplikacija na telefonu

Srodne teme