algo asi te puede servir?
Código Delphi
[-]
procedure TForm1.DBGDatosDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if State = [] then
begin
TDBGrid(Sender).Canvas.Font.Color := clBlack;
if TblArticulosARTI_BAJA.AsBoolean then
begin
TDBGrid(Sender).Canvas.Font.Color := clWhite;
TDBGrid(Sender).Canvas.Brush.Color := clGreen;
end;
end
else
TDBGrid(Sender).Canvas.Font.Color := clWhite;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
lo uso para mostrar los articulos dados de baja.