Tambahkan Warna ke Tabel Data Delphi

Penulis：Eve Cole Waktu Pembaruan：2025-02-19 12:48:01

Kontrol Grid (DBGRID) sering digunakan di Delphi. Dalam item tabel unit di kisi, dll. Mari kita gunakan contoh sederhana untuk memberi tahu Anda cara melakukannya.

Misalnya, jika ada pengembalian dana buku di musim semi, itu diwakili oleh merah, dan jika ada pengembalian dana buku di musim gugur, itu diwakili oleh kuning (Gambar 1)

Gambar 1

Persyaratan tersebut dapat dengan mudah dicapai dengan menggunakan fungsi pengambilan sendiri DBGRID. Pengguna dapat menangani acara OnDrawColumncell DBGRID, di mana mereka mencapai efek khusus. Untuk menentukan apakah catatan memenuhi persyaratan, Anda dapat menggunakan properti Datalink DBGRID untuk mendapatkan data, tetapi properti Datalink DBGRID adalah anggota yang dilindungi dan harus dipanggil dalam subclass dari TcustomDBGrid.

Jenis tmycustomdbgrid = kelas (tcustomdbgrid); : DataLink.Fields [5] .Asstring; : = clred lain jika sqjts <> '' 'lalu // jumlah buku musim gugur yang dikembalikan> 0 ditampilkan dalam kanvas kuning.brush.color: = clyellowe canvas.brush.color: = clwhite; = canvas.fillrect (rect);

Metode ini dapat memperluas berbagai metode modifikasi dari kontrol lain, seperti warna yang berbeda dapat digunakan sesuai dengan nilai item data, dan warna yang berbeda dapat ditampilkan sesuai dengan nomor catatan. Singkatnya, mengaplikasikan objek seperti kanvas, Rect dan bitmap dapat menghiasi berbagai kisi dengan cara yang penuh warna.