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;