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
|