Delphi cxGrid加行号

 1 procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo; 
 2   var ACanvas: TcxCanvas; var ADone: boolean); 
 3 
 4 uses cxLookAndFeelPainters; 
 5 
 6 procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo; 
 7   var ACanvas: TcxCanvas; var ADone: boolean); 
 8 var 
 9   AIndicatorViewInfo: TcxGridIndicatorRowItemViewInfo; 
10   ATextRect: TRect; 
11   AFont: TFont; 
12   AFontTextColor, AColor: TColor; 
13 begin 
14   AFont := ACanvas.Font; 
15   AColor := clBtnFace; 
16   AFontTextColor := clWindowText ; 
17 if (AViewInfo is TcxGridIndicatorHeaderItemViewInfo) then begin 
18   ATextRect := AViewInfo.Bounds; 
19   InflateRect(ATextRect, -1, -1); 
20      
21    ASender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.Bounds, 
22     ATextRect, [], cxBordersAll, cxbsNormal, taCenter, vaCenter, 
23     False, False, ‘序号‘, AFont, AFontTextColor, AColor); 
24     ADone := True; 
25   end ; 
26   if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then 
27     Exit; 
28   ATextRect := AViewInfo.ContentBounds; 
29   AIndicatorViewInfo := AViewInfo as TcxGridIndicatorRowItemViewInfo; 
30   InflateRect(ATextRect, -1, -1); 
31   ASender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds, 
32     ATextRect, [], [bBottom, bLeft, bRight], cxbsNormal, taCenter, vaCenter, 
33     False, False, IntToStr(AIndicatorViewInfo.GridRecord.Index + 1), 
34     AFont, AFontTextColor, AColor); 
35   ADone := True; 
36 ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas, ATextRect, AIndicatorViewInfo.IndicatorKind); 
37 end; 

class procedure TcxCustomLookAndFeelPainter.DrawIndicatorImage(ACanvas: TcxCanvas; 
  const R: TRect; AKind: TcxIndicatorKind); 
var 
  X, Y: Integer; 
begin 
  if AKind = ikNone then Exit; 
  with cxIndicatorImages, R do 
  begin 
    X := (Left + Right - Width);              //靠右 
    Y := (Top + Bottom - Height) div 2;       //居中 
  end; 
  cxIndicatorImages.Draw(ACanvas.Canvas, X, Y, Ord(AKind) - 1); 
end; 

1 procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell( 
2   Sender: TcxGridTableView; ACanvas: TcxCanvas; 
3   AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); 
4 begin 
5      SetRowNumber(Sender,AviewInfo,ACanvas,ADone); 
6 end;