网站导航免费论文 原创论文 论文搜索 作业答案 网学软件 学术大家 资料中心 会员中心 问题解答 定作论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 交易代码 > Delphi精品代码 > 正文
DBGrid 中Cell内文字、渐进式背景色的画法
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 佚名 来源: 网络 发布时间: 10/11/07
 

//前提是 DBGrid 的 Columns 对象的属性是由 DataSet 自动生成,利用Canvas对象,在 DrawDataCell 事件中加入处理代码。
//例子如下(以 在竖直方向填充渐进色为例 ):

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var iClVal: Word; //控制颜色Red、Green、Blue 各自值的变量
    ClVal1, ClVal1: Integer; //渐进色两个端色的变化范围
    yStep, y: Real; //yStep 为竖直方向颜色跨度, y 为竖直方向画笔的 相对坐标(非绝对坐标)
    RectWidth, RectHeight: Integer; //正在 Draw 事件中对应的 Cell 区域的宽和高
    Tx, Ty: Integer; //文字放置位置的相对坐标
begin
  //端色值差距要足够大,否则可能造成添色不全
  ClVal1 := 50;
  ClVal2 := 250;
  Tx := 10;
  Ty := 15;
  RectWidth := Rect.Right - Rect.Left;
  RectHeight := Rect.Bottom - Rect.Top;
  yStep:= RectHeight / 256; //除以256是因为 RGB 颜色中三色的最大值为 255
  y:= 0;
  for iClVal := ClVal1 to ClVal2 do
    begin
    DBGrid1.Canvas.Brush.Color:=RGB(iWord+10,iWord-20,iWord-15); //此处置简单地以固定常量变化确定R、G、B三色的偏移量,实际中可编写偏移函数进行复杂渐变。
    DBGrid1.Canvas.FillRect(Classes.Bounds(Rect.Left + 0, Rect.Top + Round(y), (Rect.Right - Rect.Left), Round(y + yStep)));
    y:=y + yStep; //移动画笔的 竖直相对坐标
    end;
  //以上为渐进色添入过程,要在 Cell 中显示文字,应在上述代码完成后,加入如下代码:
  DBGrid1.Canvas.Brush.Style:=Graphics.bsClear; //改变画笔类型,如省略此步,显示文字的区域将有背景色,即文字区域不透明
  //上句中, Graphics 不可省,否则 IDE 可能将 bsClear 视为 QGraphics 的TBrushStyle常量, 造成编译含糊。
  DBGrid1.Canvas.TextOut(Rect.Left + Tx, Rect.Top + Ty, Field.AsString);
end;

///(当 Columns 属性并非由 DataSet 自动生成时,改为在 DrawColumnCell 事件中加入处理代码) ,如下:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var iClVal: Word; //控制颜色Red、Green、Blue 各自值的变量
    ClVal1, ClVal1: Integer; //渐进色两个端色的变化范围
    yStep, y: Real; //yStep 为竖直方向颜色跨度, y 为竖直方向画笔的 相对坐标(非绝对坐标)
    RectWidth, RectHeight: Integer; //正在 Draw 事件中对应的 Cell 区域的宽和高
    Tx, Ty: Integer; //文字放置位置的相对坐标
begin
  //端色值差距要足够大,否则可能造成添色不全
  ClVal1 := 50;
  ClVal2 := 250;
  Tx := 10;
  Ty := 15;
  RectWidth := Rect.Right - Rect.Left;
  RectHeight := Rect.Bottom - Rect.Top;
  yStep:= RectHeight / 256; //除以256是因为 RGB 颜色中三色的最大值为 255
  y:= 0;
  for iClVal := ClVal1 to ClVal2 do
    begin
    DBGrid1.Canvas.Brush.Color:=RGB(iWord+10,iWord-20,iWord-15); //此处置简单地以固定常量变化确定R、G、B三色的偏移量,实际中可编写偏移函数进行复杂渐变。
    DBGrid1.Canvas.FillRect(Classes.Bounds(Rect.Left + 0, Rect.Top + Round(y), (Rect.Right - Rect.Left), Round(y + yStep)));
    y:=y + yStep; //移动画笔的 竖直相对坐标
    end;
  //以上为渐进色添入过程,要在 Cell 中显示文字,应在上述代码完成后,加入如下代码:
  DBGrid1.Canvas.Brush.Style:=Graphics.bsClear; //改变画笔类型,如省略此步,显示文字的区域将有背景色,即文字区域不透明
  //上句中, Graphics 不可省,否则 IDE 可能将 bsClear 视为 QGraphics 的TBrushStyle常量, 造成编译含糊。
  DBGrid1.Canvas.TextOut(Rect.Left + Tx, Rect.Top + Ty, Column.Field.AsString);
end;

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 电话:013574892963 QQ:3710167 邮箱:Educs@163.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 Www.myeducs.Cn All Rights Reserved
湘ICP备09003080号