设计一个表格控件,总在这个过程出错,不知道原因出在哪里,高手帮我找找原因?
来源:互联网 发布:淘宝协商历史 编辑:程序博客网 时间:2024/04/28 19:19
procedure TDBDotGrid.GetCellParams(Column: TColumnEh; AFont: TFont;
var Background: TColor; State: TGridDrawState);
begin
if Column.UseGridStyle then
Case FGridStyleIndex of
1:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := $00AAE8EE //第二种颜色
else Background := $00D2FAFA; //第一种颜色
end;
end;
2:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := $00F7F7F7 //第二种颜色
else Background := $00FFE7E7; //第一种颜色
end;
end;
3:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := clWhite //第二种颜色
else Background := $DEF7F7; //第一种颜色
end;
end;
end;
inherited GetCellParams(Column, AFont, Background, State);
end;
var Background: TColor; State: TGridDrawState);
begin
if Column.UseGridStyle then
Case FGridStyleIndex of
1:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := $00AAE8EE //第二种颜色
else Background := $00D2FAFA; //第一种颜色
end;
end;
2:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := $00F7F7F7 //第二种颜色
else Background := $00FFE7E7; //第一种颜色
end;
end;
3:
begin
if not (gdSelected in State) then
begin
if SumList.RecNo mod 2 = 0 then
Background := clWhite //第二种颜色
else Background := $DEF7F7; //第一种颜色
end;
end;
end;
inherited GetCellParams(Column, AFont, Background, State);
end;
- 设计一个表格控件,总在这个过程出错,不知道原因出在哪里,高手帮我找找原因?
- 在写javascript时找不到哪里出错的可能原因
- 在一个活动中调用碎片里的方法,不知道哪里出错了
- 不知道这个索引错在哪里了?
- 不知道在哪里下载的点我!
- 一个子控件在父控件上不显示的几个大概原因
- PAT 1016(一个点也没有过Σ( ° △ °|||)︴,不知道问题出在哪里)
- 大虾们,帮我看阿奎那这段SQL语句问题出在哪里了
- 跪请众朋友帮我找下问题出在哪里?--1
- 跪请众朋友帮我找下问题出在哪里?--2
- 跪请众朋友帮我找下问题出在哪里?--3
- 跪请众朋友帮我找下问题出在哪里?--4
- POJ1269(WA)实在不知道问题在哪里了。。。麻烦帮看。。
- 希望大家帮忙偶找找这个奇怪错误的原因!
- 毕业后五年拉开差距 原因在哪里
- 请高手指点,PHP问题,解密出一个文件,不知道这个是什么用的,怎么使用,谢谢好友指点
- 我哭。。。我的blog不能访问了。不知道什么原因,只能再申请一个。。。。
- 我自己编写的一个简单的聊天服务器程序 但是不能跑 希望大家帮我看看原因在哪
- 项目问题2
- Python的IDLE工具安装
- do not try to modified the value in const region
- 模板语言NVelocity的注意点(1)
- 《ASP.NET 本质论》HttpApplication的处理管道
- 设计一个表格控件,总在这个过程出错,不知道原因出在哪里,高手帮我找找原因?
- linux内核参数"vga="如何影响显示模式
- truncate
- 回文字符串
- 使用UUID和LABEL挂载磁盘
- 去除趋势杀软的退出密码
- Dreamweaver安装jquery插件
- 终于可以发表文章了
- 《Sed 和 Awk》(第二版)学习系列之第四章