请各位帮我看看这段代码

J198728 2010-08-27 10:28:08
这个水平有限,各位哥哥帮我注释一下啊,感激不尽。。后边还有一些,还得有劳各位,越详细越好,我是菜鸟
procedure TForm1.cxGrid4DBTableView1CustomDrawIndicatorCell(
Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
AIndicatorViewInfo: TcxGridIndicatorRowItemViewInfo;
ATextRect: TRect;
AStyle: TcxStyle;
begin
if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
Exit;
ATextRect := AViewInfo.ContentBounds;
AIndicatorViewInfo := AViewInfo as TcxGridIndicatorRowItemViewInfo;
InflateRect(ATextRect, -2, -1);
if AIndicatorViewInfo.GridRecord.Selected then
AStyle := styleSelected
else
AStyle := styleNormal;
Sender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds,
ATextRect, [], cxBordersAll, cxbsNormal, taCenter, vaCenter,
False, False, IntToStr(AIndicatorViewInfo.GridRecord.Index + 1),
AStyle.Font, AStyle.TextColor, AStyle.Color);
ADone := True;
end;
...全文
70 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
J198728 2010-08-30
  • 打赏
  • 举报
回复
这个回答,有点无语啊,结贴了吧。。
kye_jufei 2010-08-27
  • 打赏
  • 举报
回复
這是CXGRID的重繪事件............

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧