procedure TMainFrm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if odd(RecNo)then
begin
Grid.Canvas.Font.Color := clTeal;
Grid.DefaultDrawColumnCell(Rect, DataCol,Column, State);
end
else
begin
Grid.Canvas.Font.Color := clBlue;
Grid.DefaultDrawColumnCell(Rect, DataCol,Column, State);
end;
end;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if odd(RecNo)then
begin
Grid.Canvas.Font.Color := clTeal;
Grid.DefaultDrawColumnCell(Rect, DataCol,Column, State);
end
else
begin
Grid.Canvas.Font.Color := clBlue;
Grid.DefaultDrawColumnCell(Rect, DataCol,Column, State);
end;
end;
解决方案 »
- fast report 3 打印预览时保存成 word 文件,原来的格式全乱了,求解!!!
- 今天我毫不犹豫的向医院开炮了。
- c++程序员转向delphi的困惑,请高手帮忙。
- 单机版的应用程序(ACCESS数据库)怎么才能成为网络版
- 请问如何用SQL语句检测指定数据表是否已存在?
- Dll中如何创建数据模块
- 求助这个异常怎么写?
- 低价发行,助手医院信息管理系统(中小医院专用),详情请进!
- 感谢minercxy(Codewhy)对http://expert.csdn.net/Expert/topic/1928/1928157.xml?temp=.3245966的支持
- 如何編寫這樣的sql語句
- 请问如何实现:将一个自定义控件在设计期放在窗体上,它能使其他的控件不能移动?
- 如何将DBGRID中的数据导出到Excel中?
if FieldValues('age') >30 then
begin
Grid.Canvas.Font.Color := clBlue;
Grid.DefaultDrawColumnCell(Rect, DataCol,Column, State);
end;
我想给你分,但是我不知道怎样给。请你告诉我。