客户专线:400-641-8864 | 在线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;



猜您喜欢:     易当家ERP简介     E8ERP系统含进销存、生产、财务     软件定制及其流程

ERP,ERP系统,ERP软件
ERP软件 | 易助ERP | 鼎捷软件 | 神州数码 |
Copyright© 2008-2016 深圳市易当家软件开发有限公司. All Rights Reserved. 粤ICP备14043283号