delphi学习点滴—dbgrideh一个技巧

 有几个事件使你能够在绘制单元格前定制单元格字体和颜色。

1、用TDBGridEh的OnDrawColumnCellEvent事件句柄来在控制在网格单元中绘制数据。可以使用Canvas属性的方法来绘制单元格。但是如果你只想改变字体或颜色的属性，我建议使用下面的事件。 ( 只是单个单元格变色，整行并没有变)

 

代码如下：

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
   if (gdselected in State) and (gdfocused in state) then
  begin
    DBGridEh1.Canvas.Font.Color := clred;
   end
  else
   begin
    DBGridEh1.Canvas.Font.Color := clgreen;
   end;
  DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

 

2、TDBGridEh的OnGetCellParams事件来控制在绘制数据单元以前所指定的操作。你可以改变绘制字体及背景色。这个事件适合改变整行的字体或颜色。

 

代码如下：

procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  if DBGridEh1.SumList.RecNo mod 2 = 1 then

  begin
    background:=clred;
  end
  else
  begin
    background:=clgreen;
  end;
 end;

 

3、如果你想改变指定列中单元格的属性，可以使用TColumnEh.OnGetCellParams。写这个事件用来控制在一列数据单元被重绘或编辑时的操作。在一列数据单元被重绘以前，可以改变绘制字体，背景色，对齐方式，图像索引，文本或检查框。在编辑一列数据单元以前，可以改变编辑字体，背景色，文本或只读状态。