要繼承CxGrid中的

procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(
Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
begin

end;

過程，我想重寫他得到在最前面一列顯示列號的效果，找好久都找不到這個過程的原型。請高手幫幫忙提示提示！

procedure TMainForm.tvJiBenCustomDrawIndicatorCell(Sender: TcxGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo;
var ADone: Boolean);
var
FValue: string;
FBounds: TRect;
begin
FBounds := AViewInfo.Bounds;
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
begin
ACanvas.FillRect(FBounds);
ACanvas.DrawComplexFrame(FBounds, clWhite, clBtnShadow, cxBordersAll, 1);
FValue:=IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index 1);
InflateRect(FBounds, -3, -2); //Platform specific. May not work on Linux.
ACanvas.Font.Color := clBlack;

ACanvas.Brush.Style := bsClear;
ACanvas.DrawText(FValue, FBounds, cxAlignRight or cxAlignVCenter);
ADone := True;
end;
end;