Delphi7中cxGrid控件自动编号

最新推荐文章于 2024-03-20 20:24:27 发布

最新推荐文章于 2024-03-20 20:24:27 发布 · 303 阅读

Delphi 专栏收录该内容

28 篇文章

订阅专栏

本文介绍如何在cxGrid中通过设置GridView属性并使用onGridCustomDrawIndicatorCell事件来自定义行号的显示样式。通过具体示例代码展示了如何利用cxLookAndFeelPainters进行单元格的绘制。

在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;