Mengubah Tampilan DBGRID pada Delphi Lengkap dengan Gambar
Sebelumnya saya ucapkan terimakasih sudah mampir di Blog ZonaTiga ini, pada tutorial sebelumnya saya berbagi tutorial tentang
Input Huruf Kapital Otomatis di delphi
dan
Format Ribuan Otomatis pada delphi
Pada kesempatan kali ini saya akan berbagi tutorial tentang tampilan DBGRID pada delphi, sebenarnya Saya sendiri bosan dengan tampilan warna dari DBGRID bawaan delphi ini yang monoton dan itu-itu saja.
Untuk itu mari kita coba melakukan sedikit modifikasi pada warna tampilan DBGrid. Caranya cukup simpel, hanya dengan menambahkan code/syntak didalam event onDrawColoumCell milik DBGRID.
Logikanya data dengan nomer ganjil warna tampilannya berbeda dengan data nomer genap.
Berikut tutorial Mewarnai Tampilan DBGRID pada delphi :
1. klik 2x pada event onDrawColoumCell milik DBGRID.2. Tambahkan dua variabel dibawah seperti dibawah ini:
gridwarna : TDBGrid;
warnarow : integer;
warnarow : integer;
3. Tambahkan code/syntak dibawah ini setelah Begin :
gridwarna := sender as TDBGrid;
warnarow := gridwarna.DataSource.DataSet.RecNo;
if Odd(warnarow) then
gridwarna.Canvas.Brush.Color := clyellow // Ganti Warnanya Sesuai Kebutuhan
else
gridwarna.Canvas.Brush.Color := clgreen; // Ganti Warnanya Sesuai Kebutuhan
gridwarna.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;
tampilan lengkap syntaknya:warnarow := gridwarna.DataSource.DataSet.RecNo;
if Odd(warnarow) then
gridwarna.Canvas.Brush.Color := clyellow // Ganti Warnanya Sesuai Kebutuhan
else
gridwarna.Canvas.Brush.Color := clgreen; // Ganti Warnanya Sesuai Kebutuhan
gridwarna.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;
Demikianlah Artikel Mengubah Tampilan DBGRID pada Delphi Lengkap dengan Gambar
Sekianlah artikel Mengubah Tampilan DBGRID pada Delphi Lengkap dengan Gambar kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.
Judul : Mengubah Tampilan DBGRID pada Delphi Lengkap dengan Gambar
link : Mengubah Tampilan DBGRID pada Delphi Lengkap dengan Gambar
0 Response to "Mengubah Tampilan DBGRID pada Delphi Lengkap dengan Gambar"
Posting Komentar