TStringGrid网格线颜色 TStringGrid的网格线的颜色默认是灰色,有什么办法更改成其它颜色吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在onDrawColumnCell中添加这个试试DBGrid1.Canvas.pen.Color := rgb(196,223,210) ;//定义背景颜色 Dbgrid1.DefaultDrawColumnCell( Rect, DataCol, Column, [gdFixed,gdFocused,gdSelected] ); 在DrawCell中with TStringGrid(Sender).Canvas do //画 cell 的边框 begin Pen.Color := FRowLineColor; //定义画笔颜色(行) MoveTo(Rect.Left, Rect.Bottom); //画笔定位 LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线 Pen.Color := FColLineColor; //定义画笔颜色(列) MoveTo(Rect.Right, Rect.Top); //画笔定位 LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线 end; 哪位朋友有MPEG1文件的格式说明?谁做过MPEG1文件的播放,分割,合并的程序? ClientDataSet无法提交数据 欢迎大家加入delphi学习群13865809如果进来都不说话直是为了隐身的就不要进了。 请问如何实现一个程序启动后,alt+f4无法关闭它 如何祛除这个警告 菜鸟问题!!急!! dll释放的问题,还没有解决! 怎样通过Delphi编程来实现清除IE的插件? 紧急求助,高分相送,关于SQL中的GB问题 请问谁会BOM算法,如果有源码一定给80分 谁帮帮我,给我个DBCHART的例子,谢谢先~~ 在delphi中如何使用sql脚本文件
DBGrid1.Canvas.pen.Color := rgb(196,223,210) ;//定义背景颜色
Dbgrid1.DefaultDrawColumnCell( Rect, DataCol, Column, [gdFixed,gdFocused,gdSelected] );
with TStringGrid(Sender).Canvas do //画 cell 的边框
begin
Pen.Color := FRowLineColor; //定义画笔颜色(行)
MoveTo(Rect.Left, Rect.Bottom); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
Pen.Color := FColLineColor; //定义画笔颜色(列)
MoveTo(Rect.Right, Rect.Top); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
end;