cxgrid单击某一行，此行增加背景色

procedure TShoesErp_Sales_SalesOrderForm.ABcxGrid1ABcxGridDBBandedTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin

if AViewInfo.RecordViewInfo.Index=ABcxGrid1ABcxGridDBBandedTableView1.DataController.GetFocusedRowIndex then
acanvas.Brush.Color:=clgreen;
end;