社区
数据库相关
帖子详情
怎样设置DBGrid中的奇偶的背景色 .
jyb_9
2006-07-14 07:59:56
怎样设置DBGrid中的奇偶行的背景色 .
...全文
261
8
打赏
收藏
怎样设置DBGrid中的奇偶的背景色 .
怎样设置DBGrid中的奇偶行的背景色 .
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
ron_xin
2006-07-15
打赏
举报
回复
设置OddRowColor的颜色(其实就是偶数行的颜色),VertScrollBar下的Tracking为True
jyb_9
2006-07-15
打赏
举报
回复
ron_xin(星雨) ( )
DBGridEH才有~~设置OddRowColor的颜色,VertScrollBar下的Tracking为True
我现在用的就是DBGridEH我要怎样去实现?
gyf
2006-07-15
打赏
举报
回复
楼上正解,关键是adoQuery1.RecNo mod 2和onDrawColumnCell
wudi_1982
2006-07-15
打赏
举报
回复
在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件,设置相关的属性,使 DBGrid1 能显示表中的数据。然后,在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码,然后运行程序
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var i:integer;
begin
if gdSelected in State then Exit; //隔行改变网格背景色:
if adoQuery1.RecNo mod 2 = 0 then
(Sender as TDBGrid).Canvas.Brush.Color := clinfobk //定义背景颜色
else
(Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); //定义背景颜色
//定义网格线的颜色:
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
with (Sender as TDBGrid).Canvas do //画 cell 的边框
begin
Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
MoveTo(Rect.Left, Rect.Bottom); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
Pen.Color := clbtnface; //定义画笔颜色(兰色)
MoveTo(Rect.Right, Rect.Top); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画绿色
end;
end;
mdejtod
2006-07-15
打赏
举报
回复
随便说一下,如果是dbgrideh,只要改一下将tdbgrid 改为tdbgrideh 就好了
mdejtod
2006-07-15
打赏
举报
回复
OndrawColumnCell事件中.
begin
with (sender as tdbgrid) do
begin
if datasource.dataset.recno mod 2 = 0 then
canvas.Brush.Color:=clwindow //偶数行
else
canvas.Brush.Color:=$00FBDEDE;
DefaultDrawColumnCell(rect,datacol,column,state); //应用刷子
end;
end;
ron_xin
2006-07-14
打赏
举报
回复
DBGridEH才有~~设置OddRowColor的颜色,VertScrollBar下的Tracking为True
在Delphi
中
使用
DB
Grid
处理多条记录..rar
在Delphi
中
使用
DB
Grid
处理多条记录..rar
精彩编程与编程技巧-在运行时维护
DB
GRID
的栏位宽度...
精彩编程与编程技巧-在运行时维护
DB
GRID
的栏位宽度 ...
Delphi如何一次删除
db
grid
多条记录的例子.rar
Delphi演示如何一次删除网格数据表
db
grid
中
的多条记录,小技巧不过挺实用,希望对大家的Delphi编程有所帮助。以下是实现一次删除多条记录的相关代码供参考: if
DB
Grid
1.SelectedRows.Count >1 then s:= '真的要删除这些记录吗?'; if Application.MessageBox (Pchar(s),'删除多条记录',mb_iconinformation mb_yesNo)=idYes then begin
DB
Grid
1.DataSource.DataSet.DisableControls ; i:=0; While i<=
DB
Grid
1.SelectedRows.Count -1 do begin
DB
Grid
1.DataSource.DataSet.Bookmark:=
DB
Grid
1.SelectedRows.Items[i]; //重要在这里取得bookmark TempBookmark :=
DB
Grid
1.Datasource.Dataset.GetBookmark;
DB
Grid
1.DataSource.DataSet.GotoBookmark(TempBookMark);
DB
Grid
1.DataSource.DataSet.Delete ;
DB
Grid
1.DataSource.DataSet.FreeBookmark (TempBookMark); Inc(i); end;
DB
Grid
1.DataSource.DataSet.EnableControls; end; 更多代码请您在本页面下载源码。
精彩编程与编程技巧-VB 如何将
db
grid
印出来...
精彩编程与编程技巧-VB 如何将
db
grid
印出来 ...
在
DB
Grid
控件
中
显示图片.zip源码Delphi项目程序源码下载
在
DB
Grid
控件
中
显示图片.zip源码Delphi项目程序源码下载在
DB
Grid
控件
中
显示图片.zip源码Delphi项目程序源码下载 1.合个人学习技术做项目参考 2.适合学生做毕业设计参考 3.上线产品适合小公司开发项目参考
数据库相关
2,496
社区成员
88,445
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章