delphi中关于dbgrideh的DrawColumnCell事件,窗体重画,让每个单元格以及字体显示不同的颜色
来源:互联网 发布:串口调试助手发送数据 编辑:程序博客网 时间:2024/05/31 06:23
这是我写的一个函数,希望与大家分享。
//Delphi中关于dbgrideh的DrawColumnCell事件,窗体重画,
// 让每个单元格以及字体显示不同的颜色//columns.items[8]为DBgrideh的第八列; canvas.TextWidth取字符串的宽度;显示垂直居中
procedure Tfrmftp.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
with Sender as TDBGridEh do
begin
if Column.FieldName='IsUpload' then
begin
if (DataSource.DataSet.FieldByName('IsUpload').AsString='上传失败') or
(DataSource.DataSet.FieldByName('IsUpload').AsString='文件已存在') then
begin
//canvas.brush.color :=clwhite;//设置单元格的背景色
Canvas.Font.Color :=clRed; //设置单元格的字体颜色
Canvas.Font.Style :=[fsBold];// 设置单元格为粗体
Canvas.FillRect(Rect);
//Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
{垂直居中显示}
Canvas.TextRect(Rect,Rect.Left+((columns.Items[8].Width-(Canvas.TextWidth(Column.Field.AsString))) div 2),(Rect.bottom-rect.Top-abs(Columns.Items[8].Font.Height)) div 2 +rect.Top,Column.Field.AsString);
end;
if (DataSource.DataSet.FieldByName('IsUpload').AsString='√') or
(DataSource.DataSet.FieldByName('IsUpload').AsString='覆盖成功') then
begin
Canvas.Font.Color :=clGreen;
Canvas.Font.Style :=[fsBold];
Canvas.FillRect(Rect);
// Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
{垂直居中显示}
Canvas.TextRect(Rect,Rect.Left+((columns.Items[8].Width-(Canvas.TextWidth(Column.Field.AsString))) div 2),(Rect.bottom-rect.Top-abs(Columns.Items[8].Font.Height)) div 2 +rect.Top,Column.Field.AsString);
end;
end;
end;
end;
如果转载请说明文字出处 Lenovo455
- delphi中关于dbgrideh的DrawColumnCell事件,窗体重画,让每个单元格以及字体显示不同的颜色
- 关于在DBgrideh的单元格中显示jpg图片
- Delphi中关于DBGrid的DrawDataCell和DrawColumnCell的触发条件
- 让一个label中的text显示不同的颜色,字体
- bootstrap-table.js如何根据单元格数据不同显示不同的字体的颜色
- bootstrap-table.js如何根据单元格数据不同显示不同的字体的颜色
- aspxGridview 根据单元格值得不同,设置单元格字体的颜色
- devexpress实现单元格根据条件显示不同的样式(颜色、字体、对齐方式,大小等)
- iOS中UILabel显示不同的字体和颜色
- 一个Label中显示不同的字体颜色
- iOS中UILabel显示不同的字体和颜色
- Delphi中窗体的事件
- 介绍一篇“让echarts柱状图的每个柱子显示不同的颜色”的好博客
- Android中让TextView的字体部分显示颜色
- UILabel显示不同的颜色和字体
- UILabel显示不同的字体和颜色
- Label显示不同的字体颜色
- lable上显示不同的字体颜色
- 用 C++ 标准模板库(STL)的 vector 实现二叉搜索树(BST)
- Exercise4.1
- Android及Robotium学习总结【环境变量,真机调试及根据id模拟按键】
- Objective-C ,ios,iphone开发基础:快速实现一个简单的图片查看器
- Servlet:通过初始参数实现权限访问某个文件、页面
- delphi中关于dbgrideh的DrawColumnCell事件,窗体重画,让每个单元格以及字体显示不同的颜色
- c# 取随机数
- File already exists: filesystem '/path/file', transaction svn常见错误解决方法
- 关于jsp网页弹出窗口
- 常用log4j配置
- 一个简单的遗传算法的应用实例(java代码)
- 2012届华为校园招聘机试题
- eclipse中加入tomcat插件后不出现小猫图标
- 河北沙河