Filas de distintos colores en un dbgrip.

[G.A.R.S]

Buenas soy nuevo en Delphi, estoy haciendo una aplicacion sencilla donde se lee una variable que determina una accion y dependiendo de esta la fila del dbgrip deberia cambiar a un color especifico, para que el cliente a simple vista pueda saber el status.

Mucho sabri agradecerle su colaboracion.

G.A.R.S.

[AGAG4]

Dentro del evento gridDrawColumnCell Prueba Esto G.A.R.S.

if Condicion then begin
//Elegir Color
grid.Canvas.Brush.Color := clRed;
//Pintar CELDA Seleccionada
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;


Saludos....

[gmontes]

algo asi:

procedure TFSelec.grdListadoDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
begin
case (DMSIU.cdsMaster.FieldByName('ntipocta').AsInteger) of
0:grdListado.Canvas.Brush.Color:=clYellow;
1:grdListado.Canvas.Brush.Color:=clMoneyGreen;
2:grdListado.Canvas.Brush.Color:=clSkyBlue;
3:grdListado.Canvas.Brush.Color:=clMedGray;
end;
grdListado.Canvas.FillRect(Rect);
grdListado.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

en el ondrawcolumncell del dbgrid