¿Cómo cambiar el color del datagrid en Delphi? Al igual que el mismo control de nombre en .NET.
-------------------------------------------------- ----------------------
Parece estar escribiendo código en el evento OnDrawDatacell.
-------------------------------------------------- ----------------------
Procedimiento tForm1.dbGridDrawColumncell (remitente: tobject;
const rect: trect;
Estado: TGridDrawState);
Comenzar
Si dbgrid2.datasource.dataset.recno mod 2 = 1 entonces
Comenzar
Dbgrid2.canvas.font.color: = clblue;
Dbgrid2.canvas.brush.color: = clyellow;
fin
De lo contrario, comience
Dbgrid2.canvas.font.color: = clred;
Dbgrid2.canvas.brush.color: = clgradientActivecaption;
fin;
DbGrid2.DefaultDrawColumncell (RECT, DataCol, columna, estado);
fin;