hi semua, saya mau nanya ... bagaimana cara mengisi TListView dengan nama file beserta iconnya dalam ukuran kecil trus bagaimana cara mendapatkan list item yang diselect dengan MultiSelect := true; trus bagaimana cara mengisi sebagian arena tlistview dengan warna sendiri sendiri. sementara itu saja. terima kasih sebelumnya.

1. property viewstyle -nya vsReport ? 2.

for i := 0 to ListView1.Items.Count-1 do begin
   if ListView1.Items[i].selected then begin
   ...
   end;
end;

3. set Property OwnerDraw jadi bernilai true trus, implementasi event Handler ListView.OnCustomDrawItem

saya sdh buat file tipe .ini. lalu bagaimana cara menampilkan data tsb ke ListView procedure TfMenuUtama.Button3Click(Sender: TObject); var MyFile:TextFile; dataperbaris:string; begin assignfile(MyFile,extractfilepath(Application.exename)+ 'regdb.ini'); rewrite(MyFile); writeln(MyFile, 'baris satu - Satu'); writeln(MyFile, 'baris dua - Dua'); writeln(MyFile, 'baris tiga - Tiga'); Reset(MyFile); n:=0; while not eof(MyFile) do begin readln(MyFile, dataperbaris); ListView1.Items.Item[n]; n:=n+1; end; CloseFile(MyFile); end;

ribet banget kayaknya.. langsung aja di add.. Reset(MyFile); while not eof(MyFile) do begin readln(MyFile, dataperbaris); ListView1.Items.Add(dataperbaris); end; CloseFile(MyFile);

nambahin .... pake delimiter ya ? Reset(MyFile); while not eof(MyFile) do begin readln(MyFile, dataperbaris); delimitedtext := dataperbaris; ListView1.Items.Add(delimitedtext[1]); ListView1.Items.Subitems.add(delimitedtext[2]); ListView1.Items.Subitems.add(delimitedtext[3]); end; CloseFile(MyFile); begitukah ?

procedure TfMenuUtama.Button3Click(Sender: TObject); var MyFile:TextFile; dataperbaris:string; begin assignfile(MyFile,extractfilepath(Application.exename)+ 'regdb.ini'); rewrite(MyFile); writeln(MyFile, 'baris satu - Satu'); writeln(MyFile, 'baris dua - Dua'); writeln(MyFile, 'baris tiga - Tiga'); Reset(MyFile); while not eof(MyFile) do begin readln(MyFile, dataperbaris); ListView1.Items.Add('dataperbaris'); //error to many actual parameter //ListView1.Items.Add(); bisa tp tidak menampilkan datanya end; CloseFile(MyFile); end; Masih tampil error

ListView1.Items.Add('dataperbaris'); //error to many actual parameter jangan pake tanda petik lagi.. dan kelupaan.. itu pakenya ITEM, bukan ITEMS ListView1.Item.Add('dataperbaris');

ListView1.Item.Add('dataperbaris'); masih error undeclared Item

cari properties yg selaras dengan tujuan dikau... explore... explore... :mrgreen:

ini kode yg betul rocedure TfMenuUtama.Button3Click(Sender: TObject); var MyFile:TextFile; dataperbaris:string; begin assignfile(MyFile,extractfilepath(Application.exename)+ 'regdb.ini'); rewrite(MyFile); writeln(MyFile, 'baris satu - Satu'); writeln(MyFile, 'baris dua - Dua'); writeln(MyFile, 'baris tiga - Tiga'); Reset(MyFile); while not eof(MyFile) do begin readln(MyFile, dataperbaris); ListView1.Items.Add.Caption:=dataperbaris; end; CloseFile(MyFile); end;