Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
var grid:TDBGrid; begin grid := TDBGrid(sender); If TablaCampo.asinteger = 1 then begin grid.canvas.brush.color := clteal; grid.canvas.Font.color := clwhite; end; grid.defaultDrawColumnCell(rect,Datacol,column,state); end;