Terkadang kita selalu harus mengubah beberapa pengaturan default saat menggunakan Listview Delphi7. Sekarang kita mengumpulkannya dan merangkumnya sebagai berikut.
MultiSelect := True; memungkinkan Tampilan Daftar untuk memilih beberapa baris secara bersamaan
GridLines := Benar; menyebabkan Tampilan Daftar menampilkan garis kisi
ViewStyle := vsReport; menampilkan daftar detail item data
HideSelection := Benar; Ketika tampilan daftar kehilangan fokus, baris yang dipilih tidak disorot.
//Atur prosedur warna TForm1.ListView1CustomDrawItem(Pengirim: TCustomListView; Item: TListItem; Status: TCustomDrawState; var DefaultDraw: Boolean);var subRect, itemRect: TRect; lalu mulai Sender.Canvas.Font.Color := clRed; //Warna font baris yang dipilih Sender.Canvas.Font.Color := clgray; //clGreen; Warna font baris yang dipilih dimulai dari Sender.Canvas.Font.Color := clNavy; Brush.Color := clWhite; //akhir warna highlight baris normal; itemRect := Item.DisplayRect(drLabel); SubItem := 0 hingga (Pengirim sebagai TListView).Columns.Count - 1 dimulai dari subRect.Left := itemRect.Left; untuk i := 1 hingga SubItem dimulai dari subRect.Left := subRect.Left + (Pengirim sebagai TListView) .Column[i - 1].Lebar; subRect.Right := subRect.Right + SubRect.Left + (Pengirim sebagai TListView).Column[i].Width; jika SubItem = 0 maka mulai subRect.Right := subRect.Right + 2; end else Sender.Canvas.TextRect(subRect, subRect.Left, subRect.Top, Barang.SubItem[SubItem - 1]); akhir;akhir;
//Urutkan fungsi pribadi { Deklarasi pribadi } SortCol: Integer: Integer; prosedur TForm1.ListView1ColumnClick(Pengirim: TObject; Kolom: TListColumn);mulai SortCol := Column.Index; 1 else SortWay := 1; (Pengirim sebagai TCustomListView).AlphaSort;akhir;prosedur TForm1.ListView1Compare(Pengirim: TObject; Item1, Item2: TListItem; Data: Integer; var Bandingkan: Integer);var t: Integer;mulai jika (SortCol = 0) lalu mulai Bandingkan := SortWay * CompareText(Item1.Caption, Item2.Caption); akhiri lagi dimulai t := SortCol - 1; Bandingkan := SortWay * CompareText(Item1.SubItems[t], Item2.SubItems[t]);Ada masalah dengan fungsi ini: pengurutan numerik akan mirip dengan karakter, misalnya: 1,10,102,3,34,356...Pembaca yang tertarik dapat memperbaikinya.