//前提是 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;
[办公软件]EXCEL之Range,cells选择单元格的用法 [办公软件]GET.CELL函数在Excel中的应用实例及参数介绍 [办公软件]ActiveCell和Range对象属性介绍 [常用软件]Winamp5 Alpha版最新试用 中 [VB.NET程序]在 VB 中 引 用 .dbf 及 索 引 文 件 [Delphi程序]在stringgrid控件中使文字内容在cell中做到上下居… [Delphi程序]Delphi6/7 中XML 文档的应用 [Delphi程序]Delphi 中 COM 实现研究手记(一) [Delphi程序]DBGrid 应用全书(一) [Delphi程序]DELPHI中DBGrid中行的定位及着色实现
|