首页 > 代码库 > Delphi cxGrid加行号

Delphi cxGrid加行号

2024-07-12 14:15:27   222人阅读

 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;
View Code

 

如果你不要行标志的话,你可以不改控件 
直接注释掉这一行: ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas, ATextRect, AIndicatorViewInfo.IndicatorKind); 
要标志的话,在DrawIndicatorImage 从这里跟进去(Ctrl+左键单击) 
在 cxLookAndFeelPainters 单元中作如下修改: 

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;
View Code

 

注意,我已注明靠右的那一行, 就是去掉 DIV 2 了, 
还要改一个地方: 
SKIN控件目录下的dxSkinLookAndFeelPainter单元,找到 
TdxSkinLookAndFeelPainter.DrawIndicatorImage 函数 
的 
OffsetRect(ARect, (Left + Right - cx div 2) , (Top + Bottom - cy) div 2); 
这一行,将 (Left + Right - cx div 2) 改为(Left + Right - cx) 也是去掉 div 2 就是靠右; 
修改后: OffsetRect(ARect, (Left + Right - cx) , (Top + Bottom - cy) div 2); 

使用 

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;
View Code


另外序号列的列宽最好改为35!


效果图:


联系
我们