cxgrid如何实现一个单元格内同时放图片和文本

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

Blessed_Chuan

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

阅读量3.6k

点赞数

本文链接：https://blog.csdn.net/gykthh/article/details/9161153

版权

本文介绍了一种在Delphi中使用cxgrdbclmnGrid1DBTableView1IconImage属性自定义图标显示的方法。通过定制化的绘图过程，可以在单元格内同时显示图标和文本，实现了更丰富的视觉效果。

摘要由CSDN通过智能技术生成

cxgrdbclmnGrid1DBTableView1IconImage的Properties设置为Image

procedure TForm1.tvGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  AEditValue: Variant;
  APicture: TPicture;
  FBounds:TRect;
begin
  cxgrdbclmnGrid1DBTableView1IconImage.Options.Focusing:=False; //点上去图标不变
  if AViewInfo.Item <> cxgrdbclmnGrid1DBTableView1IconImage then
  begin
    Exit;
  end;
  AEditValue := AViewInfo.GridRecord.Values[cxgrdbclmnGrid1DBTableView1IconImage.Index];
  if VarIsStr(AEditValue) or VarIsArray(AEditValue) then
  begin
    APicture := TPicture.Create;
    try
      LoadPicture(APicture,
        TcxImageProperties(cxgrdbclmnGrid1DBTableView1IconImage.Properties).GraphicClass, AEditValue);
      APicture.Bitmap.Canvas.Brush.Style:=bsClear;
      APicture.Bitmap.Canvas.TextOut(10,40,AViewInfo.GridRecord.Values[cxgrdbclmnGrid1DBTableView1CName.Index]);   //文本显示的位置 自己根据需要调整把
      FBounds:=AViewInfo.Bounds;
      ACanvas.FillRect(FBounds);
      ACanvas.DrawComplexFrame(FBounds,   clBtnHighlight,   clBtnShadow,   [bBottom,   bLeft,   bRight],   1);
      InflateRect(FBounds,   -1,   -1);
      ACanvas.Font.Color   :=   clBlack;
      ACanvas.Brush.Style   :=   bsClear;
      ACanvas.DrawGlyph(FBounds.Left,FBounds.Top,APicture.Bitmap);
    finally
      APicture.Free;
    end;
  end;
  ADone:=True;
end;