cxGrid单元格内显示图片和文本

最新推荐文章于 2020-11-29 09:40:42 发布

悟影

最新推荐文章于 2020-11-29 09:40:42 发布

阅读量3.2k

点赞数

分类专栏： DevExpressVCL 文章标签： cxgrid 单元格显示图片

本文链接：https://blog.csdn.net/lichuxiong/article/details/37882581

版权

DevExpressVCL 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

cxGrid单元格内显示图片和文本，下图是根据单据的状态来绘制图：

绘制代码为通用代码：

procedure cxGridViewCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo;  var ADone: Boolean);
var
  x,y:Integer;
  ABitmap:TBitmap;
begin
  {省略初始化ABitmap的代码略}

  //调整图片的位置
  if (AViewInfo.Bounds.Right- AViewInfo.Bounds.Left - ABitmap.Width)>0 then
    x := AViewInfo.Bounds.Right- ABitmap.Width-1 else
    x := AViewInfo.Bounds.Left;

  if (AViewInfo.Bounds.Bottom- AViewInfo.Bounds.Top - ABitmap.Height)>0 then
    y := AViewInfo.Bounds.Bottom- ABitmap.Height-1 else
    y := AViewInfo.Bounds.Top;

  ACanvas.FillRect(AViewInfo.Bounds);
  ACanvas.Draw(x,y,ABitmap);

  ACanvas.Brush.Style := bsClear;
  ACanvas.DrawTexT(AViewInfo.Text, AViewInfo.ContentBounds, cxAlignVCenter);

  ADone := True;
end;