TChart - prikaz particija u obliku pite (Pie)?

[ Miloš Baić @ 04.04.2006. 11:43 ] @

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?!!!

[ IvanBeograd @ 04.04.2006. 11:52 ] @

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

:) Pozzz

[ Miloš Baić @ 04.04.2006. 13:40 ] @

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...

[ IvanBeograd @ 04.04.2006. 14:31 ] @

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

[ Miloš Baić @ 04.04.2006. 15:41 ] @

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

[ IvanBeograd @ 04.04.2006. 15:58 ] @

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);

_{[Ovu poruku je menjao IvanBeograd dana 04.04.2006. u 17:06 GMT+1]}

_{[Ovu poruku je menjao IvanBeograd dana 04.04.2006. u 17:09 GMT+1]}

[ Miloš Baić @ 04.04.2006. 16:34 ] @

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

_{[Ovu poruku je menjao loshmiscg dana 04.04.2006. u 17:54 GMT+1]}

[ Miloš Baić @ 04.04.2006. 17:16 ] @

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!!!

[ Milos D @ 04.04.2006. 18:50 ] @

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

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

_{[Ovu poruku je menjao Milos D dana 04.04.2006. u 20:01 GMT+1]}

[ IvanBeograd @ 04.04.2006. 19:17 ] @

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

[ Miloš Baić @ 04.04.2006. 19:44 ] @

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...

_{[Ovu poruku je menjao loshmiscg dana 04.04.2006. u 21:06 GMT+1]}

[ Srki_82 @ 04.04.2006. 20:23 ] @

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.

[ IvanBeograd @ 04.04.2006. 20:45 ] @

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

[ Miloš Baić @ 04.04.2006. 20:53 ] @

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

[ Miloš Baić @ 05.04.2006. 15:41 ] @

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...

_{[Ovu poruku je menjao loshmiscg dana 06.04.2006. u 01:27 GMT+1]}