TMyCxGrid = class(TObject)

    class procedure DrawIndicatorCell( Sender: TcxGridTableView; ACanvas: TcxCanvas;

      AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);

  end;

class procedure TMyCxGrid.DrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas;

  AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);

var

  FValue: string;

  FBounds: TRect;

  //method

  AIndicatorViewInfo: TcxGridIndicatorRowItemViewInfo;

  ATextRect: TRect;

  AFont: TFont;

  AFontTextColor, AColor: TColor;

begin

  AFont := ACanvas.Font;

  AColor := clBtnFace;

  AFontTextColor := clWindowText;

  if (AViewInfo is TcxGridIndicatorHeaderItemViewInfo) then

  begin

    ATextRect := AViewInfo.Bounds;

    InflateRect(ATextRect, -, -);

    Sender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.Bounds,

      ATextRect, [], cxBordersAll, cxbsNormal, taCenter, TcxAlignmentVert.vaCenter,

      False, False, 'NO',AFont, AFontTextColor, AColor);

    ADone := True;

  end;

  if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then

    Exit;

  ATextRect := AViewInfo.ContentBounds;

  AIndicatorViewInfo := AViewInfo as TcxGridIndicatorRowItemViewInfo;

  InflateRect(ATextRect, -, -);

  if AIndicatorViewInfo.GridRecord.Selected then

    AFont.Style := ACanvas.Font.Style + [fsBold]

  else

    AFont.Style := ACanvas.Font.Style - [fsBold];

  Sender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds,

    ATextRect, [], [bBottom, bLeft, bRight], cxbsNormal, taCenter, TcxAlignmentVert.vaCenter,

    False, False, IntToStr(AIndicatorViewInfo.GridRecord.Index + ),

    AFont, AFontTextColor, AColor);

  ADone := True;

end;

tvList.OptionsView.Indicator:=True;

tvList.OptionsView.IndicatorWidth:=;

tvList.OnCustomDrawIndicatorCell:= TMyCxGrid.DrawIndicatorCell;