cxGrid画线问题

Question

procedure TFrm_List_PIS_Purchase.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if  cxGrid1tDBTableView1.Columns[0].DataBinding.Field.AsString<>'' then
   begin
      ACanvas.Pen.Color := clHotLight;
      ACanvas.Canvas.moveto(AViewInfo.Bounds.left, AViewInfo.Bounds.top);
      ACanvas.Canvas.lineto(AViewInfo.Bounds.Right, AViewInfo.Bounds.top);
   end;
end;我想要实现的是将第0列如果有值的话,则在该列画一条线,而这段代码实现不了,麻烦帮忙指点一下

Answer 1

 if not VarIsNull(AViewInfo.GridRecord.Values[0]) then
begin
......end;

Answer 2

谢谢,madyak
目前我测试了一下,这个判断是正常的,只是里面的执行情况有问题

Answer 3

是不是线画出来了，数值没显示？你还必须用TextOut将要显示的文字输出。