delphi 如何让tcxGrid左边显示序号
来源:互联网 发布:淘宝联盟怎么分享图文 编辑:程序博客网 时间:2024/05/16 15:57
第一步:
设置cxgrid的属性, OptionsView.Indicator = True
第二步:
写OnCustomDrawIndicatorCell方法
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;
阅读全文
0 0
- delphi 如何让tcxGrid左边显示序号
- 如何让窗口左边默认显示资源管理器
- myeclipse 如何显示序号
- 让superfish的菜单在左边显示
- 如何让UITextFeild控件左边留空白
- 如何让DataGrid自动生成序号
- tcxGrid状态字段显示成汉字
- <c:forEach >中如何显示序号
- 在ListBox的Item左边从上到下显示序号1,2,3....N
- UITableView如何让cell的分割线左边不缩进
- UITableView如何让cell的分割线左边不缩进
- 如何让表单文本框左边标签文本右对齐---label
- 如何让SELECT 查询结果额外增加自动递增序号
- 如何让SELECT 查询结果额外增加自动递增序号
- 如何让SELECT 查询结果额外增加自动递增序号
- 如何让SELECT 查询结果额外增加自动递增序号
- 如何让SELECT 查询结果额外增加自动递增序号
- 如何让SELECT 查询结果额外增加自动递增序号
- Zookeeper客户端Curator使用详解
- spring-AOP详解
- 十大最受欢迎的 React Native 应用开发编辑器
- IIS组件组建网站部署步骤
- Neighbor 隔壁
- delphi 如何让tcxGrid左边显示序号
- BZOJ 1040 [ZJOI 2008] 树DP 解题报告
- ubuntu安装Jenkins使用
- CString转COLORREF
- 在导入sklearn包是报错
- 一个类能够克隆需要满足的条件
- logback.xml 配置总结
- zabbix微信报警脚本
- 每天一python 题 0004