美食

最新推荐文章于 2019-07-06 19:44:12 发布

busfly001

最新推荐文章于 2019-07-06 19:44:12 发布

阅读量438

点赞数

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/wfeng107/article/details/1758020

版权

看着邻居家作的好吃的，真羡慕啊

可惜自己不会做。老婆没有时间，有时间她也不会。

我要开始做美食了嘎嘎

只是怕老婆批评我阿

她总是嫌我做的不好吃啊

好好练习哦

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
美食

看着邻居家作的好吃的，真羡慕啊可惜自己不会做。老婆没有时间，有时间她也不会。我要开始做美食了嘎嘎只是怕老婆批评我阿她总是嫌我做的不好吃啊好好练习哦
复制链接

扫一扫

busfly001 CSDN认证博客专家 CSDN认证企业博客

码龄21年

14: 原创

45万+: 周排名

100万+: 总排名

1万+: 访问

: 等级

361: 积分

2: 粉丝

0: 获赞

4: 评论

2: 收藏

私信

关注

热门文章

分类专栏

Delphi 2篇

最新评论

dbgrid导出excel
busfly001: DBGRID 这个方法不好
dbgrid导出excel
qq1978: 请问"procedure SaveToExcelFile(DbgridName:TDbGrid); "事件从哪里出来!谢谢,急需帮助!
dbgrid根据值改变行的颜色
godgod: 在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。 <br> 以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。 <br> 示例程序的运行： <br> 在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序，就可以看到神奇的结果了。本代码在 Windows98、Delphi5.0 环境下调试通过。 <br>procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject; <br> const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState); <br>var i :integer; <br>begin <br> if gdSelected in State then Exit; <br>//定义表头的字体和背景颜色： <br> for i :=0 to (Sender as TDBGrid).Columns.Count-1 do <br> begin <br> (Sender as TDBGrid).Columns[i].Title.Font.Name :='宋体'; //字体 <br> (Sender as TDBGrid).Columns[i].Title.Font.Size :=9; //字体大小 <br> (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff; //字体颜色(红色) <br> (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; //背景色(绿色) <br> end; <br>//隔行改变网格背景色： <br> if Query1.RecNo mod 2 = 0 then <br> (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk //定义背景颜色 <br> else <br> (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); //定义背景颜色 <br>//定义网格线的颜色： <br> DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); <br> with (Sender as TDBGrid).Canvas do //画 cell 的边框 <br> begin <br> Pen.Color := $00ff0000; //定义画笔颜色(蓝色) <br> MoveTo(Rect.Left, Rect.Bottom); //画笔定位 <br> LineT
感悟
星期零: 对头

大家在看

最新文章

目录

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。