Bagaimana cara mengubah warna datagrid di Delphi? Sama seperti kontrol nama yang sama di .net.
-------------------------------------------------- ----------------------
Tampaknya menulis kode di acara OnDrawDataCell.
-------------------------------------------------- ----------------------
Prosedur TFORM1.DBGRIDDRAWCOLUMNCELL (Pengirim: Tobject;
Const Rect: Trect;
Status: tgriddrawstate);
Mulai
jika dbgrid2.datasource.dataset.recno mod 2 = 1 maka
Mulai
Dbgrid2.canvas.font.color: = clblue;
Dbgrid2.canvas.brush.color: = clyellow;
akhir
lagi mulai
Dbgrid2.canvas.font.color: = clred;
Dbgrid2.canvas.brush.color: = clgradientactiveCaption;
akhir;
Dbgrid2.defaultdrawcolumncell (rect, datacol, kolom, status);
akhir;