DBGridEh之单元格绘制显示进度条百分比样式

使用列Columns的OnAdvDrawDataCell事件进行绘制：

Procedure TForm.DBGridEhColumnsAdvDrawDataCell(Sender: TCustomDBGridEh; Cell, AreaCell:
  TGridCoord; Column: TColumnEh; Const ARect: TRect; Var Params: TColCellParamsEh;
  Var Processed: Boolean);
Begin
  Sender.DefaultDrawColumnDataCell(Cell, AreaCell, Column, ARect, Params);
  {   DrawProgressBarEh命令参数：
  参数一：当前位置
  参数二：最小位置
  参数三：最大位置
  }
  DrawProgressBarEh(50, 0, 100, Sender.Canvas, ARect, clSkyBlue, cl3DDkShadow, clNone);
  Processed := True;
End;