Delphi7中cxGrid控件自动编号

来源：互联网发布：床垫哪个好知乎编辑：程序博客网时间：2024/06/08 10:47

在cxGrid的GridView属性设置事件onGridCustomDrawIndicatorCell，事件关键代码如下：

procedure TfrmHidden_Trouble.GridCustomDrawIndicatorCell(    Sender: TcxGridTableView; ACanvas: TcxCanvas;    AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);  var    AIndicatorViewInfo: TcxGridIndicatorRowItemViewInfo;    ATextRect: TRect;    aCV:TcxCanvas;  begin    inherited;    //======引用单元  cxLookAndFeelPainters    if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then      Exit;    aCV:=ACanvas ;    ATextRect := AViewInfo.ContentBounds;    AIndicatorViewInfo := AViewInfo as TcxGridIndicatorRowItemViewInfo;    InflateRect(ATextRect, -2, -1);    Sender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds,      ATextRect, [], cxBordersAll, cxbsNormal, taCenter, TcxAlignmentVert(vaCenter),      False, False, IntToStr(AIndicatorViewInfo.GridRecord.Index + 1),    acv.Font,acv.font.Color,acv.Brush.color );    ADone := True;  end;