如何让DBGRID隔行显示背景色(兰色)?如何让DBGRID中行间距增大?
解决方案 »
- 请教关于网络通信的几个问题,请高手来帮忙。
- 一段看不明白道理的热键设置代码
- TComboBox设置为csSimple后,如何通过按钮弹出下拉列表
- 用ADOQuery添加记录,第一次成功,第二次就出错
- 在dbgrid里如何实现这样的触发事件?
- 连接access时出现"Table is read only."的错误!!
- 问一个 PrintDBGridEH 打印的问题
- RAVE中文资料?
- 请问 谁有 spcomm 控件。
- 一个关于Table的简单问题
- 用install shield做安装盘,其自己带的只有ODBC3.51 我需要ODBC4.0组件,哪有下?
- Fatal Error] RM_class.pas(1416): Out of memory安装report machine出现这样的错误提示怎么办
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
//change the color mode of this DBGrid
//inherited;
With DbGrid1 do
begin
if ((State = [gdSelected]) or (State = [gdSelected,gdFocused])) then
begin
Canvas.Font.Color := clYellow;
Canvas.Brush.Color := clNavy;
end
else
begin
//showmessage(inttostr(cds1.RecNo));
if CDS1.RecNo mod 2 <> 0 then Canvas.Brush.Color := clWhite
else Canvas.Brush.Color := clskyblue;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;