如何实现在DbGrid 中的斑马线(急)

ylhlove 2003-05-09 05:43:46
请问一下:如何实现在DbGrid 中的斑马线(急)
非常感谢!!
...全文
54 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
yoisyois 2003-05-09
  • 打赏
  • 举报
回复

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if (dbgrid1.DataSource.DataSet.RecNo mod 2)=1 then begin
DBGrid.Canvas.Brush.Color := clBlue;//蓝色背景颜色
DBGrid.Canvas.Font.Color := clYellow;//黄色字体颜色
end
else
DBGrid1.DefaultDrawDataCell(Rect, Field, state);
end;
cow8063 2003-05-09
  • 打赏
  • 举报
回复
procedure TFrmKhsf.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
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
if dmmain.ADOQKhsf.FieldByName('khbh').AsString='cw0001' then //条件
Canvas.brush.Color :=ClYellow;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);// 这行很关键的,一定不要遗漏了
end;

end;
yoisyois 2003-05-09
  • 打赏
  • 举报
回复
先up

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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