Buenas...
Una forma es la siguiente:
Lo primero... establece la propiedad "DefaultDrawing" del DGrid a True.
Y lo segundo... en el evento "OnDrawColumnCell" incluye un código como este:
If DBGrid1.DataSource.DataSet.FindField('REC').AsBoolean = True then
begin
DBGrid1.Canvas.Brush.Color := clGreen;
end
else
begin
DBGrid1.Canvas.Brush.Color := clRed;
end;
DBGrid1.Canvas.FillRect(Rect
Esto comprueba el valor del campo REC y dependiendo de si es True o False colorea de celda correspondiente al campo REC en Verde o en Rojo.
¿Te resultó así claro?
Saludos
|