with dm.tableracun do begin
// Upit: ako uzimas polja iz samo jedne tabele ne treba ti ono r.XXXX
sql.text:=' select naziv, datum, vrijeme, kolicina ' +
'from racun' ;
Open;
// Onemogucavamo prikaz izmena na ekranu dok popunjavamo list box
// kako bi rad bio sto brzi
ListBox1.Items.BeginUpdate;
DisableControls;
try
while not eof do begin
for i:= 0 to Fields.Count-1 do
s:= s+', '+Field[i].DisplayText;
ListBox1.Items.Add(s); // Dodajemo jedan red u listbox
Next;
end;
finally
// Ukljucujemo prikaz
ListBox1.Items.EndUpdate;
EnableControls;
end;
end;
Na sve ovo treba dodati i kod koji bi u listbox-u poravnao kolone jer ovako je svaki red za sebe itd.
morlic: Na sve ovo treba dodati i kod koji bi u listbox-u poravnao kolone jer ovako je svaki red za sebe itd.
Da li ima kakav lak nacin da se ovo uradi? Koliko ja vidim moze se poravnati samo ako imamo fixed-width font za listbox, ili da se radi rucni Paint listboxa. Imas li kakvih iskustava s tim?
ss.
When something is hard to do, then it's not worth doing.
Srki je u pravu, moj savet je ListView jer dosta olaksava posao u odnosu na npr. ListBox. Mozes da napravis i jednu pomocnu proceduru kojoj prosledjujes jedan TListView i TDataSet i koja ce izvrsiti ucitavanje. Tako imas gotovo resenje za kasnije, koje je nezavisno od koriscenog naslednika TDataSet-a itd.