给TcxGrid表格增加行号|ERP|ERP软件|ERP系统

客户专线：400-641-8864 / 153-2383-7083 | 在线QQ：987837344

首页

易当家ERP

鼎捷ERP

行业方案

实施方法

联系我们

给TcxGrid表格增加行号

//cxGrid加行标，找到下列事件，把Var后面的代码完整拷贝过去就可以了。
procedure TMsgBox_Form.cgDetCustomDrawIndicatorCell(
  Sender: TcxGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
  FValue: string;
  FBounds: TRect;
begin
  if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
  begin
    FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
    FBounds := AViewInfo.Bounds;
    ACanvas.FillRect(FBounds);
    ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1);
    InflateRect(FBounds, -1, -1);
    ACanvas.Font.Color := clBlack;
    ACanvas.Brush.Style := bsClear;
    ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
    ADone := True;
  end;
end;

猜您喜欢：　　　易当家E9ERP 　　　易当家E8ERP 　　　微信公众号开发