注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

delphi stringgrid 某单元格字体颜色  

2015-04-19 23:37:45|  分类: delphixe7 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

delphi stringgrid 某单元格字体颜色

longyuali 10级  分类: 汇编语言  被浏览154次  2013.06.30

检举

StringGrid1.Cells[1,2]:='1233'; StringGrid1.Cells[2,2]:='1233'; StringGrid1.Cells[2,4]:='1233'; 我想让上面的字体加上红色的字。请高手解答。
完整的程序源码:
您拷贝就可以运行: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with StringGrid1 do if Cells[ACol,ARow] = '1233' then begin Canvas.Font.Color := clred; //字体颜色为红的 Canvas.Brush.color:=clMoneyGreen; //背景为 美元绿色 Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]); end; end; procedure TForm1.FormCreate(Sender: TObject); begin with StringGrid1 do begin RowCount :=5;//设置5行 ColCount :=5;//设置5列 Cells[1,2]:='1233'; Cells[2,2]:='1233'; Cells[2,4]:='1233'; end; end; end. ----------------------------------------------------- 关键是DrawCell事件,在这个事件中可以设字体名、大小、颜色、字体装饰、cell背景画布等
  评论这张
 
阅读(283)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017