Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Punjenje TListView-a?!

[es] :: Pascal / Delphi / Kylix :: Punjenje TListView-a?!

[ Pregleda: 2711 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.neobee.net.



Profil

icon Punjenje TListView-a?!25.06.2006. u 13:55 - pre 216 meseci
Pogledajte primer i bice vam jasno sta mi treba. Treba da iz tri TEdita u TListView unesem vrednosti,
ali da mi se redni broj automatski pravi kako unosim vrednosti?

P.S. vrsio sam pretragu foruma ali nisam nasao ono sto mi treba...

Hvala unapred...
Prikačeni fajlovi
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
*.vdial.verat.net.

Sajt: www.diy-fever.com


+1 Profil

icon Re: Punjenje TListView-a?!25.06.2006. u 17:35 - pre 216 meseci
var Item: tListItem;
begin
Item := List.Items.Add;
Item.Caption := IntToStr(List.Count);
Item.SubItems.Add(Edit1.Text);
Item.SubItems.Add(Edit2.TExt);
end;
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.neobee.net.



Profil

icon Re: Punjenje TListView-a?!25.06.2006. u 21:16 - pre 216 meseci
OK, ovo lepo funkcionise, ali kako jos da dodam redne brojeve, npr:
1 Nesto Nesto...
2 Nesto Nesto...
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.



Profil

icon Re: Punjenje TListView-a?!26.06.2006. u 10:49 - pre 216 meseci
I meni bi to bilo interesantno...
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Punjenje TListView-a?!26.06.2006. u 12:18 - pre 216 meseci
Jedan od nacina.
Prikačeni fajlovi
 
Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.neobee.net.



Profil

icon Re: Punjenje TListView-a?!26.06.2006. u 14:25 - pre 216 meseci
To sto si odradio je OK, ali za TListBox, a meni treba za TListView... Pogledaj prvi primer.
 
Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.neobee.net.



Profil

icon Re: Punjenje TListView-a?!26.06.2006. u 15:13 - pre 216 meseci
Evo nesto sam sam smislio, ali treba pogledati, mislim da se to drugacije moze napisati, ali i ovako radi posao.
Pa, ako znate, ispravite...
Prikačeni fajlovi
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Punjenje TListView-a?!26.06.2006. u 18:55 - pre 216 meseci
Zasto nisi ispravio primer da radi sa ListView?

Evo istog primera koji radi i za ListView.
Prikačeni fajlovi
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
*.vdial.verat.net.

Sajt: www.diy-fever.com


+1 Profil

icon Re: Punjenje TListView-a?!26.06.2006. u 20:10 - pre 216 meseci
Citat:
OK, ovo lepo funkcionise, ali kako jos da dodam redne brojeve, npr:
1 Nesto Nesto...
2 Nesto Nesto...


ne razumem, sta mu hvali. pravi redne brojeve?!

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.



Profil

icon Re: Punjenje TListView-a?!26.06.2006. u 20:51 - pre 216 meseci
Verovatno je ovo bilo u pitanju:
Code:

procedure TfrmMain.lstTestDrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
  lstT: TListView;
  intNoWidth: Integer;
  strNoText: String;
begin
  if Sender is TListView then
  begin
    lstT := Sender as TListView;
    strNoText := IntToStr(Item.Index + 1) + '.  ';
    intNoWidth := Length(IntToStr(lstT.Items.Count)) + 3;
    while Length(strNoText) < intNoWidth do
      strNoText := '0' + strNoText;
    strNoText := strNoText + Item.Caption;
    lstT.Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, strNoText);
  end;
end;

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

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.neobee.net.



Profil

icon Re: Punjenje TListView-a?!29.06.2006. u 14:01 - pre 216 meseci
Jos jedno pitanje, kad dodajem u TListView redove,npr:
1|DVDName|120
2|DVDName|120
3|DVDName|120
---------------
Item.Caption|[0]|[1] - SubItem
kako da saberem 120+120+120=360???
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Punjenje TListView-a?!

[ Pregleda: 2711 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.